Question

怎样用vb编程使在文本框中输入的秒数，单击命令按钮后转换成时分秒并在便签上显示

Answer 1

Private Sub Command1_Click()
Dim i, j, iHour, iMinute, iSecond As Integer

i = Val(Text1.Text)
iSecond = i Mod 60
i = i \ 60
iMinute = i Mod 60

i = i \ 60
iHour = i Mod 60

Label1.Caption = Str(iHour) & "小时" & Str(iMinute) & "分" & Str(iSecond) & "秒"
End Sub

Answer 2

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
If a > 60 Then
c = a Mod 60
b = (a - c) / 60
Else
b = 0: c = a
End If
Label1.Caption = Str(b) & "分" & Str(c) & "秒"
End Sub
数值输入的不要太大 否则会溢出 我没有考虑小时的问题~

Answer 3

MsgBox DateAdd("s",3661,"00:00:00")