当前位置:编程学习 > VB >>

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
图里面是界面的设计,Text控件自上而下是1234,代码如下Private Sub Command1_Click()Dim s, m, h As Integerh = Val(Text1.Text)m = Val(Text2.Text) + 60 * hs = Val(Text3.Text) + 60 * mText4.Text = Str$(s)End SubPrivate Sub Command2_Click()EndEnd 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 缂栫▼闂 - 宸茶В鍐?- 鎼滄悳闂棶

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,