我是菜鸟,麻烦懂VB的给指教下
我写的验证Text1中输入正确的小时数,代码如下:
Private Sub Text1_Change()
If Text1.Text > 23 Then
MsgBox "请输入正确的小时数", vbInformation + vbOKOnly, "出错了"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
End Sub
为什么运行后老是出现
"实时错误13,类型不匹配呢"

If val(Text1.Text) > 23 Then

Text1.Text返回的是string

明白了，呵呵，谢谢大家啊！

If （val(Text1.Text) >=0） and （val(Text1.Text) <= 23） Then
...
end if