Question

设计具有百分制和等级成绩相互转换功能的程序VB的

设计具有百分制和等级成绩相互转换功能的程序。
（1）选择“百分制到等级”的转换模式，"请输入转换成绩"下的文本框中只能输入1—100间的数据；若填错弹出提示信息框
选择“等级到百分制”的转换模式，"请输入转换成绩"下的文本框中只能输入等级成绩A、B、C、D（或者小写a、b、c、d）若填错弹出提 示信息框
（2）单击“确定”按钮，另一文本框内显示转换后的成绩，注意不同转换模式下该文本框上标签文字是不同的,如选择“百分制到等级”的转 换模式则该标签文字为“您的等级成绩为：”，而另一种则为“您的百分制成绩为：”
（3）选择转换模式后，注意清除上述两文本框内的原有数据。
（4）单击“退出”按钮，结束程序。

Answer 1

abcd等级的分数假设为：>90,>80，>60,其他

If Option1.Value = True Then
Label1.Caption = "": Label2.Caption = ""
ElseIf Option2.Value Then
Label1.Caption = "": Label2.Caption = ""
End If

Private Sub command1_click()

Dim a As Integer

a = Val(Text1.Text)
If a >= 0 And a <= 100 Then
If a < 60 Then
Text2.Text = "D"
ElseIf a < 80 Then
Text2.Text = "C"
ElseIf a < 90 Then
Text2.Text = "B"
Else
Text2.Text = "A"
End If
Else
MsgBox "输入错误"
Text1.Text = ""
Text2.Text = ""
End If

End Sub

Answer 2

a、b、c、d的等级是什么？
其他不难。