1、国家二级 VB机试（上机操作）模拟试卷 392及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个文本框，其名称为 T1，宽度和高度分别为 1400、400；再画两个命令按钮，其名称分别为 C1和 C2，标题分别为 “显示 ”和 “扩大 ”，编写适当的事件过程。程序运行后，如果单击 C1命令按钮，则在文本框中显示“等级考试 ”，如图 3107(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小 扩大到原来的 3倍，如图 3107(b)所示。注意：要求
2、程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为sjt1 vbp，窗体文件名为 sjt1 fiTn。 (2)在名称为 Form1的窗体上画一个命令按钮，其名称为 C1，标题为 “转换 ”；然后再画两个文本框，其名称分别为 Text1和Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在 Text1中输入一行英文字符串，如果单击转换按钮，则 Text1文本框中的字母都变为小写，而Text2中的字母都变为大写。例如，在 Text1中输入 visual basic programming，则单击转换按钮后，结果如图 3108所示。注意：不得使用任何变量。存盘时必须存放在考生
3、文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 fim。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 tim，包含了所有控件和部分程序，如图 3109所示。要求如下： 利用属性窗口向列表框添加四个项目： Visual Basic、 Turbo C、 C、 Java。 请编写适当的程序完成以下功能：当选择列表框 中的一项和单选按钮 Option1，然后单击 “确定 ”按钮，则文本框中显示 “笔试 ”；当选择列表框中的一项和单选按钮 Option2，然后单击 “确定 ”按钮，则文本框中显示 “上机 ”。其中 “”是在列表框
4、中所选择的项目。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作 (包括列表框和单选按钮 )，否则不得分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “计算并输出 “。程序运行后，如果单击命令按钮，程序将计算 500以内两个数之间 (包括开头和结尾的数 )所有连续数的和为 1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用 “
5、”连接起来，如图 3110所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在 窗体上画一个文本框，其名称为 Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为 “显示 ”和 “保存 ”，如图 3111所示，编写适当的事件过程。程序运行后，如果单击 “显示 ”按钮，则读取考生文件夹下的 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、）模拟试卷 392答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 465在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码： Private Sub C1_Click() T1 “等级考试 “End Sub Private Sub C2_Click() T1 Height 2*Me T1 Height T1 Width 2*T1 Width T1 FontSize 3*Form1 T1 FontSize End Sub 步骤3：按要求将文件保存 至考生文件夹中。 (2)【操作步
8、骤】 步骤 1：新建一个 “标准EXE”工程，如表 466在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Private Sub C1_C1ick() Text1 Text LCase(Text1 Text) Text2 Text UCase(Text1 Text)End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在窗体上选中列表框，为其List属性输入四个项目： Visual Basic、 Turbo C、 C、 Java
9、，注意每输入一项后用 键换到下一项输入。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的单击事件过程。参考代码： If Optionl Value And List1 Text “ “ Then Text1 Text List1 Text _Option1 Caption E1Se If Option2 Value And List1 Text“ “ _Then Text1 Text List1 Text _Option2 Caption End If End If 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 键运行程序，在列表框中选择一项，并选中一个单选按钮，单击“确定 ”
10、按钮，单击窗体右上角的关闭按钮结束程序。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： iSum 0 iSum iSum j If iSum 1250 Then 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 467在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写相应事件过程。参考代码： Private Type StudInfo Name AS String*8 Se
11、x As String*4 Age As Integer End Type Dim Stud AS StudInfoDim RecNum As Long Private Sub Command1_CliCk() Open App Path&“ in5 txt“For Random As#1 Len Len(Stud) RecNum 1 Do While Not EOF(1) Get#1， RecNum， Stud Text1 Text Text1 Text&Stud Name Text1 Text Text1 Text&Stud Sex Text1 TextText1 Text& _Str(Stud Age) Text1 Text Text1 Text vbCrLf RecNumRecNum 1 Loop Close 1 End Sub Private Sub Command2_Click() Open App Path&“ out5 txt“For Output As#1 Print#1， Text1 Text Close 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。
