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