2. 计算机
  3. 考生文件夹下有工程文件sjt5．vbp，窗体界面如图所示。考生文件夹下的in5．dat文件中有某次歌曲大奖赛10位选手的得分，文件中的每一行数据包含选于的编号及5位评委的打分。程序运行时，单击“显示数据”按钮，则将in5．dat文件的内容读入二维数组a中，

考生文件夹下有工程文件sjt5．vbp，窗体界面如图所示。考生文件夹下的in5．dat文件中有某次歌曲大奖赛10位选手的得分，文件中的每一行数据包含选于的编号及5位评委的打分。程序运行时，单击“显示数据”按钮，则将in5．dat文件的内容读入二维数组a中，

admin2016-09-06  39
问题 考生文件夹下有工程文件sjt5．vbp，窗体界面如图所示。考生文件夹下的in5．dat文件中有某次歌曲大奖赛10位选手的得分，文件中的每一行数据包含选于的编号及5位评委的打分。程序运行时，单击“显示数据”按钮，则将in5．dat文件的内容读入二维数组a中，并将数组a符元素的值显示在Text1文本框中；单击“计算并排序”按钮，则先计算每位选手的平均分作为最后得分，再按最后得分从高到低排序，最后按序在List1列表框中显示各选手的编号和最后得分(每组编号和最后得分用空格隔开作为一行)。单击“保存”按钮，则保存结果。“显示数据”和“保存”按钮的Click事件过程已经给出，请编写“计算并排序”按钮的Click事件过程实现上述功能。
    注意：考生不得修改窗体文件中已经存在的摔件和程序，在结束程序运行之前，必须单击“计算并排序”按钮后，再单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题项目工程。 步骤2：打开代码编辑窗口，去掉程序中的注释符"’"，将 问号改为正确的内容。 参考答案 Private Sub Command2_Click() Dim i，j As Integer Dim s As Single Dim temp As Single For i＝1 To 10 s＝0 For j＝2 To 6 s＝s＋a(i，j) Next j List1．AddItem s／6 Next i For i＝0 To List1．ListCount－1 For j＝i＋1 To List1，LisstCount－1 If List1．List(i)＜List1．List(j) Then temp ＝List1．List(j) Then List1．List(i)＝List1．List1．List(j) List1．List(j)＝temp End If Next j Next i End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/JZLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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