1、国家二级 VB机试（上机操作）模拟试卷 338及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 “，每个按钮的高、宽均为 400、 900。窗体的标题为 “按钮示例 “。运行后的窗体如图3 62所示。 (1)在名称为 Form1的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、“否 ”、 “取消 “，每 个按钮的高、宽均为 400、
2、 900。窗体的标题为 “按钮示例 “。运行后的窗体如图 3 62所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjl vbp，窗体文件名为 vbsjl frm。 (2)在名称为 Form1的窗体上画一个名称为 Drvl的驱动器列表框，一个名称为 Dirl的目录列表框，一个名称为 Filel的文件列表框，名称为 Label1、标题为 “文件名 ”的标签和名称为 Label2、 BorderStyle为 1的标签。窗体的标题设置为 “文件系统控件 ”。请编写适当的程序，使得这三个文件系统控件可以同步变化， 即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容
3、同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2中，如图 3 63所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsi2 vbp，窗体文件名为 vtsji2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm，在窗体上有一个命令按钮 (名称为 Command1，标题为 “计算并输出 ”)和两个文本框 (名称分别为 Text1和 Text2)，如图 3-90所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数的正数之和 pos与负数之和
4、 neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。 在窗体上有两个命令按钮，其名称分别为 Command1、Command2；一个标签，其名称为 Label1；一个计时器，其名称为 Timerl，如图3 91(a)所示。程序运行后，如果单击 “开始 ”命令按钮，则该按钮变为禁用，而标题变为 “继续 “，同时标签中的字体每
5、隔 100毫秒增大 0 1倍 (即变为原来的 1 1倍 )，如图 3 91(b)所示，字体大小超过 100后，自动缩小为 8；如果单击 “停止 ”命令按钮，则该按钮变为禁用， “继续 ”命令按钮变为有效，同时标签中的字体停止变化；再次单击 “继续 ”命令按钮后，标签中的字体继续变化。 这个程序不完整，请仔细阅读已有内容，并把它补充完 整，使之能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序运行时，单击 “显示数据 ”按钮，
6、则将考生文件夹下 in5 dat文件的内容读入一维数组 a中，并按下标顺序将数组 a各元素的值显示在 List1列表框中；单击 “移动 “按钮，则将数组 a中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在 List2列表框中。单击 “保存 “按钮，则保存移动后的结果。 要求： “显示数据 ”和 “保存 ”按钮的Click事件过程已经给出，请编写 “移动 ”按钮的 Click事件过程实现上述功能。程序窗体界面如图 3-45所示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击 “移动 ”按钮，并单击 “保存 ”按钮保存结果，否则无成绩。最
7、后程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 338答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，单击工具箱中的CommandButton控 件图标，在窗体 Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为 cmdArray， Width属性值设置为 900， Height属性值设置为 400。 步骤 2：选中 cmdArray控件，选择【编辑】 【复制】命令，然后选择【编辑】 【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择 “是 ”按钮，如图 4 1所示，则可以建立 cmdArray控件数组的第 2
8、个元素。再次选择【编辑】 【粘贴】命令，建立 cmdArray控件数组的第 3个元素。步骤 3：依次选中 cmdArray控件数组中各个元素，设置它 们的相关属性，属性及其值如表 4-38所示。步骤 4：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建 “标准 EXE”工程，往窗体 Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 4 39所示。步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Drvl_Change()Dirl Path=Drvl DriveEnd SubPriVate S
9、ub Dirl_Change()Filel Path=Dirl PathEnd SubPriVate Sub Filel_Click()Label2 Caption=Filel FileNameEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题只需按题目要求在窗体中画一个命令按钮控件数组即可。 (2)驱动器列表框 (Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表：目录列表框 (Dir List Box)用来分层显示指定磁盘驱动器上的目录列表；文件列表框 (File List Box)用来显示指定目录中所选择文件类型的文件列表，默认为*
10、*。在程序运行时，驱动器列表框的 Drive属性用来设置或返回选择的驱动器(缺省值是当前驱动器 )，目录列表框的 Path属性用来设置或返回选择的目录 (缺省值是当前路径 )，文件列表框的 Path属性用来设置或返回其当前的目录 (缺省值是当前路径 )，文件列表框的 FileName属性可返回所选文件的文件名。 要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目 录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目录列表框、文件列表框相互关联起来，这可通过编写驱动器列表框、目录列表框的 Change事件过程，使三者的路径保持一致来实现。 二、简单应用题 2 【正确答案】 (
11、1)步骤 1：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Arr(k) 0 Then pos =pos +Arr(k) neg=neg+Arr(k) 步骤 3：按要求将文 件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Command1单击事件中改错 Timerl Enabled=True Command2单击事件中改错 Timerl Enabled=Fa
12、lse Timerl单击事件中改错 If Label1 FontSizen 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 j=1 To 10 List2 AddItem(a(i) Next i = End Sub 步骤 2：按 运行程序，单击各 按钮测试验证。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 只需要完成 “移动 ”命令按钮的 Click事件代码，根据题目要求在点击移动命令按钮，找出数组 a的最大值，可以通过循环来查找最大值；接下来把最大值移动到数组的最前面，即把最大值前面的数往后移动一个位置，然后把最大值放到第一个元素位置，移动过程同样通过循环实现；最后一步是通过循环，把数组 a的内容添加到 List2列表框里面。
