1、VB机试模拟试卷 169及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Commandl的命令按钮数组，含三个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 300、 800。窗体的标题为 “按钮窗口 ”。运行后的窗体如图 1-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为sjtl frm。 (2)在名 称为 Forml的窗体上画一个名称为 Sh
2、al的形状控件，然后建立一个菜单。标题为 “形状 ”，名称为 shape0，该菜单有两个子菜单，其标题分别为 “正方形 ”和 “圆形 ”，其名称分别为 shapel和 shape2，如图 1-2所示，然后编写适当的程序。程序运行后，如果选择 “正方形 ”菜单项，则形状控件显示为正方形：如果选择 “圆形 ”菜单项，则窗体上的形状控件显示为圆形。注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjl2 frm。二、简 单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框
3、架，其名称分别为 Fl和 F2，标题分别为 “交通工具 ”和 “到达目标 ”。在 Fl中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 “飞机 ”和 “火车 ”。在 F2中画两个单选按钮，名称分别为 op3和 004，标题分别为 “广州 ”和 “昆明 ”。画一个文本框，其名称为Textl。编写适当事件过程。程序运行后，选择不同单选按钮并单击窗体后在文本框中显示结果见表 1-3。程序的运行情况如图 1-153所示。存盘时以原文件名存盘。注意：考生不 得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。(2)在考生文
4、件夹下有一个工程文件 sjt4 vbp，请在窗体上画三个文本框，其名称分别为 Textl、 Text2和Text3，文本框内容分别设置为 “计算机 ”、 “等级考试 ”和空白。然后画两个单选按钮，其名称分别为 Opl和 Op2，标题分别为 “交换 ”和 “连接 ”(如图 1-154所示 )，编写适当的事件程序。程序运行后，如果选中 “交换 ”单选按钮并单击 Text3文本框，则 Textl文本框中的内容与 Text2文本框中的内容进行交换，并在 Text3文本框中显示 “交换成功 ”；如果选中 “连接 ”单选按钮并单击 Text3文本框，则把 Textl和Text2的内容按 Textl、 Te
5、xt2的顺序连接起来，并在 Text3文本框中显示连接后的内容。存盘时，按原文件名存盘。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，然后单击 Text3。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sjt5 vbp，其窗体上有两个标签 Ll和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为 “确定 ”；两个文本框名称分别为 Textl和 Text2。其中 Textl用来输入口令 (输入时，显示 “*”)，无初始内容；Text2的初始内容为 3。并给出了 c1的事件过
6、程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得在运行时，在 Textl中输入口令后，单击 “确定 ”按钮，如果输入的是 “123456”，则在 Textl中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”按钮后，弹出如图 1-90所示的错误提示对话框，并且 Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。VB机试模拟试卷 169答案与解析 一、基本操作题（ 30分） 1 【正确答案】 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，如表 2-1在窗体中
7、用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体FormI中画一个名为 Shal的形状控件。 步骤 2：选择【工具】 【菜单编辑 器】命令，打开菜单设计器，如表 2-2中的设置建立菜单项。步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： PriVate Sub Shapel_Click() Me Shal Shape=1 End Sub PriVate Sub Shape2一 Click() Forml Shal=3 End Sub 步骤 4：按要求将文
8、件保存至考生文件夹中。 【试题解析】 第 l小题 本题只需按题目要求画出含三个元素的按钮数组，并分别设置 Caption属性。 第 2小题 形状控件 (Shape)提供了显示一些规则图形的简易方法。通过设置形状控件 Shape属性值，可显示 6种图形： 0矩形、 1正方形、 2椭圆、 3圆、 4圆角矩形、 5圆角正方形。 Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。 要实现本题中的功能，应在 “正方形 ”菜单项的 Click事件过程中，令 Shal的Shape属性为 l，在 “圆形 ”菜单项的 Click事件过程中，令 Shal的 Shape属性为3。 二、简单应用题（ 40分
9、） 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹卞的本 题工程文件 sjt3 vbp。 步骤 2：在窗体 Forml中加入两个框架和一个文本框，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表 2-85所示。 步骤 3：打开代码编辑窗口输入如下代码： 参考代码： PriVate Sub Form_Click() If Opl And Op3 Then Textl Text=“坐飞机去广州 “ ElseIf Opl And Op4 Then Textl Text=“坐飞机去昆明 “ ElseIf Op2 And Op3 Then Textl Te
10、xt=“坐火车去广州 “ ElseIf Op2 And Op4 Then Textl Text=“坐火车去昆明 “ End If End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤5：按键运行程序，选择一种交通工具和一个到达目标，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sit4 vbpo 步骤 2：在窗体 FormI中加入三个文本框和两个单选按钮；分别设置它们的相关属性，其属性及值如表 2-86所示。步骤 3：打开代码编辑窗口输入如下 代码： 参考代码： Private Sub Text3_Click
11、() If Opl Then Text3 Text=Textl Text Textl Text=Text2 Text Text2 Text=Text3 Text Text3 Text=“交换成功 “ E1seIf Op2 Then Text3 Text=Textl Text&Text2 Text End If End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键运行程序，选择一个单选按钮，并单击Text3，最后单击窗体右上角的 关闭按钮退出程序。 【试题解析】 第 1小题 根据题目要求，在窗体的单击事件过程中，先用 If语句判断框架 F1中的 opl是否选中 (即以 op
12、l Value=Tree为条件表达式 )，如果条件为真，那么再继续判断框架 F2中的 Op3是否选中 (即以 op3 Value=True为条件表达式 )，当 Op3被选中时，文本框中显示 “坐飞机去广州 ”，否则显示 “坐飞机去昆明 ”；同理在外层 If语句条件为假 (即 Op2被选中 )时，也作类似处理。这样一共就有四种可能： Opl和Op3被选中、 Opl和 Op4被选中、 op2和 Op3被 选中、 op2和 Op4被选中，对于可能出现的不同选择对照题目中表的规定，在标签中显示不同内容。以上判断和显示操作均在 cl的 Click事件中完成。 第 2小题 根据题目要求，设计本题程序的思路
13、：在 Text3的 Click事件过程中分别以 Opl和 Op2是否选中作为 If语句的条件，当 Opl被选中时，将两个文本框中的内容通过一个中间变量进行交换；当 Op2被选中时，将两个文本框中的内容连接起来。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt5 vbp，将文本框 Textl的PasswordChar属性值设置为 “*”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Textl Text=“l23456“ Then Textl PasswordChar=“ If Text2 Text0 Then Textl Enabled=False 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 根据题目原程序，判断文本框 Text1输 入的密码是否为 “123456”的条件表达式为： Textl Text=”123456”；要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空，即执行语句： Textl PasswordChar=“；每输入一次错误密码，文本框 Text2中的数字减 1，当文本框 Text2中数值还大于 0时，提示重新输入，否则提示错误，并禁用文本框 Textl。
