一个text1.text 一个按钮 我想点击按钮text1.text的值如果输入的不是100>text1.text>40 就出一个页面提示“text1.text输入范围错误”和不输入数字的话就会提示“请输入数据”
请大哥们帮忙编个
參考答案:Private Sub Command1_Click()
s = Text1
If Not IsNumeric(s) Then
MsgBox "请输入数据"
Text1 = ""
Text1.SetFocus
ElseIf Val(s) <= 40 Or Val(s) >= 100 Then
MsgBox "text1范围错"
Text1 = ""
Text1.SetFocus
End If
End Sub