从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图