📄 practice4_4.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "请单击窗体开始输入数据"
ClientHeight = 1770
ClientLeft = 7005
ClientTop = 6060
ClientWidth = 4530
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 1770
ScaleWidth = 4530
StartUpPosition = 2 '屏幕中心
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
h = Val(InputBox("请输入小时", "将时间转换成秒", "0"))
m = Val(InputBox("请输入分", "将时间转换成秒", "0"))
s = Val(InputBox("请输入秒", "将时间转换成秒", "0"))
Total = h * 3600 + m * 60 + s
Print h; "小时"; m; "分"; s; "秒="; Total; "秒"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -