VB中定义一个数的取值范围可以通过条件判断来实现。
成都创新互联公司是一家集网站建设,梅里斯企业网站建设,梅里斯品牌网站建设,网站定制,梅里斯网站建设报价,网络营销,网络优化,梅里斯网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
比如
设定a取值范围
100-999，则代码如下：
if
a100
and
a999
then
'判断是否在100-999区间内
'在区间内写相应代码
else
'不在区间内写相应的代码
end
if
方法1：
if isnumeric(textbox1.text) then
if left(textbox1.text,1)="1" then
a处理
else
b处理
end if
else
b处理
end if
方法2：
if isnumeric(textbox1.text) then
if textbox1.text like "1*" then
a处理
else
b处理
end if
else
b处理
end if
错就错在英语单词写错了： ture应该是true，flase应该是false
另外你这程序也太罗里吧嗦了，一行就能解决的非要用很多行，下面给你简化一下：
Private Sub Command1_Click()
Randomize
y = Int(Rnd * (51)) + 1
x = IIf(CNum(1, 3, y), 1, IIf(CNum(4, 15, y), 2, 3))
Print y; x
End Sub
Private Function CNum(ByVal a As Long, ByVal b As Long, ByVal y As Long) As Boolean
CNum = y = a And b = y
End Function
把这个数与区间的上限和下限比较就知道是不是在区间内了：
x = 16
If x = 10 And x = 20 Then
'x的值在10与20之间
Else
'x的值不在10与20之间
End If
