例题：从输人框中输人一个学生的信息，包括学号，姓名，语文、数学及英语3科成绩，并输出该学生的学号，姓名，语文、数学及英语3科成绩，以及总分和平均分(保留两位小数)。

从输人框中输人一个学生的信息，包括学号，姓名，语文、数学及英语3科成绩，并输出该学生的学号，姓名，语文、数学及英语3科成绩，以及总分和平均分(保留两位小数)。
程序运行结果如图

Private Sub Form_Click()
Dim a&, b$, y!, s!, e!
Dim total#, avg!
 a = Val(InputBox("请输入学号"))
 b = InputBox("请输入姓名")
 y = Val(InputBox("请输入语文成绩"))
 s = Val(InputBox("请输入数学成绩"))
 e = Val(InputBox("请输入英语成绩"))
 total = y + s + e     '总成绩
 avg = total / 3       '平均分
 avg = Format(avg, "###.##")        '平均分保留两位小数
 
Print "===成绩单==="
Print "学号："; a
Print "姓名："; b
Print "语文："; y
Print "数学："; s
Print "英语："; e
Print "总分："; total
Print "平均分："; avg
End Sub