[计算机类试卷]VB机试模拟试卷125及答案与解析.doc

《[计算机类试卷]VB机试模拟试卷125及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]VB机试模拟试卷125及答案与解析.doc（7页珍藏版）》请在麦多课文档分享上搜索。

1、VB机试模拟试卷 125及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个水平滚动条，其名称为 HScrolll， Min属性为 1000， Max属性为 1500， LargeChange属性为 50， SmaUChange属性为 2；然后再画一个文本框，其名称为 Textl，初始内容为空白，编写适当的事件过程。程序运行后，移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如图 1-156所示。要求： 不得使 用任何变量； 存盘时必须存放在考生文件夹下，工程文件名

2、为sjtl vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Forml的窗体上画一个命令按钮，其名称为 Cl、标题为 “移动 ”，位于窗体的左上部，如图 1-157(a)所示，编写适当的事件过程。程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动 100。程序的运行情况如图 l157(b)所示。要求：不得使用任何变量；存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjtt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框架，其名称分别为 F1和 F2，标题分别为 “交通工具 ”

3、和 “到达目标 ”。在 F1中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 “飞机 ”和 “火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 “广州 ”和 “昆明 ”。然后画一个命令按钮，其名称为 C1，标题为 “确定 ”。再画一个文本框，其名称为 Textl。编写适当事件过程。程序运行后，选择不同单选按钮并单击 “确定 ”按钮后在文本框中显示的结果见表 1-8。 程序的运行情况如图 1-203所示 。存盘时，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的

4、一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。(2)在考生文件夹下有一个工程文件 sjt4 vbp，如图1-204所示，请在窗体上画三个文本框，其名称分别为 Textl、 Text2和 Text3，文本框内容分别设置为 “等级考试 ”、 “计算机 ”和空白。然后画两个单选按钮，其名称分别为 Opl和 op2，标题分别为 “交换 ”和 “连接 ”，编写适当的事件程序。要求在程序 运行时，先单击 “交换 ”单选按钮，使 Textl文本框中内容与 Text2文本框中的内容进行交换，并使 “交换 ”单选按钮消失；然后单击 “连接 ”单选按钮，则把交换后的Textl和 Text2的内容以 Tex

5、tl在前、 Text2在后的顺序连接起来，并在 Text3文本框中显示连接后的内容。存盘时，工程文件名为 sjt4 vbp，窗体文件名为sjt4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击“交换 ”单选按钮，后单击 “连接 ”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 三、综合 应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，其名称为 Forml的窗体上已有三个文本框 Textl、 Text2、 Text3，以及程序。请完成以下工作： 在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如

6、图 l-170所示； 建立下拉式菜单，见表 1-4。 窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时， “剪切 ”、 “复制 ”不可用，否则可以把该文本框中的内容剪切或复制 到 Text3中；若 Text3中无内容，则“粘贴 ”不能用，否则可以把 Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 125答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤

7、 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 288所示。 步骤2：双击窗体 Forrnl上的水平滚 动条，打开代码编辑窗口，在其 Change事件过程中输入以下代码： 参考代码： Private Sub HScrolll_Change() Textl=HScroll1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，如表 2-89在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写窗体的单击事件过程。参考代码：

8、 Private Sub Form_Click() Forml C1 Left=100+Me C1 Left Me C1 Top=i00+Forml.C1.Top End Sub步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 要在程序运行时，文本框中显示滚动条滑块的当前位置，只需在滚动条的Change事件过程中编写利用滚动条的 Value属性值来决定文本框 Text属性值的语句即可。 第 2小题 控件 (包括窗体 )的 Height和 Width也属性用于设置控件在屏幕上的大小 (即高和宽 )， Top和 Left属性用于设置控件的上边和左边的位置。 要在单击窗体时，使命

9、令按钮向右和向下移动，需要在窗体的 Click事件中编写增加命令按钮的 Top和 Left属性的语句。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。 步骤 2：在窗体 Forml中加入两个框架和一个文本框以及一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置他们的相关属性，其属性及值如表 2-117所示。 步骤 3：打开代码编辑窗口输入如下代码：参考代码： PriVate Sub C1_Click() If Opl And Op3 ThenTextl Text=“坐飞机去广州 “ ElseIf Op

10、l And Op4 Then Textl Text=“坐飞机去昆明 “ ElseIf Op2 And Op3 Then Textl Text=“坐火车去广州 “ Else If Op2 And Op4 Then Textl Text=“坐火车去昆明 “ End If End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键运行程序，选择一种交通工具和一个到达目标，并单击命令按钮，最后单击窗体右上角的关闭按钮退 出程序。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp。 步骤 2：在窗体 Fonnl中加入三个文本框和两个单选按钮，分别设置它

11、们的相关属性，其属性及值如表 2-118所示。 步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Opl_Click() a =Textl Text Textl Text=Text2 Text Text2 Text=a Opl Visible=FalseEnd SubPrivate Sub Op2_Click() Text3 Text=Textl Text&Text2 TextEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按键运行程序，选择一个单选按钮，最后单击窗体右上角的关闭按钮退出程序。 【试题解析】 第 1小题 根据题目要求，在 “确定 ”按

12、钮的单击事件过程中，先用 If语句判断框架 Fl中的Opl是否选中 (即以 Opl Value=True为条件表达式 )，如果条件为真，那么再继续判断框架 F2中的 or3是否选中 (即以 Op3 Value： =True为条件表达式 )，当 op3被选中时，文本框中显示 “坐飞机去广州 ”，否则显示 “坐飞机去昆明 ”；同理在外层 If语句条件为假 (即 Op2被选中 )时，也作类似处理。这样一共就有四种可能：Opl和 Op3被选中、 opl和 op4被选中、 Op2和 Op3被选中、 Op2和 Op4被选中，对于可能出现的不同选择对照题目中表的规定，在文本框中显示不同内容。以上判断和显示操

13、作均在 C1的 Click事件中完成。 第 2小题 根据题目要求，设计本题程序的思路当 Opl被选中时，将两个文本框中的内容通过一个中间变量进行交换；当 Op2被选中时，将两个文本框中的内容连接起来。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt5 vbp，选中窗体中的文本框 Text3，将其 Visible属性为 False。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 2-97的内容建立窗体菜单。 步骤 3：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If whi

14、ch=1 Then If which=2 Then Textl Text=Textl Text+Text3 Text Text2 Text=Text2 Text+Text3 Text 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 由本题程序源代码及要求可知，在程序运行时，当将光标置于某文本框中时，文本框获得焦点，将触发其 GotFocus，在该事件过程中用窗体变量which记录下该文本框序号 (1或 2)。当打开 “编辑 ”菜单时触发其 Click事件，在该事件过程中首先根据 which的值不同，来判断相应文本框的内容是否为空，若内容为空则通过代码设置 “剪切 ”和 “复制 ”菜单

15、项不可用，否则设置 “剪切 ”和 “复制 ”菜单项可用，故第一个 “?”处应改为 1，第两个 “?”处应改为 2；其次判断 Text3文本框的内容是否为空，若内容为空则设置 粘贴 ”菜单项不可用，否则设置 “粘贴 ”菜单项可用。 当选择 “编辑 ”菜单下的 “复制 ”命令时，根据 which的值不同，将相应文本框中的内容复制到 Text3文本框中。当选择 “剪切 ”命令时除应执行与 “复制 ”命令相同的语句外，还应清除当前文本框中的内容。当选择 “粘贴 ”命令时，也是根据 which的值不同，将 Text3文本框中的内容连入相应文本框原内容之后，故该事件过程的第三个 “?”处应改为 “Textl Text+Text3 Text”，第 4个问 “?”处应改为“Text2 Text+Text3 Text”。