Question

关于VB的编程问题？请假大神在线等待！

窗体有两个text1和text2还有一个确定按钮，题目是这样的在text1里面输入10.11.196.1到10.11.196.255随机输入如何输入小于10.11.196.63的text2显示1小于10.11.196.126显示2小于10.11.196.190的显示3小于10.11.248.255显示4 ，请高手给我详细代码，表示感谢！

Answer 1

不考虑ip不完整，程序如下：

Private Sub Command1_Click()
Dim a As Integer
a = Split(Text1.Text, ".")(3)
Select Case a
 Case Is <= 63
  Text2.Text = 1
 Case Is <= 126
  Text2.Text = 2
 Case Is <= 190
  Text2.Text = 3
 Case Is <= 255
  Text2.Text = 4
End Select

End Sub