在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码：　　　　
Pfivme　Sub　Command1_Click(　)
　　　　　 score=Iht(Rnd*10)+70
　　　　　 Select Case score　　　 　
Case ls＜60　　　　　
a＄=“F”
Case 60 T069
a＄=“D”
Case 70 To 79
a＄=“C”
Case 80 To 89
a＄=“B”
Case Else
a＄=“A”
End Select
Print aS
End Sub
程序运行后，单击命令按钮，输出结果是

A．A

B．B

C．C

D．D