1、国家二级 VB机试（上机操作）模拟试卷 29及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个水平滚动条，其名称为 HScrolll， Min属性为 1000， Max属性为 1500， LargeChange属性为 50， SmallChange属性为 2；然后再画一个文本框，其名称为 Textl，初始内容为空白，编写适当的事件过程。程序运行后，移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如图 2-156所示。要求： 不得使用任何变量； 存盘时必须存放在考生文件夹下，工程文件名
2、为sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个命令按钮，其名称为 C1、标题为 ”移动 ”，位于窗体的左上部，如图 2-157(a)所示，编写适当的事件过程。程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动 100。程序的运行情况如图 2-157(b)所示。 要求：不得使用任何变量；存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 3 在考 生文件夹下有一个工程文件 sjt3 vbp，窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为 ”显示 ”的命令按钮 (如图 2-1
3、58所示 )。程序的功能是，在运行时，如果选中一个单选按钮并单击 ”显示 ”按钮，则在窗体上显示相应的信息，例如若选中 ”小学生 ”，则在窗体上显示 ”我是小学生 ”。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件 为 sjt4 frm。窗体上有一个名称为 Commandl的命令按钮和一个名称为 Timerl的计时器。如图 2-159所示，请在窗体上画一个标签 (名称为 Labell，标题为 ”请输入一个正整数 ”
4、)，再画一个文本框 (名称为 Textl，初始内容为空白 )。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔 0 3秒减 1(倒计数 )；当减到 0时，倒计数停止，清空文本框，并把焦点移到文本框中。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程 序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp和随机文件 in5.txt，文件中的每个记录包括三个字段，分别为姓名、电话和邮编，其名称、类型和长度如下：窗体中有一个文本框和两个命令按钮。
5、程序运行后，如果单击 ”读入并显示记录 ”按钮，则从考生文件夹下的 in5 txt文件中读入所有记录并显示在文本框中 (每条记录占一行，数据项的顺序是姓名、电话、邮编，如图 2-160所示，可使用符号常量 vbCrLf表示回车换行 )；若单击 ”保存 ”按钮则把文本框 中的内容存入 out5 txt文件中。要求：编写 ”读入并显示记录 ”按钮的 Click过程。把文本框中所有字母改为大写字母 (可手工修改 )。单击 ”保存 ”按钮把修改后的文本框内容存盘，否则无成绩 ! (过程已给出，不能修改 )。最后以原文件名保存放在考生文件夹下。 国家二级 VB机试（上机操作）模拟试卷 29答案与解析 一
6、、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 3-88所示。 步骤 2：双击窗体 Forml上的水平滚动条，打开代码编辑窗口，在其 Change事件过程中输入以下代码：参考代码： Private Sub HScrolll_Change( )Textl=HSCrolllEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-89在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写窗体的
7、单击事件过程。参考代码： Private Sub Form_Click( )Forml C1 Left=1 0 0+Me C1 LeftMe C1 Top=100+Forml C1 TopEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： For i=0 To 2 If Opl(i) Value=True Then Print”我是 ”+Opl(i) Caption EndIf N
8、ext 步骤 3：按要求将文件保存至考生 文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 3-90在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。参考代码： If Val(Textl Text)=0 ThenTimerl Enabled=FalseText1 SetFocus 步骤3：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码 ： 参考代码： Open App Path&” in5 txt”For Random As #1 Len=Len(pal) For i=1 To 5 Get #1， i， pal Textl Text=Textl Text&pal Name Textl Text=Textl Text&pal Tel Textl Text=Textl Text&Str(pal Post) Textl Text=Textl Text+vbCrLf Next Close 1 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 F5键键运行程序，先单击 ”读入记录 ”按钮，然后把文本框中把所有字母改为大写字母，再单击 ”保存记录 ”按钮。
