1、VB机试模拟试卷 123及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Combol的组合框，其宽度为 1200，其类型如图 1-95所示 (即简单组合框 )。要求如下： 请按图中所示，通过属性窗口输入 “北京 ”、“上海 ”、 “广州 ”、 “深圳 ”。 设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画两个文本框，名
2、称分别为 Textl、 Text2，再画两个命令按钮，名称分别为Commandl、 Command2，标题分别为 “左 ”、 “右 ”，如图 1-96。要求：编写适当的事件过程，使得程序运行时，单击 “左 ”按钮，则焦点位于 Textl上；单击 “右 ”按钮，则焦点位于 Text2上。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjl2 vbp，窗体文件名为sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一 个工程文件 sjt3 vbp。程序运行时，单击窗体则显示如图 1-173所示的图案。请去掉程序中的注释符，把程
3、序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体中有一个矩形和一个圆，程序运行时，单击 “开始 ”按钮，圆可以纵向或横向运动 (通过选择单选按钮来决定 )，碰到矩形的边时，则向相反方向运动，单击 “停止 ”按钮，则停止运动，如图 1-174所示。可以选择单选按钮随时改变运动方向。已经给出了所有控件和程序，但程序 不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文
4、件夹下有一个工程文件 sjt5 vbp和随机文件 in5 txt，文件中的每个记录包括三个字段，分别为姓名、电话和邮编，其名称、类型和长度如下：窗体中有一个文本框和两个命令按钮。程序运行后，如果单击 “读入并显示记录 ”按钮，则从考生文件夹下的 in5 txt文件中读入所有记录并显示在文本框中 (每条记录占一行，数据项的顺序是姓名、电话、邮编 ，如图 1-160所示，可使用符号常量 vbCrLf表示回车换行 )；若单击 “保存 ”按钮则把文本框中的内容存入 out5 txt文件中。要求：编写 “读入并显示记录 ”按钮的 Click过程。把文本框中所有字母改为大写字母 (可手工修改 )。单击 “
5、保存 ”按钮把修改后的文本框内容存盘，否则无成绩 !(过程已给出，不能修改 )。最后以原文件名保存放在考生文件夹下。 VB机试模拟试卷 123答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE巳 ”工程，在窗体 Forml中画一 个组合框，在属性设置窗口中设置其相关属性，属性及其值如表2-53所示。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如表 2-54所示。程序界面如图 2-2所
6、示。 步骤 2：双击 “左 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入代码。 步骤 3：从代码编辑窗口的 “对象 ”下拉列表中选择 Command2，从 “事件 ”下拉列表选择 Click，编写以下事件过程。 参考代码： PriVate Sub Commandl_Click() Text1 SetFocus End Sub PriVate Sub Command2_Click() Text2 SetFocus End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 窗体的 MaxButton属性、 MinButton属性决定其标题栏是否显示最
7、大化、最小化按钮， True表示显示， False表示不显示。 组合框的列表项既可以在设计阶段通过其 List属性设置加入 (注意：每输入完一项后按 键换行再输入下一项 )。也可在程序运行时通过 AddItcm方法加入，其语法为：组合框名 Addltem项目字符串 ，索引值】。其中， “索引值 ”可以指定插入项在列表框中的位置，表中的项目从 0开始计数。如果省略 “索引值 ”，则文本被放在列表框的尾部。 本题只需要在窗体上画出相应控件并设置其属性即可。 第 2小题 焦点是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。 对象的 Seffocus方法用于将焦点移到指定的对象上。
8、 本题其实就是在两个命令按钮的单击事件过程中，通过使用 Seffocus方法使对应文本框获得焦点。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For i=1 To 5 For j=1 To 2*i-1 For j=1 To i+1 For j=1 To 9-2*i 步骤 2： 按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注
9、释符 “”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=False Shape2 Top=Shape2 Top+d*50 If Shape2 Top=Shapel Top+Shapel Height Then Shape2 Left=Shape2 Left+d*50 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 根据本题程序所要显示的图案可知，前 5行 (行号 15)有如下特点：每行 “*”的前面有 6-i(i为行号 )个为空格，而 “*”有 2i-1(i为行号 )个：后 4行 (行号 l4)有如下特点：每行 “*”的前面有 i+1(i为行
10、号 )个为空格，而 “*”有 9-2i(i为行号 )个。 第 2小题 本题原程序在计时器的 Timer事件过程中，若选中 “纵向 ”单选按钮，则通过给Shape2的 Top属性增值 50(-50)使圆向下 (上 )移动，若圆到达矩形顶端(Shape2 Top=Shapel Top+Shapel Height)，则圆将向相反方向移动 (通过表达式 d=-d实现 )。若选中 “横向 ”单选按钮，其移动方法与 “纵向 ”相似。 单击 “停止 ”按钮，通过停止计时器 Timed，使圆停止运动。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5
11、 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Open App Path&“ in5 txt“For Random As #1 Len=Len(pal) For i=1 To 5 Get#l， i， pal Textl Text=Textl Text&pal Name Textl Text=Textl Text&pal Tel Textl Text=Textl Text&Str(pal Post) Textl Text=Textl Text+vbCrLf Next Close 1 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键键运行程序，先单击 “读入记录 ”按钮
12、，然后把文本框中把所有字母改为大写字母，再单击 “保存记录 ”按钮。 【试题解析】 用 Open语句打开随机文件，其语法格式为： Open FileName for Random as#FileNumber Len=记录长度。记录长度是一条记录实际所占字节数，可用 Len()函数获取； Get#语句用于从文件中读出某记录号的记 录，格式为：Get#FileNumber,RecordNuber， Var Put#语句用于把记录按指定记录号写入文件，格式为： Put撑 FileNumber,RecordNuberVar。 在 “读入并显示记录 ”命令按钮的 Click事件过程中，用 Open语句打开考生文件夹下的文件 in5 txt，在 For循环中用 Get语句读入随机文件中相应记录号的记录，赋值给一个声明的记录变量 (如 Pal)，并将变量 Pal各元素的值显示在文本框中。为使每条记录各占一行，可在每条记录后面加一个回车换行常数 vbCrLf。
