2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp。程序运行时，单击“显示数据”按钮，则将考生文件夹下in5．dat文件的内容读入一维数组a中，并按下标顺序将数组a各元素的值显示在List1列表框中；单击“移动”按钮，则将数组a中的最大值移动到数组的最前面，其他

在考生文件夹下有一个工程文件sjt5．vbp。程序运行时，单击“显示数据”按钮，则将考生文件夹下in5．dat文件的内容读入一维数组a中，并按下标顺序将数组a各元素的值显示在List1列表框中；单击“移动”按钮，则将数组a中的最大值移动到数组的最前面，其他

admin2019-05-14  64
问题 在考生文件夹下有一个工程文件sjt5．vbp。程序运行时，单击“显示数据”按钮，则将考生文件夹下in5．dat文件的内容读入一维数组a中，并按下标顺序将数组a各元素的值显示在List1列表框中；单击“移动”按钮，则将数组a中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在List2列表框中。单击“保存”按钮，则保存移动后的结果。
要求：“显示数据”和“保存”按钮的Click事件过程已经给出，请编写“移动”按钮的Click事件过程实现上述功能。程序窗体界面如图3—45所示。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击“移动”按钮，并单击“保存”按钮保存结果，否则无成绩。最后程序按原文件名存盘。
选项
答案步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Private Sub Command2_Click() ’======考生编写的程序============ Dim n As Integer，s As String Dim i，j As Integer n=0：j=0 For i=1To10 If a(i)＞n Then n=a(i)：j=i End If Next For i=jTo2step-1 a(i)=a(i-1) Next a(1)=n For j=1To10 List2．AddItem(a(i)) Next i ’============================== End Sub 步骤2：按＜F5＞运行程序，单击各按钮测试验证。 步骤3：按要求将文件保存至考生文件夹中。
解析 只需要完成“移动”命令按钮的Click事件代码．根据题目要求在点击移动命令按钮，找出数组a的最大值，可以通过循环来查找最大值；接下来把最大值移动到数组的最前面，即把最大值前面的数往后移动一个位置，然后把最大值放到第一个元素位置，移动过程同样通过循环实现；最后一步是通过循环，把数组a的内容添加到List2列表框罩面。
转载请注明原文地址:https://kaotiyun.com/show/lHUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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