UC知道VB题麻烦大家做一下，感觉比较难。。
来源：百度知道 编辑：UC知道 时间：2024/05/17 01:03:39
参考 V isual Basic 程序设计教程 例：5.13、5.7、5.8
完成下列功能：
1. 输入并保存数据，在保存命令按钮事件中完成对学生的学号、姓名、数学、英语、计算机成绩的输入，并保存在自定义类型数组元素中，然后将数组中所有学生信息在picture 1 图形框中输出。（5.13）
2. 插入：在插入命令按钮时间过程中按学好的先后顺序将输入的学生信息插入到自定义类型数组中。（5.7）
3. 删除：在删除命令按钮事件过程中，按学号找到学生并删除该学生的全部内容。（5.8）
4. 查询：实现按姓名、数学、英语、计算机成绩进行查询，并将符合查询条件的学生信息在picture 2图形框中输出。（5.13）
要求：1. 将工程中所有控件的属性设置用列表说明，包括控件名、标题。
2. 每一个功能实现要有相应的截图。
3. 各功能代码段要有相应的注释。
完成下列功能：
1. 输入并保存数据，在保存命令按钮事件中完成对学生的学号、姓名、数学、英语、计算机成绩的输入，并保存在自定义类型数组元素中，然后将数组中所有学生信息在picture 1 图形框中输出。（5.13）
2. 插入：在插入命令按钮时间过程中按学好的先后顺序将输入的学生信息插入到自定义类型数组中。（5.7）
3. 删除：在删除命令按钮事件过程中，按学号找到学生并删除该学生的全部内容。（5.8）
4. 查询：实现按姓名、数学、英语、计算机成绩进行查询，并将符合查询条件的学生信息在picture 2图形框中输出。（5.13）
要求：1. 将工程中所有控件的属性设置用列表说明，包括控件名、标题。
2. 每一个功能实现要有相应的截图。
3. 各功能代码段要有相应的注释。
难道不难，就是有点烦。
回头做了给你。
补充，你不会连截图都要别人给你做？
过程的注释，就免了。
Private Type jilu
学号 As String
姓名 As String
数学 As Single
英语 As Single
计算机 As Single
End Type
Dim 二班() As jilu
Dim 人数 As Integer
Private Sub 新纪录()
人数 = 人数 + 1
ReDim Preserve 二班(人数)
二班(人数).学号 = no
Do
二班(人数).姓名 = InputBox("请输入" & no & "号同学的姓名: ")
Loop Until 二班(人数).姓名 <> ""
Do
二班(人数).数学 = InputBox("请输入" & no & "号同学的数学成绩: ")
Loop Until 二班(人数).数学 >= 0
Do
二班(人数).英语 = InputBox("请输入" & no & "号同学的英语成绩: ")
Loop Until 二班(人数).英语 >= 0
Do
二班(人数).计算机 = InputBox("请输入" & no & "号同学的计算机成绩: ")
Loop Until 二班(人数).计算机 >= 0
End Sub
Private Sub 排序()
Picture1.Cls
For i = 1 To 人数 - 1
For j = i + 1 To 人数
If 二班(i).学号 > 二班(j).学号 Then
t =