输入以秒为单位的时间，用Visual Basic编写程序，将其换算成几时几秒。

Private Sub Form_Click()
Dim h1, m1, s1, s0 As Integer
h1 = 0 '初始化时间
m1 = 0
s1 = 0
s0 = 0
s0 = InputBox(" 请输入以秒为单位的时间: ")
s0 = Val(s0) '转换成数字
If s0 > 3600 Then h1 = s0 \ 3600
If s0 Mod 3600 >= 60 Then m1 = (s0 Mod 3600) \ 60
s1 = (s0 Mod 3600) Mod 60
Print "你输入的时间是" & h1 & "小时" & m1 & "分" & s1 & "秒"
End Sub
xp 和 vb6 中通过测试