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

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

admin2018-10-29  23
问题 考生文件夹下有工程文件sjt5．vbp和数据文件in5．txt。in5．txt中有多条记录，每条记录占一行，含4个数据项，数据项的含义依次是：姓名、数学成绩、语文成绩、英语成绩。
    窗体上按钮“读取数据”的功能是把in5．txt中的所有记录读到数组a中(每个数组元素中有一条记录)；按钮“排序”的功能是按总分从大到小排序，结果仍放在数组a中；按钮“保存”的功能是存盘，其代码已经给出，不能修改。
    请将事件过程中的注释符去掉，把“?”改为正确的内容，并编写“排序”按钮的事件过程。
    注意：考生不得修改窗体文件中已经存在的控件和程序，必须运行程序，并依次按下“读入数据”、“排序”，“保存”按钮，否则无成绩最后将程序按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件夹中的工程文件sj5．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：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/5CFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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