1、国家二级 VB机试（上机操作）模拟试卷 86及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Formal、标题为 “电影制作 ”的窗体上画 1个名称为 Cmbl、初始内容为空的下拉式组合框 (可以输入文本 )。 下拉列表中有 “音频效果 ”、 “视频效果 ”和 “视频过渡 ”3个表项内容。运行后的窗体如图 343所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sit1 frm，工程文件名为 sit1 vbp。(2)在名称为 Forml、标题为 “椭圆练习 ”的窗体上，画上个名称为 Shapel
2、的椭圆，其高为 800、宽为 1200、左边距为 1000。椭圆的边框是宽度为 5的蓝色 (#100C00000&)实线， 椭圆填充色为黄色 ( H0000FFFF&)。再画 2个名称为 Commandl和 Command2、标题为 “左移 ”和 “右移 ”的命令按钮。如图 344所示。 要求：编写 2个按钮的 Click事件过程，使得每单击 “左移 ”按钮一次，椭圆向左移动 100；每单击 “右移 ”按钮一次，椭圆向右移动100。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文 件保存至考生文件夹下，窗体文件名为 sit2 frm，工程文件名为sit2 vbp。 二、
3、简单应用题 2 (1)在考生目录下有一个工程文件 sit3 vbp，有两个名称分别为 Forml和 Form2的窗体， Forml为启动窗体，程序执行时 Form2不显示。 Forml中有菜单 (如图3 50(a)所示 )，程序运行时，若单击 “格式 ”菜单项，则显示 Form2窗体 (如图 3-50(b)所示 )，选中一种字号和字体后单击 “确定 “按钮，则可改变 Forml上文本框的字号和字体，并使 Form2窗体消失。若单击 “退出 ”菜单项，则结束 程序的运行。文件中已经给出了所有控件和程序，但程序不完整，要求： 1)利用属性窗口设置适当的属性，使 Forml窗体标题栏右上角的最大化按
4、钮、最小化按钮消失 (如图3 50(a)所示 )； 2)利用属性窗口把 Form2窗体的标题设置为 “格式 ”(如图 3 50(b)所示 )； 3)请去掉程序中的注释符，把程序中的 7改为正确的内容。注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件sit4 vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单 击“读入数据 ”按钮，可把考生目录下的文件 in4 dat中的 100个整数读到数组 a中；2)从名称为 Combol的组合框中选中一项 (如图 3 51所示 )。 3)单击 “计算 ”按钮，则可按该选
5、项的要求对 a中的数计算平均值 (四舍五入取整或截尾取整 )并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 “读入数据 ”按钮的 Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程实现上述功能。提示：存放前 n个数之和的变量应使用 I,ong类型。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在窗体上画一个文本框，其名称为 Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为 Commandl和 Command2，标
6、题分别为 “显示 ”和 “保存 ”，如图 3 92所示，编写适当的事件过程。程序运行后，如果单击 “显示 ”按钮，则读取考生文件夹下的 in5 txt文件，并在文本框中显示出来，该文件是一个用随机存取方式建立的文件，共有 5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击 “保存 ”按钮，则把所有记录保存到考生文件夹下的顺序文件 out5 txt中。随机文件 in5 txt中的每个记录包括三个字段，分别为姓名、性别和年龄，其名称和长度分别为： 其类型定义为： PriVate Type StudInfo Name As String*8 Sex As String*4 Age As
7、Integer End Type要求：文件 out5 txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。国家二级 VB机试（上机操作）模拟试卷 86答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表 4-27在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表 4 28在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写 2个命令按钮的单击事件过程。参
8、考代码： Private Sub Commandl_Click()Shapel Left=Shapel Left一 100End SubPrivate Sub Command2 C1ick()Shapel Left=Shapel Left+1 0 0End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 【操作步骤】步骤 1：打开考生文件夹中的本题工程文件sit3 vbp，按表 4 31在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Form2 Show Forml Text1
9、 FontSize=List1 Text； Forml Text； 1 Font； Name =List2 List(List2 ListIndex) Form2 Visible=False步骤 3：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：打开考生文件夹中的本题工程文件sit4 vbp，双击 “计算 ”按钮，打开代码编辑窗口编辑计算按钮的单击事件。参考代码： Private Sub Commancl2 Click()Dim i， j As Long If Combol Text； =“前 50个数 ”Then j=0 For i=1 To 50 j =j +a(i) N
10、ext j=Round(j 5 0， 0) Text； 1 Text=j End If If Combol,Text=“前 80个数 ”Then j=0 For i=1 To 80 j = j + a(i) Next j=Round(j 80， 0) Text1 Text=j End If If Combol Text=“所有数 ”Then j=0 For i=1 To 100 j =j+a(i) Next j=Round(j 100， 0) Text1 Text=j End IfEnd Sub步骤 2：按要求将文件保存至考生文件夹中。步骤 3：运行程序，单击 “读入数据 ”按钮，然后在列表框
11、中选中一项，并单击 “计算 ”按钮获得一个结果，然后使用窗体右上角的 “关闭 ”按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】步骤 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 Commandl C1ick() Open Ap
12、p Path “in5 txt”For RandomAs#1 Len=Len(Stud) ReCNum=1 Do While Not EOF(1) Get#1，RecNum， Stud Text1 Text=Text1 Text Stud Name Textl Text=Text4 TextStud Sex Textl Text=Text1 Text Str(Stud Age) Textl Text=Text1 Text+VbCrLf RecNum=RecNum+1 Loop Close 1 End Sub Private Sub Command2 Click() Open App Path “ out5 txt”For Output AS#1 Print#1，Textl Text Ciose 1 End Sub步骤 3：按要求将文件保存至考生文件夹中。
