全国计算机考试VB上机重点.docVIP

(2)在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中待选城市下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项，如图4(a)所示，单击选中按钮则把选中的项目移到List2中；单击显示按钮，则在Text1文本框中显示这些选中的城市，如图4(b)所示。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (a) (b) 图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。 参考代码： For k = List1.ListCount - 1 To 0 Step -1 List2.AddItem List1.List(k) List1.RemoveItem k Text1 = Text1 List2.List(k) 步骤2：按要求将文件保存至考生文件夹中。 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件，如图3所示。运行时，单击发射按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Label1和Label2中；单击保存按钮，则把飞行距离、所用时间存入考生文件夹下的out4.txt文件中。 文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图3 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。 参考代码： Timer1.Enabled = True Timer1.Enabled = False d = d – Image1.Top t = t + 1 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按F5键运行程序，先单击发射按钮，计算完毕后单击存盘按钮，最后单击窗体右上角的关闭按钮结束程序。 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下： 32437658281298573142536475869713243546576879805937 程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵右上-左下对角线上的数据，如图4所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 图4 【操作步骤】 步骤1：打开本题对应工程文件sjt5.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。 参考代码： Dim Mat%(M, N) Open App.Path \ in5.txt For Input As #1 Input #1, Mat(i, j) If i + j = 6 Then 步骤3：按要求将文件保存在考生文件夹中。 (2)在考生文件夹下有一个工程文件sjt4.vbp，文件in4.txt中有5组数据，每组10个，依次代表语文、英语、数学、物理、化学这5门课程10个人的成绩。程序运行时，单击读入数据按钮，可从文件in4.txt中读入数据放到数组a中。单击计算按钮，则计算5门课程的平均分(平均分取整)，并依次放入Text1文本框数组中。单击显示图形按钮，则显示平均分的直方图，如图4所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图4 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。 参考代码： Open App.Path \in4.txt For Input As #1 s(i) = s(i) + a(i, j) s(i) = CInt(s(i) / 10) Shape1(k - 1).Top = m - Shape1(k –1). _ Height Shape1(k - 1).Visible = True 步骤2：按要求将文件保存至考生文件夹中。 (