521.已知数据文件da5.dat中已存储有20个学生一门课程的成绩（整型），编程将该文件中20个学生的成绩赋给整型数组score，然后按照从高分到低分对成绩排序，并按一行五个输出显示。

    Dim score(19), i, j, t As Integer
        Dim str1 As String = ""
        FileOpen(                )
        For i = 0 To 19
            Input(1, score(i))
        Next
        FileClose(1)
        For i = 0 To 18
            For j =          To         
                If score(i) < score(j) Then
                    t = score(i)
                    score(i) = score(j)
                    score(j) = t
                End If
            Next   
        Next
        For i = 0 To 19   ‘每行显示5个
            。。。。。。
        Next
        MsgBox(str1)
528. 已知在文件da1.dat中，每个记录只有两项数据，第一项为一整数表示学生的学号，第二项为形如xx.x的一个实数，试统计计算并向文件t2.dat输出全部学生的平均成绩V。

    Dim i, id As Integer
        Dim cj, total, aver As Double
        total = 0
        FileOpen(1, "              ", OpenMode.Input)
        FileOpen(2, "              ", OpenMode.Output)
        i = 0
        While Not EOF(1)
             请把程序补充完整



        End While
        If i <> 0 Then
            aver = total / i
        End If
        MsgBox("aver= " + Str(aver))
        Write(2, aver)
        FileClose(1, 2)

还有一道题哦    求大神指点迷津

这都是基础训练，你要自力更生哟。