【正确答案】正确答案：【操作步骤】 Do While Not EOF(1) num＝k－1 Private Sub Command2 C1iCk() '=========考试编写============== Dim k As Integer，j As Integer Dim temp As rec For i＝1 To num－1 k＝i For j＝i＋1 To num If sum(k) ＜ sum(j)Then k＝j End If Next j temp＝a(i)：a(i)＝a(k) a(k)＝temp Next i For k＝1 To hum Print a(k)．name；a(k)．Math； a(k)．Chinese；a(k)．English Next k '============================= 步骤2：按＜F5＞键运行程序，单击各个按钮测试验证。 步骤3：按要求将文件保存至考生文件夹中。