UC知道总是出现类型块语句无效，请高手指正！！急急急
来源：百度知道 编辑：UC知道 时间：2024/09/24 02:38:04
Private Sub Command1_Click()
Dim h As Integer
m As Integer
s As Integer
Dim X As Long
h = Val(Text1.Text)
m = Val(Text2.Text)
s = Val(Text3.Text)
X = h * 3600 + m * 60 + s
Label1.Caption = "共计秒数" & Str(X) & "秒"
End Sub
Dim h As Integer
m As Integer
s As Integer
Dim X As Long
h = Val(Text1.Text)
m = Val(Text2.Text)
s = Val(Text3.Text)
X = h * 3600 + m * 60 + s
Label1.Caption = "共计秒数" & Str(X) & "秒"
End Sub
Private Sub Command1_Click()
Dim h As Integer
dim m As Integer '这里的dim不能省略
dim s As Integer
Dim X As Long
h = Val(Text1.Text)
m = Val(Text2.Text)
s = Val(Text3.Text)
X = h * 3600 + m * 60 + s
Label1.Caption = "共计秒数" & Str(X) & "秒"
End Sub