建表单加入文本框:ThisForm.TextXs.ValueThisForm.TextF.ValueThisForm.TextM.Value和ThisForm.TextSc.Value加入命令按钮:ThisForm.CommandCx在ThisForm.CommandCx.Clik中输入ThisForm.TextSc.Value=3600*ThisForm.TextXs.Value+60*ThisForm.TextXs.Value+ThisForm.TextXs.Value