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