1、国家二级 VB机试（上机操作）模拟试卷 34及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个文本框，其名称为 Tl，宽度和高度分别为 1400、 400；再画两个命令按钮，其名称分别为 Cl和 C2，标题分别为 ”显示 ”和 ”扩大 ”，编写适当的事件过程。程序运行后，如果单击 C1命令按钮，则在文本框中显示 ”等级考试 ”，如图 2-181(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来 的 3倍，如图 2-181(b)所示。注意：要求程序
2、中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个命令按钮，其名称为 C1，标题为 ”转换 ”；然后再画两个文本框，其名称分别为 Textl和 Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在 Textl中输入一行英文字符串，如果单击转换按钮，则Textl文本框中的字母都变为小写，而 Text2中的字母都变为大写。例如，在 Textl中输入 visual basicprogramming，则单击转换按钮后，结果如图 2-182所示。注意：不得使用任何变量。存盘时必须存放在考生文件
3、夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm，包含了所有控件和部分程序，如图 2-183所示。要求如下： 利用属性窗口向列表框添加四个项目： Visual Basic、 Turbo C、 C+、 Java。 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮 Optionl，然后单击 ”确定 ”按钮，则文本框中显示 ”笔试 ”；当选择列表框中的一项和单选按钮 Option2，然后单击 ”确定 ”按钮，则文本框中显示 ”上机 ”。其中 ”是在列表框中所选择的项
4、目。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作 (包括列表框和单选按钮 )，否则不得分。最后把修改后的文件按原文件名存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按 钮，其名称为 Commandl，标题为 ”计算并输出 ”。程序运行后，如果单击命令按钮，程序将计算 500以内两个数之间 (包括开头和结尾的数 )所有连续数的和为 1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用 ”一 ”连接起来，如
5、图 2-184所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的 ?改为正确盯内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 5 在窗体上画一个文本框，其名称为 Textl，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为 Commandl和 Command2，标题分别为 ”显示 ”和 ”保存 ”，如图 2-185所示，编写适当的事件过程。程序运行后，如果单击 ”显示 ”按钮，则读取考生文件夹下的 in5 txt文件，并在文本框中显示出来，该文件是一个用随机存取方式建立的文件，共有 5个
6、记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击 ”保存 ”按钮，则把所有记录保存到考生文件夹下的顺序文件 out5 txt中。随机文件 in5 txt中的每个记录包括三个字段，分别为姓 名、性别和年龄，其名称和长度分别为： 其类型定义为： Private Type StudInfoName As String*8Sex As String*4Age As IntegerEnd Type要求：文件 out5 txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 34答案与
7、解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-102在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码： Private Sub C1_Click( )T1=“等级考试 ”End SubPrivate Sub C2_Click( )T1 Height=2*Me T1 HeightT1 Width=2 * T1 WidthT1 ForttSize=3*Forml T1 ForttSizeEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”
8、工程，如表 3-103在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Private Sub Cl_Click( )Textl Text=LCase(Textl Text)Text2 Text=UCase(Textl Text)End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，在窗体上选中列表框，为其 List属性 输入四个项目： VisualBasic、 Turbo C、 C+、 Java，注意每输入一项后用 Ctrl + Enter键
9、换到下一项输入。 步骤 2：打开代码编辑窗口，编写 ”确定 ”按钮的单击事件过程。 参考代码： If Optionl Value And Listl Text “Then Textl Text=Listl Text&Optionl Caption E1se If Option2 Value And Listl Text “Then Textl Text=Listl Text&Option2 Caption End If EndIf 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 F5键键运行程序，在列表框中选择一项，并选中一个单选按钮，单击 ”确定 ”按钮，单击窗体右上角的关闭按钮结
10、束程序。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： iSum=0 iSum=iSum+j If iSum=12 50 Then 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-104在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。 参考代码： Private Type StudInfoName As Strina*8Sex As Strinq * 4Age As
11、 Integer End Type Dim Stud As StudInfo Dim RecNum As Long Private Sub Commandl_C1ick( )Open App Path&” in5 txt”For Random As#1 Len=Len(Stud)RecNum=1Do While Not EOF(1)Get#1 , RecNumf StudTextl Text=Textl Text&Stud NameTextl Text=Textl Text&Stud SexTextl Text=Textl Text& Str(Stud Age)Textl Text=Textl Text+vbCrLfRecNum=RecNum+1LoopClose 1End SubPrivate Sub Command2_Cl ick( )Open App path&” out5 txt”For OutputAs #1Print #1， Textl TextClose 1End Sub步骤 3：按要求将文件保存至考生文件夹中。
