vb编程问题解决？

来源：百度知道 编辑：UC知道 时间：2024/05/29 16:22:40
Option Explicit

Private Sub Command1_Click()
Dim hh As Integer, mm As Integer, ss As Integer
Dim totals As Single
Dim outstr As String
hh = Val(Text1)
mm = Val(Text2)
ss = Val(Text3)
totals = hh * 3600 + mm * 60 + ss
outstr = hh & "小时" & mm & "分" & ss & "秒"
outstr = outstr & vbCrLf & "总计：" & totals & "秒"
MsgBox outstr, , "输出结果"
End Sub

Private Sub Command2_Click()
End
End Sub
在小时，分，秒文本框中输入12，45，48数据后，单击计算命令按钮怎么不能计算出结果，出现溢出，这是什么原因？
如何修改程序？

改变下变量的类型就可以了。 因为Integer变量范围为：-32768~32767

Option Explicit
Private Sub Command1_Click()
Dim hh, mm, ss As Double
Dim totals As Single
Dim outstr As String
hh = Val(Text1)
mm = Val(Text2)
ss = Val(Text3)
totals = hh * 3600 + mm * 60 + ss
outstr = hh & "小时" & mm & "分" & ss & "秒"
outstr = outstr & vbCrLf & "总计：" & totals & "秒"
MsgBox outstr, , "输出结果"
End Sub

Dim hh As Integer改成Dim hh As Double就OK了，Integer数太小了。

把Single改成Double，把Integer改成Long即可。

把Single改成Double，把Integer改成Long即可。