Question

VB学生成绩等级的程序

要求输入一个学生的考试成绩，输出其分数和对应的等级。共分五个等级：小于60分的为“E”；60~69分为“D”；70~79分为“C”；80~89分为“B”；90分以上为“A”。同时要求能够对错误的输入进行相应处理
邮箱761486873@qq.com

Answer 1

VB中添加一个按钮点击就可以了
Private Sub Command1_Click()
a = InputBox("请输入分数：")
If IsNumeric(a) And a <= 100 And a >= 0 Then
Select Case a
Case 0 To 59
dd = "E"
Case 60 To 69
dd = "D"
Case 70 To 79
dd = "C"
Case 80 To 89
dd = "B"
Case 90 To 100
dd = "A"
Case Else
dd = "成绩错误！"
End Select
MsgBox dd
Else
MsgBox "你输入的成绩非法"
End If
End Sub

Answer 2

运行程序要讲效率,这里不用select---case更是一种高效率的思路:------daode1212x=inputbox("","",66)
if x>=0 and x<=100 then d=x\10 if d<5 then d=5 c=74 -d msgbox chr(c)else msgbox "x Error !"end if

Answer 3

Private Sub Command1_Click()
a = Val(InputBox("请输入分数："))
Select Case a
Case 60 To 69
dd = "D"
Case 70 To 79
dd = "C"
Case 80 To 89
dd = "B"
Case 90 To 100
dd = "A"
Case Else
dd = "成绩错误！"
End Select
Print dd
End Sub