VB判断输入数字大小窗体上有4个文本框，一个按钮，我想在输入数字时判断输入的数是否在范围内，这是代码PrivateSubCommand1Click()Dima,bAsIntegera=Text1.Textb=Text2.TextIf0<=a<=100And0&lt

Question

VB判断输入数字大小窗体上有4个文本框，一个按钮，我想在输入数字时判断输入的数是否在范围内，这是代码 Private Sub Command1_Click() Dim a, b As Integer a=Text1.Text b=Text2.Text If 0<= a <= 100 And 0<= b <=100 Then Text3.Text=a Text4.Text=b Else MsgBox "输入的值不正确" End If End Sub 程序能正常工作，但是无论文本框1、2中输入任何数字都不会弹出提示，请问为什么会出问题?如何解决?麻烦详细解释一下，谢谢!

Answer 1

Private Sub Command1_Click() Dim a, b As Integer'--------此处有问题：a是变体，b是integer a=Text1.Text b=Text2.Text If 0<= a <= 100 And 0<= b <=100 Then'----此处重大问题，即问题所在。 Text3.Text=a Text4.Text=b Else MsgBox "输入的值不正确" End If End Sub ----------------------------------- 说明--------------------------- 0<= a <= 100 And 0<= b <=100 VB判断如下： 0<=a 如果正确，返回 true （其值 -1），如果错误，返回 false(其值 0)。 于是-1<= 100 正确，0<= 100 也正确。 因此a为任何值，0<= a <= 100 都为正确，返回 true 同理：b为任何值，0<= b <=100 都为正确，返回 true 也就是说： a和b为任何值， 0<= a <= 100 And 0<= b <=100 都是正确的返回 true 。 执行： Text3.Text=a Text4.Text=b 修改如下： Private Sub Command1_Click() Dim a As Integer, b As Integer‘------------------------------------------1 a=Text1.Text b=Text2.Text If 0<= a and a <= 100 And 0<= b and b <=100 Then'----------------2 Text3.Text=a Text4.Text=b Else MsgBox "输入的值不正确" End If End Sub