1、国家二级 VB 机试（上机操作）-试卷 51 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上建立一个名称为 cmdArray 的命令按钮数组，含 3 个命令按钮，它们的 lndex 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 400、900。窗体的标题为“按钮示例”。运行后的窗体如图 326 所示。 注意：存盘时必须存放在考生文件灾下，工程文件名为 vbsjlvbp，窗体文件名为 vbsi
2、lfrm。(2)在名称为 Forml 的窗体上画一个名称为 Drvl 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel 的文件列表框，名称为 Labell、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1 的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选巾的文件名显示在 Label2 中，如图 327 所示。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考
3、生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x 中，如图 3132 所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp，其窗体上有一个文本框，名称为 Textl；还有两个命令按钮，名称分别为 C1、C2，标题分别为“计算”、“存盘”，如图 3-20 所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其
4、功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于 15000 的第一个素数，并显示在Text1 中；单击“存盘”按钮，则把 Text1 中的计算结果存入考生文件夹下的 out5txt 文件中。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 51 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上建立一个名称为 cmdArr
5、ay 的命令按钮数组，含 3 个命令按钮，它们的 lndex 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 400、900。窗体的标题为“按钮示例”。运行后的窗体如图 326 所示。 注意：存盘时必须存放在考生文件灾下，工程文件名为 vbsjlvbp，窗体文件名为 vbsilfrm。(2)在名称为 Forml 的窗体上画一个名称为 Drvl 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel 的文件列表框，名称为 Labell、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1 的标签。窗体的标题设置为“文件
6、系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选巾的文件名显示在 Label2 中，如图 327 所示。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：新建一个“标准 EXE”工程，单击工具箱中的CommandButton 控件图标，在窗体 Forml 上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为cmdArray，Width 属性值设置为 900，Height 属性值设置为 400。 步骤 2：选中 cmdArray 控件，选择【编辑】【
7、复制】命令，然后选择【编辑】【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择“是”按钮，如图 41 所示，则可以建立 cmdArray 控件数组的第 2 个元素。再次选择【编辑】【粘贴】命令，建立 cmdArray 控件数组的第 3 个元素。 步骤 3：依次选中 cmdArray 控件数组中各个元素，设置它们的相关属性，属性及其值如表 416 所示。 步骤 4：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建“标准 EXE”工程，往窗体 Fontal 中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如
8、表417 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x 中，如图 3132 所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： n=Len(Te
9、xt1Text) b=Asc(Mid(s，i，1) Select Ca se b For i=0 To 2 x(i) =a(i) 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt4vbp，通过 Listl 列表框的 List 属性添加四个项目：文本框、标签命令按钮、单选按钮。 步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： For i=0 To LaLi stCount 一 1 LbAddItem LaLi st(i) Next LaClear 步骤 3：按要求将文件保存至考生文件夹
10、中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp，其窗体上有一个文本框，名称为 Textl；还有两个命令按钮，名称分别为 C1、C2，标题分别为“计算”、“存盘”，如图 3-20 所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于 15000 的第一个素数，并显示在Text1 中；单击“存盘”按钮，则把 Text1 中的计算结果存入考生文件夹下的 out5txt 文件中。（分数
11、：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题对应工程文件 sjt5vbp。 步骤 2：双击窗体Forml 上的“计算”按钮，打开代码编辑窗口，在其 Click 事件过程中输入如下代码： 参考代码： Private Sub C1 C1ick() a=15000 Do a=a+1 Loop Until isprime(a) Text1Text=a End Sub 步骤 3：双击窗体 Forml 上的“存盘”按钮，在代码编辑窗口其 Click 事件过程中输入如下代码： 参考代码： Private Sub C2 C1ick() Open AppPath&“out5txt”For Output AS#1 Print#1，Text1Text C10se#1 End Sub 步骤 4：按要求将文件保存至考生文件夹中。)解析：
