1、国家二级 VB机试（上机操作）模拟试卷 11及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个名称为 Ll的标签，标题为 ”请确认 ”；再画两个命令按钮，名称分别为 Cl、 C2，标题分别为 ”是 ”、 ”否 ”，高均为 300、宽均为 800。如图 2-76所示。请在属性窗口中设置适当属性满足以下要求： 窗体标题为 ”确认 ”，窗体标题栏上不显示最大化按钮和最小化按钮； 在任何情况下，按回车键都相当于单击 ”是 ”按钮；按 Esc键都相当于单击 ”否 ”按钮。注意：存盘时必须存放在考生文件夹下
2、，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个文本框，名称为 Textl，其宽度为 1000；再画一个滚动条，名称为 HSl。其刻度值的范围是 1000 2000。请编写滚动条的 Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图 2-77所示。程序中不能使用任何变量，事件过程中只能写一条语句。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体 文件名为 sjt2 Frm 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，窗体上有两个列表框
3、，名称分别为Listl、 List2，在 List2中已经预设了内容；还有两个命令按钮，名称分别为 C1、C2，标题分别为 ”添加 ”、 ”清除 ”，如图 2-78所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击 ”添加 ”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击 ”清除 ”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注 释符，把程序中的 ?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，请在
4、 Forml窗体上建立一个名称为Opl的单选按钮数组，含有三个单选按钮，其标题分别为 ”10!”、 ”11 !”、 ”12 !”，Index属性分别为 0、 1、 2；再画一个名称为 C1的命令按钮，标题为 ”计算 ”；画一个名称为 Textl的文本框，如图 2-79所示。程序的功能是在选定一个单选按钮并单击 ”计算 ”按钮后，可以计算出相应的阶乘值，在 Textl中显示该阶乘值。请画出上述控件并编写程序。注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。 三、综合应用题 5 在考生文件夹下有
5、一个工程文件 sjt5 vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；有一个名称为 CDl的通用对话框；还有三个命令按钮，名称分别为 Cl、 C2、 C3，标题分别为 ”打开文件 ”、 ”转换 ”、 ”存盘 ”，如图 2-80所示。命令按钮的功能是： ”打开文件 ”：弹出打开文件对 话框，默认打开文件的类型为 ”文本文件 ”。选择考生文件夹下的 in5 txt文件后，该文件中的内容显示在Textl中； ”转换 ”：把 Textl中的所有小写英文字母转换成大写； ”存盘 ”：把 Textl中的内容存入考生文件夹下的 out5 dat文件中。在窗体中已经给出了部分程序，要求： 请去
6、掉程序中的注释符，把程序中的 ?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。 编写 ”转换 ”按钮的 Click事件过程。最后把修改后的文件按原文件名存盘。注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的 in5 txt文件进行转换，并把转换结果通过单击 ”存盘 ”按钮存入考生文件夹下的 out5 dat文件中，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 11答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-39在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确
7、答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中加入一个水平滚动条和一个文本框，在属性设置窗口中设置其相关属性，其属性及值如表 3-40所示。步骤 2：双击窗体 Forml上的水平滚动条，打开代码编辑窗口，输入以下代码：参考代码： private Sub HSl_Chan ge( )Textl Width=HS1 ValueEnd Sub步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开本题对应工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口 ，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： While
8、 (k List2 ListCount) If List2 Selected(k) =True Then List2 RemoveItem List2 ListIndex Listl RemoveItem Listl ListIndex 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 3-41在窗体中用 ”复制 ”和 ”粘贴 ”命令画出包含三个元素的单选按钮数组、一个文本框和一个命令按钮并设置属性。 步 骤 2：在代码编辑窗口，编写 ”计算 ”按钮的单击事件过程。参考代码： Private Sub C1_Click( )Dim k As Integerk=0W
9、hile Not Opl(k) Value And k 3k=k1WendIf k 3 ThenTextl Text=calculat(Val(Left$(Opl(k) Caption， 2)EndIfEnd SubFunction calculat(n As Integer)Dim k As Integer， t As Longt=1For k=2 To nt=t*kNext kcalculat=tEnd Function步骤 3：按要求将文件保存至考生文件夹中。步骤 4：按F5键运行程序，先选中一个选项，接着单击 ”计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 三、综合应用题 5
10、【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： CDl FilterIndex=2 Textl Text=a CDl Action=2 步骤 2：按指定位置编写 ”转换 ”按钮的单击事件过程。 参考代码： Private Sub C2_Click( ) Dim a As Stringt b As Stringl c As Stringf k As Integer， n As Integer a=Textl Text b=“ n=Asc(“a”)-Asc(“A”) For k=1 To Len(a) c=Mid$(a， k， 1) If c =“a”And c =“z”Then c=String(1， Asc(c)-n) End If b=b+cC Next k Textl Text=b End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 F5键运行程序，先单击 ”打开文件 ”按钮，接着单击 ”转换 ”按钮，最后单击 ”存盘 ”按钮。
