1、VB机试模拟试卷 135及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “图片 ”的窗体上画一个名称为 Imagel的图像框，其高为 2500、宽为 2000。请通过属性窗口设置适当属性，装入考生目录下的图片文件 piclJpg，并使图片适应图像框的大小 (如图 1-59所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个名称 为 Labell、标题为 “口令 ”的标签；画一个名
2、称为Textl的文本框；再画三个命令按钮，名称分别为 Commandl、 Command2、Command3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “重新输入 ”。程序运行时，在Textl中输入若干字符，单击 “隐藏口令 ”按钮，则只显示同样数量的 “*”，如图 1-60(b)所示；单击 “显示口令 ”按钮，则显示输入的字符，如图 1-60(a)所示，单击 “重新输入 ”按钮，则清除 Textl中的内容，并把光标定位到 Textl中。要求：请画出所有控件，编写命令按钮的 Click事件过程， 程序中不得使用变量，在 “显示口令 ”按钮、 “隐藏口令 ”按钮的事件过程中只能写一条语句。
3、存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框架，其名称分别为 F1和 F2，标题分别为 “交通工具 ”和 “到达目标 ”。在 F1中画两个单选按钮，名称分别为 opt和 Op2，标题分别为 “汽车 ”和 “轮船 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 “青岛 ”和 “大连 ”。画一 个文本框，其名称为 Textl。编写适当事件过程。程序运行后，选择不同单选按钮并单击文本框后在文本框内显示结果见表 1-7。程序的
4、运行情况如图 1-198所示。存盘时，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮的方式。(2)在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画两个文本框，其名称分别为 Textl、 Text2，文本框内容分别设置为 “计算机 ”、“等级考试 ”。然后画一个标签，其名称为 Labl，高度为 375，宽度为 2000。再画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 “交换 ”和 “连接 ”，编写适当的事件程序。程序运行后
5、，如果选中 “交换 ”单选按钮并单击窗体，则 Textl文本框中的内容与 Text2文本框中的内容进行交换。并在标签中显示 “交换成功 ”(如图 1-199所示 )；如果选中 “连接 ”单选按钮并单击窗体，则把 Textl和 Text2的内容按 Textl在前、 Text2在后的顺序连接起来并在标签中显示。存盘时，工程文件名为sjll4 vbp，窗体 h文件 名为 Bjt4 frm。注意；不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5
6、vbp，其窗体上有两个标题分别是 “读数据 ”和 “统计 ”的命令按钮。请画两个标签，其名称分别是 Labell和 Label2，标题分别为“最长单词的长度为 ”和 “以该长度最后一次出现的单词是 ”；再画两个名称分别为Textl和 Text2，初始值为空的文本框，如图 1-75所示。程序功能如 下： 如果单击 “读数据 ”按钮，则将考生文件夹下 in5 dm文件的内容读到变量 s中 (此过程已给出 )； 如果单击 “统计 ”按钮，则自动统计 in5 dat文件 (该文件中仅含有字母和空格，而空格是用来分隔不同单词的 )中最长单词的长度，以及 in5 dat中最后一个以该长度出现的单词，并将该
7、单词的长度显示在 Textl文本框内，将该单词显示在 Text2文本框内。 “读数据 ”命令按钮的 Click事件过程已经给出，请为 “统计 ”命令按钮编写适当的事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运 行之前，必须进行统计，且必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。VB机试模拟试卷 135答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-29在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2
8、小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 2-30在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写三个按钮的单击事件过程。 参考代码： PriVate Sub Command1_Click() Textl PasswordChar =“ End Sub PrlVate SUD Command2_C1lick() Textl PasswordChar=“*“ End Sub PriVate Sub Command3_Click() Textl=“ Textl SetFocus End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】
9、第 1小题 为图像框控件指定图片有两种方法：一是在设计阶段通过： Picture属性设置；二是在程序运行时通过 LoadPictureq()图片加载函数加载，其语法为：图片框 Picture=LoadPictureC图像文件路径 ”)， App Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的 LoadPicture函数为对象的 Picture属性赋值将清除窗体、图片框及图像控件中的图形。 Stretch(自动伸缩 )属性用来设定图片是否需要自动调整大小，以适应图像框的大小，值为 True时表示自动调整。 本题只需要在窗体上画出控件并相应设置其属性即可。 第
10、2小题 PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空，使用 SetFocus方法可使文本获得焦点。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件sjt3 vbp。 步骤 2：在窗体 Forml中加入两个框架和一个文本框，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表 2-113所示。 步骤 3：打开代码编辑窗口输入如下代码： 参考代码： PriVate Sub Textl_Click() If Opl And
11、Op3 Then Textl Text=“坐汽车去青岛 “ ElseI f Opl And Op4 Then Textl Text=“坐汽车去大连 “ ElseIf Op2 And Op3 Then Textl Text=“轮船去青岛 “ ElseIf Op2 And Op4 Then Textl Text=“坐轮船去大连 “ End If End Sub 步骤 4：按要求将文 件保存至考生文件夹中。 步骤 5：按键运行程序，选择一种交通工具和一个到达目标，并单击文本框，最后单击窗体右上角的关闭按钮退出程序。第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp。
12、 步骤 2：在窗体 Forml中加入两个文本框、一个标签和两个单选按钮，分别设置它们的相关属性，其属性及值如表 2-114所示。 步骤 3：打开代码编辑窗口输入如下代码： 参考代码： Private Sub Form_Click() If Opl Then Labl Caption=Textl Text Textl Text=Text2 Text Text2 Text=Labl Caption Labl Caption=“交换成功 “ E1seIf Op2 Then Labl Caption=Textl Text&Text2 Text End If End Sub 步骤 4：按要求将文件保存至
13、考生文件夹中。 步骤 5：按键运行程序，选择一个单选按钮，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。【试题解析】 第 l小题 根据题目要求，在文本框的单击事件过程中，先用 If语句判断框架 F1中 的Opl是否选中 (即以 Opl Value=True为条件表达式 )，如果条件为真，那么再继续判断框架 F2中的 Op3是否选中 (即以 Op3 Value=True为条件表达式 )，当 Op3被选中时，文本框中显示 “坐汽车去青岛 ”，否则显示 “坐汽车去大连 ”；同理在外层 If语句条件为假 (即 Op2被选中 )时，也作类似处理。这样一共就有四种可能：Op1和 Op3被选中、 Opl
14、和 Op4被选中、 Op2和 Op3被选中、 Op2和 Op4被选中，对于可能出现的不同选择对照题目中表的规定，在标签中显示不同内容。以上判断和显示操作均在文本框的 Click事件中完成。 第 2小题 根据题目要求，设计本题程序的思路：在窗体的 Click事件过程中分别以 Opl和Op2是否选中作为 If语句的条件，当 Opl被选中时，将两个文本框中的内容通过一个中间变量进行交换；当 Op2被选中时，将两个文本框中的内容连接进来。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件sjt5 vbp，如表 2-38所列在窗体上画出控件并设置它们的
15、相关属性。步骤 2：打开代码编辑窗口，在指定位置编写 “统计 ”按钮的单击事件过程 。 参考代码： PriVate Sub Command2_Click() 需考生编写 n=Len(s)： t=“ Dim Max_len As Integer For i=1 To n c=Mid(s， i， 1) If c“Then t=t+C Else If Len(t)Max_len Then Max_len=Len(t) Max_word=t End If t=“ End If Next i If Len(t)Max_len Then Max_len=Len(t) Max_word=t End If T
16、extl Text=Max_len Text2 Text=Max_word End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读数据 ”按钮，再单击 “统计 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 【试题解析】 以空格为单词的分隔标志，在 For循环中用 Mid函数逐一取出变量 8中的每个字符，并检查其是否为空格，若不是空格则将该字母作为当前单词的一部分，否则将当前单词的长度与记录单词最长值的变量 (如 Max_len)比较，将两者中的较大值存入该变量中，同时保 存这个单词到变量 Max word中。循环结束后，将 Max_len的值显示在 Textl中 Max_word值显示在 Text2中。 注意：为防止数据文件的最后一个字符不是空格而导致最后一个单词不在统计之列的情况，在开始找单词前在变量 s的最后连上一个空格。
