源代码：
Private Sub Command1_Click()
Dim i As Integer
i = Val(Text1)
If i = 100 Then
MsgBox "满分"
ElseIf i >= 85 Then
MsgBox "优秀"
ElseIf i >= 75 Then
MsgBox "良好"
ElseIf i >= 60 Then
MsgBox "及格"
Else
MsgBox "不及格，该努力了"
End If
End Sub
小技巧：
可将Form窗体StartUpPosition属性设置为“2-屏幕中心”，窗体运行时就会居中显示。
