输入以秒为单位表示的时间，编写程序，将其换算成几日几时几秒。

以下是此题的【VB源代码】
Private Sub Form_Click()
Dim Second, minute, hour, day As Long
Dim second1  As Long
Second = InputBox("请输入秒数")
Second = Val(Second)
second1 = Second
minute = Int(Second / 60)
Second = Second Mod 60
hour = Int(minute / 60)
minute = minute Mod 60
day = Int(hour / 24)
hour = hour Mod 24
Print second1; "秒＝"; day; "天"; hour; "小时"; minute; "分"; Second; "秒"
End Sub

运行此VB源码后结果情况如下图所示：


 
新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_5.8.html