考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。 窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a

admin2019-05-14  28

问题 考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。
    窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个数组元素中有一条记录);按钮“排序”的功能是按总分从大到小排序,结果仍放在数组a中;按钮“保存”的功能是存盘,其代码已经给出,不能修改。
    请将事件过程中的注释符去掉,把“?”改为正确的内容,并编写“排序”按钮的事件过程。
    注意:考生不得修改窗体文件中已经存在的控件和程序,必须运行程序,并依次按下“读入数据”、“排序”、“保存”按钮,否则无成绩,最后将程序按原文件名存盘。

选项

答案【操作步骤】 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:按键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://jikaoti.com/ti/KSN0FFFM
0

相关试题推荐
最新回复(0)