Private Sub Command1_Click( )
Dim a As Integer, b As Integer
a = val(“9”)
b = sqr(a)
Texr1.Text =str (b)
End Sub
题目内容:
接收用户输入的一个秒数(非负整数),折合成小时、分钟和秒输出。
输入格式:
请输入一个非负整数:
输出格式:
将小时、分钟、秒输出到一行,中间使用空格分隔。
输入样例:
请输入一个非负整数:70000
输出样例:
19 26 40