那道练习题是这样的：[设把输入的秒数转化成几天几时几秒（没有几分）]
下面是我写的，不过这可是VB书上一道小小的编程/我这样写明显太繁琐了。有更简单的方法吗？（我是小鸟，请说地详细些。谢谢了）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Form_Click()
Dim zongmiao As Long, hour1 As Integer, second1 As Integer, _
days As Long, hour2 As Integer, yvmiao As Long, second2 As Integer
tishi$ = "请输入要转换的总秒数"
zongmiao = InputBox(tishi$)
If zongmiao < 3600 Then
Print zongmiao; "秒="; "0天0时"; Str$(zongmiao); "秒"
ElseIf zongmiao >= 3600 And zongmiao < 86400 Then
hour1 = zongmiao \ 3600
second1 = zongmiao Mod 3600
Print zongmiao; "秒="; "0天"; hour1; "时"; second1; "秒"
Else
days = zongmiao \ 86400
yvmiao = zongmiao Mod 86400
If yvmiao >= 3600 Then
hour2 = yvmiao \ 3600
second2 = yvmiao Mod 3600
Print zongmiao; "秒="; days; "天"; hour2; "时"; second2; "秒"
Else
Print zongmiao; "秒="; days; "天"; "0时"; yvmiao; "秒"
End If
End If


End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

感觉你搞麻烦了＝。＝

Option Explicit

Private Sub command1_Click()
Dim zongmiao As Long, yvmiao As Long
Dim days As Long, Hours As Integer, Seconds As Integer
zongmiao = InputBox("请输入要转换的总秒数")
days = zongmiao \ 86400
yvmiao = zongmiao Mod 86400
Hours = yvmiao \ 3600
Seconds = yvmiao Mod 3600
Print zongmiao; "秒="; days; "天"; Hours; "时"; Seconds; "秒"
End Sub

[此贴子已经被作者于2007-9-1 13:22:39编辑过]

长见识了/
还来整数除可以商零啊/
多谢版版
看来我是把简单事情复杂化了/呵呵/学到了