1、国家二级 VB机试（上机操作）模拟试卷 17及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画两个命令按钮，其名称分别为 C1和 C2，标题分别为 ”命令按钮1”和 ”命令按钮 2”，通过属性窗口设计适当的属性，使得程序运行后， ”命令按钮2”隐藏。编写适当的事件过程，如果单击 ”命令按钮 1”，则 ”命令按钮 2”出现， ”命令按钮 1”隐藏；而如果单击 ”命令按钮 2”，则 ”命令按钮 l”出现， ”命令按钮 2”隐藏。程序的运行情况如图 2-105所 示。注意：程序中不得使用变量。存盘时必须存
2、放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。2 在名称为 Forml的窗体上画一个列表框，其名称为 L1；一个水平滚动条，其名称为 HSl， SmallChange属性为 2， LargeChange属性为 10， Min属性为 0， Max属性为 100，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是 ”xx”，其中 xx是滚动框所在的位置，如图 2-106所示。注意：程序中不要使用变量；存盘 时必须存放在考生文件夹下，工程文件名为 sjf2 vbp，窗体文件名为 sjt2 frm。 二、简单应
3、用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标相除所得的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Fun ctionFun( )和： End Function之间填入编写的若干语句并运行程序。最后把修改后的文件按原文件名存盘。 说明：数组 arr中共有 40个元素，所谓 ”数组 aft中
4、每个元素与其下标相除所得的和 ”，指的是： arr(1) 1+arr(2) 2+arr(3) 3+arr(40) 40。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有两个命令按钮，其名称分别为 Commandl、 Command2，一个标签控件，其名称为 Labell，一个计时器控件 ，其名称为 Timerl，如图 2-107(a)所示。程序运行后，在命令按钮 Commandl中显示 ”开始 ”，在命令按钮 Command2中显示 ”停止 ”，在标签中用字体大小为 16的粗体显示 ”热烈欢迎 ”(标签的 AutoSize属性为 True)，
5、同时把计时器的 Interval属性设置为 50， Enabled属性设置为 True。此时如果单击 ”开始 ”命令按钮，则该按钮变为禁用，标题变为 ”继续 ”，同时标签自左至右移动，每个时间间隔移动 20，如图 2-107(b)所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击 ”停止 ”命令按钮，则该按钮变为禁用， ”继续 ”命令按钮变为有效，同时标签停止移动；再次单击 ”继续 ”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名
6、存盘。 三、综合应用题 5 在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件。其功能是：单击 ”显示 ”命令按钮，则把考生目录下的 in5 txt文件中的所有字符放入Textl(可多行显示 )，如图 2-108所示；如果单击 ”统计 ”命令按钮，则统计文本框中字母 A、 B、 C、 D各自出现的次数，并依次放到窗体变量 an、 bn、 cn、 dn之中 (放在其他变量中将无成绩 )；如果单击 ”保存 ”命令按钮，则把统计结果存入考生文件夹下的 out5 txt文件中。文件中已给出了 ”显示 ”和 ”保存 ”按钮的 Click事件过程。请编写 ”统计 ”按钮 Click事件
7、过程。要求：统计每个字母出现的次数时，不区分大小写。注意：不能修改已经给出的程序部分；在结束程序运行之前，必须单击 ”保存 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 17答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-59在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写如下事件过程。参考代码： Private Sub C1_Click( ) C2 Visible=TrueC1 Vis1ble=FalSeEnd SubPrivate Sub
8、 C2_Click( )C1 Visible=TrueC2 Visible=FalseEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-60在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写窗体的 Click事件过程。参考代码： Private Sub Form_Click( )L1 AddItem Str$(Forml HSl)End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。 步骤 2：进入代码
9、编辑窗口，在 Function Fun( )和 End Function之间输入以下代码： 参考代码： Function Fun(a( ) As Single) As Single Sum=0 For i=1 To UBound(a) Sum=Sum+a(i) i Next i FUn=Sum End Function 步骤 3：按要求将文件 保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp。 步骤 2：进入代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Timer1 Enabled=True Command
10、l Enabled=Fal se Timer1 Enabled=Fal se Labell Left=Labell Left+2 O 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： n=Len(Textl) For k=1 To n ch=Mid(Text1， k， 1) If UCase(ch) =“A”Then an=an+1 EndIf If UCase(ch)=“B”Then bn=bn+1 End If If UCase(ch)=“C”Then cn=cn+1 End If If UCase(ch)=“D”Then dn=dn+1 End If Next k Text1=an&” “&bn&” “&cn & “ “&dn 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 F5键键运行程序，先单击 ”显示 ”按钮，接着单击 ”统计 ”按钮，最后单击 ”保存 ”按钮。
