唉！新手来的！不懂啊！各位大侠帮忙看看啊
Dim a, s, h, m As Integer

Private Sub Command4_Click()
h = InputBox("请输入时间...", "输入")
If a = " " Then Debug.Print
Timer1.Interval = h
Timer1.Enabled = True
End Sub

将变量h赋值给Timer1.Interval提示 类型不匹配？？？

在inputbox对话框中点取消就这样了

[解决办法]
Dim a, s, h, m As Integer
只有m被定义为整形
前面的a, s, h都没有定义类型，VB默认的解析为Variant类型，(h由输入框输入，表示的是文本类型)
Timer1.Interval 要求的是数值类型

每个变量明确类型 或者
Timer1.Interval =val（ h）