Question

VB程序设计题，求答案

用select语句编程，根据分数x的值，判断学生成绩等级
程序设计要求:
1.单击窗体时使用InputBox()输入x的值。
2.如果输入的x值大于100，则变量s=“请输入小于100的数值”
如果输入的值在60-100之间，则变量s=“及格”
如果输入的值在0-59之间，则变量s=“不及格”
3.程序编译通过后，输入x=85进行测试

Answer 1

Option Explicit
Private Sub Form_Click()
Dim x As Single, msg As String
Dim s As String
msg = InputBox("请输入分数x:")
If Trim(msg) = "" Then Exit Sub '如果按取消按钮就不做处理
x = Val(msg)
Select Case x
Case Is > 100
s = "请输入小于100的数值"
Case Is >= 60
s = "及格"
Case Is >= 0
s = "不及格"
Case Else
End Select

Print s
End Sub