VB编程问题
时间换算程序,要求输入小时数,分钟数,秒数后,单击“计算”按钮,输出合计秒数。
界面图,自己相信、
谢谢了!
追问:我只要答案的。不好意思啦
时间换算程序,要求输入小时数,分钟数,秒数后,单击“计算”按钮,输出合计秒数。
界面图,自己相信、
谢谢了!
追问:我只要答案的。不好意思啦
答案:图里面是界面的设计,Text控件自上而下是1234,代码如下
Private Sub Command1_Click()
Dim s, m, h As Integer
h = Val(Text1.Text)
m = Val(Text2.Text) + 60 * h
s = Val(Text3.Text) + 60 * m
Text4.Text = Str$(s)
End Sub
Private Sub Command2_Click()
End
End Sub能加我一起研究VB么?给个思路.Private Sub Command1_Click()
Text4.Text = Text1.Text * 3600 + Text2.Text * 60 + Text3.Text
End Sub写个代码,参考一下吧:
Private Sub Command1_Click()
h = InputBox("输入小时数", "输入")
m = InputBox("输入分钟数", "输入")
s = InputBox("输入秒数", "输入")
Sum = h * 3600 + m * 60 + s
Print "总共的秒数是:" & Sum & "秒"
End Sub
上一个:vb编程问题
下一个:VB 缂栫▼闂 - 宸茶В鍐?- 鎼滄悳闂棶