学生成绩这样分发
作为一名老师，经常被问到这样的问题：“老师，我的成绩什么时候发？”、“老师，我的成绩出来了吗？”等等。倍感烦恼，需要花费时间来回答这些问题，而且有时候学生还会因为成绩不佳而抱怨。那么，如何解决这些问题？答案就是建立一个自助查询成绩的系统。
我来教给各位如何使用各种代码和Excel来实现这个系统。如果您也是老师，那么这些技能可能会对您有所帮助。
先把最简单的方法告诉大家，老师可以直接使用易查分来发布查询成绩的操作。只需注册一个账号，并登录系统。然后，创新查询，输入成绩信息，提交生成查询，学生或家长只需扫描程序二维码，即可查询到自己的成绩。
首先，创建一个Excel文件，其中包含学生的姓名、学号、课程名称和成绩等信息。可以使用以下步骤来完成这个任务：
打开Excel并创建一个新文件。
在第一列中输入学生的姓名，第二列中输入学生的学号，第三列中输入课程名称，第四列中输入成绩。
根据班级情况，输入所有学生的信息。
将文件保存为“学生成绩表.xlsx”。
然后需要编写一个VBA宏，以便学生能够通过输入学号来查询自己的成绩。以下是VBA代码的示例：
vba复制代码
Sub 查询成绩()
Dim stunum As String
Dim rng As Range
Dim row As Range
Dim cell As Range
Dim result As String
stunum = InputBox("请输入您的学号")
Set rng = ThisWorkbook.Sheets("Sheet1").Range("A2:D100")
Set row = rng.Find(What:=stunum, LookIn:=xlValues, LookAt:=xlWhole)
If row Is Nothing Then
MsgBox "未找到该学生的成绩信息！"
Else
result = "学号：" & stunum & vbCrLf & "成绩如下：" & vbCrLf & _
"课程名称" & vbTab & "成绩" & vbCrLf & _
Application.WorksheetFunction.Sum(row.Offset(0, 1).Resize(1, 2)) & vbCrLf & _
"总分：" & Application.WorksheetFunction.Sum(row.Offset(0, 1).Resize(1, 3)) & vbCrLf & _
"平均分：" & Application.WorksheetFunction.Average(row.Offset(0, 1).Resize(1, 3))
MsgBox result
End If
End Sub
这段代码会让学生在Excel中输入学号，然后搜索包含该学号的行。如果找到了该学生的信息，则会显示一个对话框，其中包含该学生的成绩信息，包括总分和平均分。如果没有找到该学生的信息，则会显示一个错误消息框。
