level 1
Private Sub Command1_Click()
MsgBox "总共:" & Val(Text1.Text) * 60 + Val(Text2.Text) * 60 + Val(Text3.Text) & "秒", , "提示"
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
2013年03月24日 11点03分