用vb编写程序将第1题建立的数据文件读入且求出每个学生的平均成绩。

以下是一个用VB编写的读取数据文件并计算每个学生平均成绩的程序：

Dim inputFile As String
Dim studentName(100) As String
Dim mathScore(100) As Double
Dim englishScore(100) As Double
Dim scienceScore(100) As Double
Dim numStudents As Integer
Dim totalScore As Double
Dim averageScore As Double
Dim i As Integer

'获取输入文件名
inputFile = InputBox("请输入数据文件名：")

'打开数据文件
Open inputFile For Input As #1

'读取数据文件中的数据
i = 1
Do Until EOF(1)
    Input #1, studentName(i), mathScore(i), englishScore(i), scienceScore(i)
    i = i + 1
Loop

numStudents = i - 1 '学生人数为i减1

'关闭数据文件
Close #1

'计算每个学生的平均成绩并输出结果
For i = 1 To numStudents
    totalScore = mathScore(i) + englishScore(i) + scienceScore(i)
    averageScore = totalScore / 3
    MsgBox studentName(i) & "的平均成绩为：" & averageScore
Next i

该程序首先要求用户输入数据文件名，然后打开文件并读取数据。读取完数据后，程序计算每个学生的平均成绩，并通过消息框输出结果。

请注意，该程序假设数据文件中有100个学生的数据，因此创建了名为studentName、mathScore、englishScore和scienceScore的数组，每个数组都有100个元素。如果数据文件中的学生人数不足100人，则数组中的剩余元素将保持为默认值（即空字符串和0）。

此外，该程序还假设数据文件中每行包含学生姓名、数学成绩、英语成绩和科学成绩，且每个值之间用空格分隔。如果数据文件的格式不同，则需要相应地修改程序