问答题 在考生文件夹下有一个工程文件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=1 To 10 If a(i)>n Then n=a(i) : j=i End If Next For i=j To 2 Step-1 a(i)=a(i-1) Next a(1)=n For i=1 To 10 List2.AddItem(a(i)) Next i '==================================== End Sub 步骤2:按<F5>运行程序,单击各按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
【答案解析】