UC知道急~!请教vb select case 语法
来源：百度知道 编辑：UC知道 时间：2024/05/12 03:57:40
以text1输入一个分数,并判断其属於哪一级:
60分以下为”不及格”,60~70为”及格”
70~80为”中等”,80~90为”良好”
90以上为”优秀”
要求用select case 叙述完成,结果以label 1显示
这个我考试做过,但明明写的跟老师的答案一样
可是play的时候就时不出答案!
求高人指点
是用text1输入啦~ 没问题这我会改 ~但是
最后90分以上不用else吗?记得老师说过全都是统一用小于/大于符号的~^^我自己没有安装vb试不了~明天就要大考啦
60分以下为”不及格”,60~70为”及格”
70~80为”中等”,80~90为”良好”
90以上为”优秀”
要求用select case 叙述完成,结果以label 1显示
这个我考试做过,但明明写的跟老师的答案一样
可是play的时候就时不出答案!
求高人指点
是用text1输入啦~ 没问题这我会改 ~但是
最后90分以上不用else吗?记得老师说过全都是统一用小于/大于符号的~^^我自己没有安装vb试不了~明天就要大考啦
x = InputBox("分数:")
Select Case x
case is<60
y="不及格"
case is<70
y="及格"
case is<80
y="中等"
case is<90
y="良好"
case is>=90
y="优秀"
End Select
label1.caption=y
调试过了~~可以..
上面的兄弟的回答如果输入100分以上还是优秀,加了一个判断
另外,输入后用VAL取值
Private Sub Command1_Click()
Dim F As Integer, J As String
F = Val(Text1.Text)
Select Case F
Case Is < 60
J = "不及格"
Case Is < 70
J = "及格"
Case Is < 80
J = "中等"
Case Is < 90
J = "良好"
Case Is <= 100
J = "优秀"
Case Else
J = "输入错误"
End Select
Label1.Caption = J
End Sub