1、国家二级 VB机试（上机操作）模拟试卷 118及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Labell的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示 “等级考试 ”，并使标签的外观如图 3一 173所示。运行后的窗体见图 3 173。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体 上画一个名称为 Imagel的图像框，有边框，并可以自动调
2、整装入图片的大小以适应图像框的尺寸；再画三个命令按钮，名称分别为 Commandl、 Command2、 Command3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生目录下有两个图标文件，其名称分别为“Misc34 ico”和 “Misc37 ico”。程序运行时，单击 “红桃 ”按钮，则在图像框中显示红桃图案 (即 Misc34 ico文件，如图 3 174所示 )；单击 “黑桃 ”按钮，则在图像框中显示黑桃图案 (即 Misc37 ico文件 )；单击 “清除 ”按钮，则清除图 像框中的图案。请编写相应控件的 Click事件过程，实现上述功能。注意：要求程序中不得使用变量，
3、每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 sjt3 frm。在名称为 Forml的窗体上有一个名称为 Text1的文本框和名称为 Command1、标题为“确定 ”的命令按钮，一个名称为 List1的列表框和两个名称分别为 Option1和Option2、标 题分别为 “添加 ”和 “删除 ”的单选按钮，如图 3-3(a)所示。程序运行后，如果选择单选按钮 Optionl并在文本框中输入一个字符串，然后单击 “确定 ”命
4、令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图 33(b)所示；如果选择列表框巾的一项和单选按钮 Option2，并单击 “确定 ”命令按钮，则删除列表框巾所选择的项目，如图 33(： c)所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击 “确定 ”命令按钮后，将显示一个信息框 “未输入或未选择项目 ”，如图 3 3(d)所示。该程序不完整，请 把它补充完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序巾的其他部分。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sit4 vbp，相应的
5、窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为Commandl，标题为 “计算 ”。程序运行后，如果单击命令按钮，程序将根据下面的公式计算 7c的值： n 4=1 1 3+1 5 1 7+ ，所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图 34所示。该程序不完整，请把它补充完 整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在考生文件夹下有一个工程文件 vbsj5 vbp，已给出了部分控件和部分程序。请在窗体上画三个标签，其名称分别为 lblNa
6、me、 lblTel和 lblPost，标题分别为 “姓名 ”、 “电话号码 ”和 “邮政编码 ”。再画三个文本框，其名称分别为 txtName、 txtTel和 txtPost，初始内容均为空白，如图 3-36所示。程序运行后，如果单击 “显示 第三个记录 ”命令按钮，则读取考生文件夹下 in5 txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中 (该文件是一个用随机存取方式建立的文件，共有 5个记录 )。单击 “保存 ”按钮，则把该记录 (三个字段 )保存到考生文件夹下的顺序文件 out5 txt中。请编写 “显示第三个记录 ”按钮的 Click事件过程，以实现上述功能。
7、注意：考生不得修改已经存在的程序，必须用 “保存 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。程序源码： Private Type PalType Name As String*8 Tel As String*10 Post As Long End Type 考生编写如下事件过程中的程序 (icmdDisplayClick) Private Sub cmdDisplayClick() End Sub Private Sub cmdSave Click() Open”out5 txt”For Output As#1 Print#1，txtName Text， txtTe1 Text，
8、 txtPost， Text close 1 End Sub 国家二级 VB机试（上机操作）模拟试卷 118答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写三个命令按钮的单击事件过程。 参考代码： Private Sub Commandl C1ick() Imagel Picture=LoadPicture(App Patt “
9、 MiSc34 ico”) End Sub Private Sub Command2 C1 ick() Imagel Picture=LoadPicture(App Patl&“ MiSc37 ico”) End Sub Private Sub Command3 C1ick() Imagel Picture=LoadPicture() End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 单击列表框中的某个项目，将触发其 Click事件。要实现单击列表框中的某一项，该项就从列表中消失的功能，只需在 Click事件过程中编写删除项目的语句即可。
10、列表框的 Listlndex属性可返回当前选择的项目的索引号，因此删除选中项目的语句为： Listl RemoveltemList1 Listlndex。 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit3 vbp，在代码编辑窗口中，去掉程序中的注释符 “*，将问号 “?”改为正确的内容。 参考代码： Listl AddItem Text1 Text If Forml Option2 Value=True And Listl ListIndex=0 Then Listl RemoveItem List1 ListIndex 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题
11、这个数列的特点是，每一项的分子都是 1，分母都是前一项分母加 2，符号都是前一项符号的相反数。因此，这个数列累加求和问题使用循环来完成，在循环中令分母加 2，符号取反即得到下一项。循环结束后需要将累加和乘 4才能得到所求的圆周率的值。 【操作步骤】 步骤 1：打开 考生文件夹中的本题工程文件 sit4 vbp，在代码编辑窗口中，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Result = Result + Sign * 1 i Sign=一 Sign Text1 Text=Result * 4 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答
12、案】 【操作步骤】步骤 1：打开考生文件夹中的本题工程文件vbsj5 vbp，按表 4 22在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口中，编写cmdDisplay_Click事件过程。参考代码： Private Sub cmdDisplay C1ick() Dim pers As PalType Open“in5 txt”For Random As#1 Len= Len(pers) Get#1， 3， pers txtName Text=pers Name txtTel Text=pers Tel txtPost Text=pers Post Close#1End Sub步骤 3：按键运行程序，先单击 “显示第三个记录 ”按钮，再单击 “保存 ”按钮。步骤 4：按要求将文件保存至考生 文件夹中。
