唉！新手来的！不懂啊各位大侠帮忙看看啊解决办法

唉！新手来的！不懂啊！各位大侠帮忙看看啊
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）