1、必做题：在每道题正确无误后保存为结果文件（*.exe），以自己的姓名加学号后两位进行命名，然后提交作业）
请通过一个文本框输入一学生成绩，让后单击命令按钮“评定”，将评定结果显示在第二个文本框中。成绩等级评定的方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以为“不合格”。设计界面如下所示：(请同学们尝试用if多分支结构和情况语句select case去实现)

运行界面：

代码提示：

Private Sub Command1_Click()
Dim x%, g$
x = Val(Text1)
If x >= 90 Then
    g = "优秀"
ElseIf x >= 80 Then
    g = "良好"
ElseIf x >= 70 Then
    g = "中等"
ElseIf x >= 60 Then
    g = "及格"
Else
    g = "不及格"
End If
Text2 = g

End Sub

2、附加题（选做题，请有能力的同学完成下面的任务）
假定当前不是闰年，请输入月份，显示一个月有多少天？设计加密如下图所示：

代码提示如下：

Private Sub Form_Click()

Dim m%, d%

m = Val(InputBox("请输入月份"))

   Select Case m

   Case 1, 3, 5, 7, 8, 10, 12

      d = 31

   Case 4, 6, 9, 11

      d = 30

   Case 2

      d = 28

   Case Else

      MsgBox ("你输入的月份有误，请重新输入！")

   End Select

If m <= 12 Then

  Label1.Caption = m & "月有" & d& "天"

End If

End Sub