UC知道求助：VB问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 17:30:15
我想编写一个程序，点击按钮，判断输入TEXT1的数是不是1-9之间的数，如果不是则弹出对话框“错误编号”。请问应该怎样编写代码？
if val(text1.text)>=1 and val(text1.text)<=9 then
msgbox("正确编号")
else
msgbox("错误编号")
end if
If Not(IsNumeric(Text1.Text)) Then
MsgBox("请输入数字",vbInformation,"输入错误")
End If