荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: huhaiming (一生只爱她), 信区: Program
标 题: [合集]可不可以问VB阿？？？[转载]
发信站: 荔园晨风BBS站 (Fri May 2 09:38:00 2003), 站内信件
chim (冰花酸梅) 于Wed Apr 16 20:28:58 2003提到：
我想问一下高手们
VB里面的Select Case怎样才可以编出输入不在0～100
范围的数据时会弹出一个错误的Msgbox出来阿？？
非常感激！！！！
chris (Meaning of Happiness) 于Wed Apr 16 20:51:46 2003提到：
select case n
case( n<0 or n>100) '//忘记能不能在case用or了，不能的话分两个case
Msgbox(xxx)
case else
....
end select
chim (一起去喝酒吧！！你请^-^) 于Wed Apr 16 21:08:31 2003提到：
请问这个有什么问题吗？？
Private Sub Command1_Click()
mark = Val(Text1.Text)
Select Case mark
Case Is > 100
a = MsgBox("错误")
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Case Is < 0
a = MsgBox("错误")
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Select
mark = Val(Text1.Text)
Select Case mark
Case Is >= 90
Text2.Text = "优"
Case Is >= 80
Text2.Text = "良"
Case Is >= 70
Text2.Text = "中"
Case Is >= 60
Text2.Text = "及格"
Case Is >= 0
Text2.Text = "不及格"
End Select
Select Case mark
End Select
End Sub
Version (Who makes history and why) 于Wed Apr 16 21:16:39 2003提到：
Select Case mark 后
下面的变量Is是什么啊。
chim (一起去喝酒吧！！你请^-^) 于Wed Apr 16 21:21:47 2003提到：
我是照书抄的
我也不明白是什么
Select Case mark 后
下面的变量Is是什么啊。
Version (Who makes history and why) 于Wed Apr 16 21:24:58 2003提到：
vb语法我也忘得差不多啦。。
不好意思
chim (一起去喝酒吧！！你请^-^) 于Wed Apr 16 21:28:35 2003提到：
Is<关系运算符><表达式>
Version (Who makes history and why) 于Wed Apr 16 21:30:11 2003提到：
哦。你运行的时候有什么错误不？？？
chim (一起去喝酒吧！！你请^-^) 于Wed Apr 16 21:37:10 2003提到：
没有！！
只是弹出Msgbox的同时也会出现优
我的作业是判断分数的优良
哦。你运行的时候有什么错误不？？？
chris (Meaning of Happiness) 于Wed Apr 16 21:47:16 2003提到：
试试把所有Is换成mark
chim (一起去喝酒吧！！你请^-^) 于Wed Apr 16 21:49:52 2003提到：
更糟糕！！！
运行不了
chris (Meaning of Happiness) 于Wed Apr 16 21:56:34 2003提到：
说错了，应该说把is去掉
chim (一起去喝酒吧！！你请^-^) 于Wed Apr 16 21:58:37 2003提到：
它会自动换成Is了
chris (Meaning of Happiness) 于Wed Apr 16 22:03:10 2003提到：
明白你的意思了。。。
你把整个过程都写在一个sub里当然什么都运行在一起了。。。在那两个
错误msgbox Case后加句exit sub吧
chris (Meaning of Happiness) 于Wed Apr 16 21:56:34 2003提到：
说错了，应该说把is去掉
chim (一起去喝酒吧！！你请^-^) 于Wed Apr 16 21:58:37 2003提到：
它会自动换成Is了
chris (Meaning of Happiness) 于Wed Apr 16 22:03:10 2003提到：
明白你的意思了。。。
你把整个过程都写在一个sub里当然什么都运行在一起了。。。在那两个
错误msgbox Case后加句exit sub吧
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店