1、国家二级 VB机试（上机操作）模拟试卷 57 及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画一个文本框，其名称为 T1，宽度和高度分别为1400、 400；再画两个命令按钮，其名称分别为 C1和 C2，标题分别为 “显示 ”和 “扩大 ”，编写适当的事件过程。程序运行后，如果单击 C1命令按钮，则在文本框中显示 “等级考试 ”，如图 3-88(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩 大到原来的 3倍，如图 3-88(b)所示。 注意：要
2、求程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为sjt1 frm。 2 在名称为 Form1的窗体上画一个命令按钮，其名称为 C1，标题为 “转换 ”；然后再画两个文本框，其名称分别为 Text1和 Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在 Text1中输入一行英文字符串，如果单击转换按钮，则Text1文本框中的字母都变为小写，而 Text2中的字母都变为大写。例如，在 Text1中输入 visualbasic programming，则单击转换按钮后，结果如图 3-89所示。 注意：不得使用任何变量。存盘时必须存放在考生
3、文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjl3 vbp，相应的窗体文件为 sjt3 frm，包含了所有控件和部分程序，如图 3-90所示。要求如下： 利用属性窗口向列表框添加四个项目： Visual Basic、 Turbo C、 C+、 Java。 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按 钮 Option1，然后单击 “确定 ”按钮，则文本框中显示 “笔试 ”；当选择列表框中的一项和单选按钮 Option2，然后单击 “确定 ”按钮，则文本框中显示 “上机 ”。其中 “”是在列表框中所
4、选择的项目。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作 (包括列表框和单选按钮 )，否则不得分。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体 上有一个命令按钮，其名称为 Command1，标题为 “计算并输出 ”。程序运行后，如果单击命令按钮，程序将计算 500以内两个数之间 (包括开头和结尾的数 )所有连续数的和为 1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用 “ ”连
5、接起来，如图 3-91所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 5 在窗体上画一个文本框， 其名称为 Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为 “显示 ”和 “保存 ”，如图 3-92所示，编写适当的事件过程。程序运行后，如果单击 “显示 ”按钮，则读取考生文件夹下的 in5 txt文件，并在文本框中显示出来，该文件是一个用随机存取方式建立的文件，
6、共有 5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击 “保存 ”按钮，则把所有记录保存到考生文件夹下的顺序文件 out5 txt中。随机文件 in5 txt中的每个记录包括三个 字段，分别为姓名、性别和年龄，其名称和长度分别为： 其类型定义为： PriVate Type StudInfo Name As String*8 Sex As String*4 Age As Integer End Type 要求：文件 out5 txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）
7、模拟试卷 57 答案与解析 一、基本操作题 1 【正确答案】 审题分析 要在单击 “扩大 ”按钮时，使文本 框在高、宽方向上各增加一倍，只需在 “扩大 ”按钮的 Click事件中编写设置文本框的 Height 和 Width属性值为原来 2倍的语句。要使文本框中的字体大小扩大到原来的 3倍，需编写设置文本框的 FontSize属性值为原来 3倍的语句。 操作步骤 步骤 1：新建一个 “标准EXE”工程，如表 4-49在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码： Private Sub C1_Click() T1=“等级考试 “ E
8、nd Sub Private Sub C2_Click() T1 Heiqht=2*Me T1 Heiqht T1 Width=2*T1 Width T1 FontSize=3* Form1 T1 FontSize End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 控件基本操作、字体与字形。 2 【正确答案】 审题分析 本题源程序是在命令按钮的单击事件过程中，将文本框Text1中的字符用 UCase函数转换为大写并显示在 Text2中，同时用 LCase函数转换为 小写并显示在 Txt1中。操作步骤 步骤 1：新建一个 “标准 EXE”工程，如表 4-50在窗体中画出控件并
9、设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub C1_Click() Text1 Text=LCase(Text1 Text) Text2 Text=UCase(Text1 Text) End Sub 步骤3：按要求将文件保存至考生文件夹中。 考点链接 常用内部函数。 二、简单应用题 3 【正确答案】 审题分析 本题根据是选择 “笔试 ”或 “上机 ”分为两种情况，若选择 “笔试 ”则在文本框中显示列表框的 Text属性值与单选按钮 Option1的 Caption属性值的组合内容；若选择“上机 ”则在文本框中显示列表框的 Tex
10、t属性值与单选按钮 Option2的 Caption属性值的组合内容。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在窗体上选中列表框，为其List属性输入四个项目： Visual Basic、 turbo C、 C+、 Java，注意每输入一项后用+键换到下一项输入。 步 骤 2：打开代码编辑窗口，编写 “确定 ”按钮的单击事件过程。 参考代码： If OPTion1 Value And List1 Text“ “Then Text1 Text=List1 Text Option2 Caption End If End If 步骤 3：按要求 将文件保存至考生文件夹中。
11、 步骤 4：按 键运行程序，在列表框中选择一项，并选中一个单选按钮，单击“确定 ”按钮，单击窗体右上角的关闭按钮结束程序。 考点链接 选择控件、 If选择结构。 4 【正确答案】 审题分析 程序设计思路：按顺序让 1 500中的每一个数都与它之后的所有的数逐一相加，在相加过程中若累加和等于或超过 1250时，则停止该组数继续相加，并将和等于 1250的该组数的开头和结尾的数按题目要求输出。源程序使用嵌套 For循环完成上述功能，变量 iSum用于记录每组数 累加时的和，其初值应为 0；表达式iSum=iSum+i用于实现累加功能；当累加和正好等于 1250时，输出该组数的开头和结尾的数，即 i
12、和 i。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： iSum=0 isum=iSum+j If iSum=1250 Then 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 多重循环。 三、综合应 用题 5 【正确答案】 审题分析 本题程序设计思路：在 “显示 ”按钮的单击事件过程中，用 Open语句以随机方式打开数据文件 in5 txt，并用 Get读出一条记录显示在文本框中，随后读取下一条记录，直到所有的记录都读取完毕；在 “保存 ”按钮的单击事件过程中，用 Open语句
13、以 Output方式打开数据文件 out5 txt，并用 Print#方法将文本框中的值存入该文件。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，如表4-51在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。 参考代 码： Private Type StudInfo Name As String*8 Sex As String*4 Age As Integer End Type Dim Stud AS StudInfo Dim RecNum As Long Private Sub Command1_Click() Open App Path “ in5
14、txt“For Random As #1 Len=Len(Stud) RecNHm=1 Do While Not EOF(1) Get #1， RecNum， Stud Text1 Text=Text1 Text Stud Name Text1 Text=Text1 Text Stud Sex Text1 Text=Text1 TextStr(Stud Age) Text1 Text=Text1 Text+VbCrLf ReCNHm=RecNum+1 Loop Close 1 End Sub Private Sub Command2_C1ick() Open App Path “ out5 txt“For Output As #1 Print #1， Text1 Text Close 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 顺序文件、随机文件。
