1、国家二级 VB机试（上机操作）模拟试卷 347及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个名称为 C1、标题为 “改变颜色 ”的命令按钮，窗体标题为 “改变窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图 378所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form1的窗体上画一个名称 Shape1的形状控件，在 属性窗口中将其设置为圆形。画一个名称为 List1的列表框，并在
2、属性窗口中设置列表项的值分别为 1、 2、 3、 4、 5。将窗体的标题设为“图形控件 ”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 3 79所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，运行情况如图 3 181所示。 程序的功能是计算表达式的值： z=(x-2)!+(x-3)!+(x-4)!+(x -N)! 其中的 N和 x值通过键盘分别输入到两个
3、文本框 Text1、 Text2中。单击名称为 Command1、标题为 “计算 ”的命令按钮，则计算表达式的值，并将计算结果显示在名称为 Label1的标签中。 在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 “?”改为正确内容。 要求：程序调试通过后，必须按照如图 3-181所示输入 N=5， x=12，然后计算 z的值，并将计算结果显示在标签 Label1中，否 则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体上有名称为 Label1的标签和名称为 T
4、imer1的计时器控件。该程序的功能是在名称为 Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示 “第一项 ”(如图3 182所示 )，且每隔 1秒钟依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在窗体上画一个文本框，其名称为 Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为 Command1和 Command2
5、，标题分别为 “显示 ”和 “保存 ”，如图 3 111所示，编写适当的事件过程。程序运行后，如果单击 “显示 “按钮，则读取考生文件夹下的 in5 txt文件，并在文本框中显示出来，该文件是一个用随机存取方式建立的文件，共有 5个记录，要求按记录号顺序显示全部记录，每个记录一行 ；如果单击 “保存 ”按钮，则把所有记录保存到考生文件夹下的顺序文件 out5 txt中。随机文件 in5 txt中的每个记录包括三个字段，分别为姓名、性别和年龄，其名称和长度分别为：其类型定义为： PriVate Type StudInfo Name As String*8 Sex As String*4 Age
6、As Integer End Type 要求：文件 out5 txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 347答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个命令按钮，设置相关属性，其属性及值如表 4-49所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。参考代码： Private Sub C1_Click()Form1 BackColor=&HFF&End Sub 步骤 3：按要
7、求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Form1中加入一个列表框和一个形状控 件，并分别如表 4-50设置它们的相关属性。步骤 3：打开代码编辑窗口，编写列表框的 Click事件过程。参考代码： Private Sub List1_Click()Shape1 FillStyle=List1 TextEnd Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor属性值为 “&HFF&”。 (2)当形状控件的 Shape属性值是 3时显示为圆；形状控件
8、的填充色样式通过FillStyle属性设置，其中 0为实线、 1为透明、 2为水平线、 3为垂直线、 4为向上对角线、 5为向下对角线、 6为交叉线、 7为对角交叉线，缺省值为 1。要通过单击列表框中的项目，来改变形状控件的填充样式，需在列表框的 Click事件过程中，用语句将列表框中所选的值 (通过其 Text属性返回 )作为形状控件的填充参数。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去 掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： tmp=1 tmp=temp*i xn=tmp z=z+xn(
9、t) 步骤 2：按 键运行程序，在第一个文本框中输入 5，第二个文本框中输入12，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： arr=Array(“第一项 “， “第二项 “， “第三项 “， “第四项 “) Static i As Integer Label1 Caption=arr(i) i=0 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题源程序中，自定义函数 Xn的功能是进行 m!阶乘运算
10、，它通过 For循环连续 m次将循环变量 i的值乘以累积变量 tmp(第一个 ?处 tmp初值应为 1)来实现。故自定义函数 )xn中第二个 ?处应改为： tmp*i，作为函数返回值第三个 ?处应改为： Xn。 (2)要实现本题中的功能，在窗体的 Load事件过程中，首先使用 Array函数建立一个新数组， 然后设置计时器的相关属性并启用计时器；在计时器的 Timer事件中，由于需要计算 Timer事件的执行次数才能判断出应该显示何种文字，因此计数变量 i应该声明为 Static类型的变量，然后把数组的第 i项显示在标签中，接下来令 i+1，一旦 i超过了 3就将其重新置 0以便实现循环显示。
11、 三、综合应用题 3 【正确答案】 步骤 1：新建一个 “标准 EXE“工程，如表 4 67在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。参考代码： Private Type StudInfoName As String*8Sex As String*4Age As IntegerEnd TypeDim Stud As StudInfoDim RecNum As LongPrivate Sub Command1 Click()Open App Path &“ in5 txt“For RandomAs #1 Len=Len(Stud)RecNum=1Do Wh
12、ile Not EOF(1)Get #1， RecNum，StudText1 Text=Text1 Text & Stud NameText1 Text=Text1 Text & Stud SexText1 Text=Text1 Text &Str(Stud Age) Text1 Text=Text1 Text+vbCrLfRecNum=RecNum+1LoopClose 1End SubPrivate Sub Command2 Click()Open App Path &“ out5 txt“For OutputAs #1Print #1，Text1 TextClose 1End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 本题程序设计 思路：在 “显示 ”按钮的单击事件过程中，用 Open语句以随机方式打开数据文件 in5 txt，并用 Get读出一条记录显示在文本框中，随后读取下一条记录，直到所有的记录都读取完毕；在 “保存 ”按钮的单击事件过程中，用 Open语句以 Output方式打开数据文件 out5 txt，并用 Print #方法将文本框中的值存入该文件。
