Question

VB高手帮忙：在文本框中输入小时，分，秒，计算共几秒。怎么输入代码啊？？？

Answer 1

'刚写的代码虽然我是学Delphi的,VB也稍微知道点,希望对楼主有用
'新建三个文本框,分别用来输入时分秒,(name)属性就用默认
'新建一个结果标签Label,属性全部默认
'再新建一个按钮,属性全部默认
Private Sub Command1_Click()
If (Val(Text1.Text) > 0 And Val(Text1.Text) < 24) And (Val(Text2.Text) > 0 And Val(Text2.Text) < 60) And (Val(Text3.Text) > 0 And Val(Text3.Text) < 60) Then
Label1.Caption = Val(Text1.Text) * 60 * 60 + Val(Text2.Text) * 60 + Val(Text3.Text)
Else
MsgBox "请检查输入是否有误", 16, "错误"
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = ""
End Sub

Answer 2

一个时间怎么计算呢？如果有时间段，你可以先得用运算得到多长时间，小时*3600+分钟*60+秒就等于你想要的了

Answer 3

Dim h As Integer
Dim m As Integer
Dim s As Integer

h = Val(Text1.Text)
m = Val(Text2.Text)
s = Val(Text3.Text)

If h <= 23 And h >= 0 And m <= 60 And m >= 0 And s <= 60 And s >= 0 Then
Print ("总共的秒数为：" & h * 3600 + m * 60 + s)
Else
Print ("日期格式非法")
End If

Answer 4

在文本框离开事件中判断是否在限制范围内，如果不是则提醒。再按楼上的算法算就OK了