【正确答案】正确答案：步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗口中，去掉程序中的注释符“'”，将问号“?”改为正确的内容。参考代码： Do While Not EOF(1) num=k-1 Private Sub Command2 Click() '=========考试编写============ 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 num Print a(k)．name；a(k)．Math； a(k)．Chinese；a(k)．English Next k '--------------------------------- 步骤2：按＜F5＞键运行程序，单击各个按钮测试验证。 步骤3：按要求将文件保存至考生文件夹中。

【答案解析】解析：题目要求从in5．txt读出数据，然后丰非序并保存到输出文件。程序已经完成保存命令按钮的事件代码，需要补充排序代码和修改读取数据代码。 第一个“?”处判断循环的结束条件，如果文件没有结束则继续读取，EOF函数检查文件是否到文件尾，参数是文件号；第二个“?”处是计算记录的数量，由于循环变量k的初值为1，每次循环记录数增加1，因此循环结束之后k比记录数多1。 数据排序可以使用多种排序方法，比如选择法排序，其方法是：(1)从n个数的数序列中选出最大的数，与第1个数交换位置；除第1个数外，其余n-1个数再按(1)的方法选出次大的数，与第2个数交换位置；(3)重复(1)步n-1遍，最后构成递减序列。