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