VB高手进来帮给忙啊

来源：百度知道 编辑：UC知道 时间：2024/09/22 17:42:01
有几名学生的成绩如：A，数学85，物理87，化学93，英语95 ；B ，数学91，物理90，化学93，英语95；C数学83，物理77，化学63，英语85；

编写程序，将上述成绩输入数组，并对学生成绩进行检索。只要键入一个学生姓名，就可以显示成绩。

要求：1 使用动态数组，输入的人数可以根据情况决定，

2 当要检索的学生名不在成绩表时，要给出提示信息，

3每次检索后，询问是否继续检索，并能根据输入信息决定是否结束程序

代码不算短，连一分也没有？
Option Base 1
Private Type Stu
StuName As String
Math As String
Chem As String
Phsi As String
English As String
End Type
Dim StuFile() As Stu
Dim counter As Integer

Private Sub Command1_Click()
counter = counter + 1
ReDim Preserve StuFile(counter)
StuFile(counter).StuName = Text1.Text
StuFile(counter).Math = Text2.Text
StuFile(counter).Chem = Text3.Text
StuFile(counter).English = Text4.Text
StuFile(counter).Phsi = Text5.Text
MsgBox "档案建立成功！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Command2_Click()
Dim Get_ As Integer
For i = 1 To counter
If StuFile(i).StuName = Text1.Text Then
Text2.Text = StuFile(i).Math
Text3.Text = StuFile(i).Chem
Text4.Text = StuFile(i).English
Text5