Question

帮我用VB编一个程序：输入以秒为单位的时间，换算出几时几分几秒？

把代码告诉我

Answer 1

Dim tim As Long
Dim h As Integer, m As Integer, s As Integer
tim = 10000 输入的秒数
h = Int(tim / 3600)
m = Int((tim - h * 3600) / 60)
s = tim - h * 3600 - m * 60
MsgBox h & ":" & m & ":" & s

Answer 2