Question

VB 分别用3个InputBox函数输入小时、分钟、秒的值，化成共有多少秒，并在文本框控件输出计算结果。写编码

Answer 1

Private Sub Form_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(InputBox("输入小时的值", ""))
b = Val(InputBox("输入分钟的值", ""))
c = Val(InputBox("输入秒的值", ""))
d = a * 3600 + b * 60 + c
Text1.Text = d
End Sub

 

您的采纳就是对我最大的支持

Answer 2

dim i,s
i=inputbox("输入小时：")
s=val(i)*3600
i=inputbox("输入分钟：")
s=s+val(i)*60
i=inputbox("输入秒数：")
s=s+val(i)
text1.text=str(s)

Answer 3

Private Sub Form_Click()
Dim a As Single, b As Single, c As Single, z As Single
a = InputBox("输入a的值", "")
b = InputBox("输入b的值", "")
c = InputBox("输入c的值", "")