VB编程题。急

来源：百度知道 编辑：UC知道 时间：2024/06/30 18:24:22
从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语。
成绩： 80~100 60~79 50~59 40~49 0~39
评语： verygood good fair poor fail

Private sub Form_click()
dim a,b,c As string
tit$="成绩状况"
msg1$="请输入学号"
msg2$="请输入成绩"
a=Input box (msg1$,tit$)
b=Input box (msg2$,tit$)
if (b>=80 And b<=100)Then
c="very good"
Else if(b>=60 And b<=79)Then
c="good"
Else if(b>=50 And b<=59)Then
c="fair"
Else if(b>=40 And b<=49)Then
c="poor"
Else if(b>=0 And b<=39)Then
c="fail"
End if
print a,b,c
end sub

Private Sub Command1_Click()
Select Case Val(InputBox("请输入成绩", "成绩输入"))
Case 80 To 100
MsgBox "verygood"
Case 60 To 79
MsgBox "good"
Case 50 To 59
MsgBox "fair"
Case 40 To 49
MsgBox "poor"
Case Is < 39
MsgBox "fail"
End Select

End Sub

dim a as string
private sub command1_c