VB程序：读取学生成绩数据文件并计算平均成绩

以下是一个用VB编写的程序，可以将一个包含学生信息的数据文件读入，并计算每个学生的平均成绩：

Private Sub btnReadFile_Click()

    '打开数据文件
    Dim fso As New FileSystemObject
    Dim dataFile As TextStream
    Set dataFile = fso.OpenTextFile("C:\data.txt", ForReading)

    '读取数据文件中的每一行
    Dim line As String
    Dim fields() As String
    Dim name As String
    Dim englishScore As Integer
    Dim mathScore As Integer
    Dim computerScore As Integer
    Dim totalScore As Integer
    Dim numStudents As Integer
    numStudents = 0
    Do While Not dataFile.AtEndOfStream
        line = dataFile.ReadLine
        fields = Split(line, vbTab)
        name = fields(1)
        englishScore = CInt(fields(2))
        mathScore = CInt(fields(3))
        computerScore = CInt(fields(4))
        totalScore = englishScore + mathScore + computerScore
        '计算平均成绩并输出
        Dim averageScore As Double
        averageScore = totalScore / 3
        Debug.Print name & "的平均成绩为：" & averageScore
        numStudents = numStudents + 1
    Loop
    dataFile.Close
    '输出学生总数
    Debug.Print "共有" & numStudents & "名学生。"
End Sub

这个程序假设数据文件的格式如下：

学号	姓名	英语成绩	数学成绩	计算机成绩
001	张三	80	90	85
002	李四	75	85	90
003	王五	90	80	95

其中每一行表示一个学生的信息，以制表符分隔各字段。程序将读取每个学生的姓名和三门成绩，并计算出总成绩和平均成绩，然后输出到调试窗口。最后，程序还会输出学生的总数。