问一个VB里select case语句的很基础问题。。(内详)

OptionExplicitPrivateSubCommand1_Click()DimAAsSingleA=Val(Text1.Text)SelectCaseACaseI... Option ExplicitPrivate Sub Command1_Click()Dim A As Single
A = Val(Text1.Text)Select Case A
Case Is > 0, Is < 60
MsgBox ("不及格")Case Is >= 60, Is < 80
MsgBox ("良好")Case Is >= 80, Is <= 100
MsgBox ("优秀")Case Else
MsgBox ("成绩不合法")End Select
End Sub
这段代码错哪儿了,怎么每次输入成绩后点击后都提示不及格......
展开
 我来答
匿名用户
2013-11-23
展开全部
case后面的IS只能执行一个范围,如IS>0,IS<60那么只会执行IS>0这个,所以你的代码就有问题了,效果不是你想要的,可以用To表示范围的,你改写成如下的代码就OK了。Private Sub Command1_Click()Dim A As Single
A = Val(Text1.Text)
Select Case A
Case 0 To 60
MsgBox ("不及格")
Case 60 To 80
MsgBox ("良好")
Case 80 To 100
MsgBox ("优秀")
Case Else
MsgBox ("成绩不合法")End Select
End Sub
匿名用户
2013-11-23
展开全部
呃!你Select Case A是变量A,Case里判断又是变量ls,当然不对了。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式