《全国计算机考试VB上机重点.doc》由会员分享，可在线阅读，更多相关《全国计算机考试VB上机重点.doc（5页珍藏版）》请在金锄头文库上搜索。
1、(2)在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中待选城市下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项，如图4(a)所示，单击选中按钮则把选中的项目移到List2中；单击显示按钮，则在Text1文本框中显示这些选中的城市，如图4(b)所示。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (a) (b)图4【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符
2、，将问号?改为正确的内容。参考代码：For k = List1.ListCount - 1 To 0 Step -1List2.AddItem List1.List(k)List1.RemoveItem kText1 = Text1 & & List2.List(k)步骤2：按要求将文件保存至考生文件夹中。(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件，如图3所示。运行时，单击发射按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Label1和Label2中；单击保存按钮，则把飞行距离
3、、所用时间存入考生文件夹下的out4.txt文件中。文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。图3【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Timer1.Enabled = TrueTimer1.Enabled = Falsed = d Image1.Topt = t + 1步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击发射按钮，计算完毕后单击存盘按钮，最后单击窗体右
4、上角的关闭按钮结束程序。三、综合操作题在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵右上-左下对角线上的数据，如图4所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能
5、，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。图4【操作步骤】步骤1：打开本题对应工程文件sjt5.vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Dim Mat%(M, N)Open App.Path & & in5.txt For Input As #1Input #1, Mat(i, j)If i + j = 6 Then步骤3：按要求将文件保存在考生文件夹中。(2)在考生文件夹下有一个工程文件sjt4.vbp，文件in4.txt中有5组数据，每组10个，依次代表语文、英语、数学、物理、化学这5门课程10个人的成绩。程序运行时，单
6、击读入数据按钮，可从文件in4.txt中读入数据放到数组a中。单击计算按钮，则计算5门课程的平均分(平均分取整)，并依次放入Text1文本框数组中。单击显示图形按钮，则显示平均分的直方图，如图4所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。图4【操作步骤】步骤1：打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Open App.Path & in4.txt For Input As #1s(i) =
7、s(i) + a(i, j)s(i) = CInt(s(i) / 10)Shape1(k - 1).Top = m - Shape1(k 1). _ HeightShape1(k - 1).Visible = True步骤2：按要求将文件保存至考生文件夹中。(2)在名称为Form1的窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，名称为Label1、标题为文件名的标签和名称为Label2、BorderStyle为1的标签。窗体的标题设置为文件系统控件，如图2所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表
8、框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。图2【操作步骤】步骤1：新建标准EXE工程，往窗体Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表2所示。表2步骤2：打开代码编辑窗口，输入如下代码：参考代码：Private Sub Dir1_Change() File1.Path = Form1.Dir
9、1End SubPrivate Sub Drive1_Change() Dir1 = Me.Drive1End SubPrivate Sub File1_Click() Label2 = File1.FileNameEnd Sub步骤3：按要求将文件保存至考生文件夹中。三、综合操作题在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt，文件中的每个记录包括三个字段，分别为姓名、电话和邮编，其名称、类型和长度如下：Name字符串8Tel字符串10PostLong窗体中有一个文本框和两个命令按钮。程序运行后，如果单击读入并显示记录按钮，则从考生文件夹下的in5.txt文件中读入所有
10、记录并显示在文本框中(每条记录占一行，数据项的顺序是姓名、电话、邮编，如图5所示，可使用符号常量vbCrLf表示回车换行)；若单击保存按钮则把文本框中的内容存入out5.txt文件中。要求：编写读入并显示记录按钮的Click过程。把文本框中所有字母改为大写字母(可手工修改)。单击保存按钮把修改后的文本框内容存盘，否则无成绩！(过程已给出，不能修改)。最后以原文件名保存放在考生文件夹下。图5【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：参考代码：Open App.Path & in5.txt For Random As #1 Len =
11、Len(pal)For i = 1 To 5 Get #1, i, pal Text1.Text = Text1.Text & pal.Name Text1.Text = Text1.Text & pal.Tel Text1.Text = Text1.Text & Str(pal.Post) Text1.Text = Text1.Text + vbCrLfNextClose 1步骤2：按要求将文件保存至考生文件夹中。步骤3：按键键运行程序，先单击读入记录按钮，然后把文本框中把所有字母改为大写字母，再单击保存记录按钮。(2)在名称为Form1的窗体上画一个名称为Shape1的形状控件，画两个名称
12、分别为Command1、Command2，标题分别为圆形、红色边框的命令按钮。将窗体的标题设置为图形控件，如图2(a)所示。请编写适当的事件过程，使得在运行时，单击圆形按钮将形状控件设为圆形。单击红色边框按钮，将形状控件的边框颜色设为红色(&HFF&)，如图2(b)所示。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 (a) (b)图2【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个形状控件和两个命令按钮，并分别设置它们的相关属性，其属性及值如表2所示。表2步骤2：打开代
13、码编辑窗口，编写两个命令按钮的单击事件过程。参考代码：Private Sub Command1_Click() Shape1.Shape = 3End SubPrivate Sub Command2_Click() Shape1.BorderColor = &HFF&End Sub步骤3：按要求将文件保存至考生文件夹中。三、综合操作题在考生文件夹下有一个工程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及程序。请完成以下工作：在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图5所示；建立下拉式菜单，见表
14、1。表1窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的？改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时，剪切、复制不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则粘贴不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。图5【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，选中窗体中的文本框Text3，将其Visible属性为False。步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器
15、，如表4的内容建立窗体菜单。表4步骤3：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：If which = 1 ThenIf which = 2 ThenText1.Text = Text1.Text + Text3.TextText2.Text = Text2.Text + Text3.Text步骤4：按要求将文件保存至考生文件夹中。(2)在名称为Form1窗体上，画一个名称为Image1的图像框，在其中显示考生文件夹下的图片pic2.jpg，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为HScroll1、VScroll1，它们的刻度范围都是13。如图2(a)所示。要求如
