1、VB机试模拟试卷 128及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Commandl的命令按钮，标题为 “打开文件 ”，再画一个名称为 CDI的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性和编写代码： 设置适当属性，使对话框的标题为 “打开文件 ”； 设置适当属性，使对话框的 “文件类型 ”下拉式组合框中有两行：“文本文件 ”、 “所有文件 ”(如图 1-142所示 )。 默认的类型是 “所有文件 ”； 编写命令按钮的事件
2、过程，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。(2)在名称为 Forml的窗体上画一个命令按钮，名称为 Commandl，其标题为 “移动本按钮 ”。如图 1-143所示。编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动 100。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下 ，工程文件名为 sjt2 vbp，窗体文件名为 sjl2 frm。 二、简单应用题（ 40分） 2 (1)考生文件夹中
3、有工程文件 sjt3 vbp。在窗体上有名称为 Combo1的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为 “输入正整数 ”、 “判断 ”的命令按钮。程序运行时在组合框中选中一项，如图 1-32(a)所示，单击 “输入正整数 ”按钮，通过输入对话框输入一个正整数，再单击 “判断 ”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图 1-32(b)所示的是输 入 56且选中的组合框选项为 “判奇偶数 ”时显示的信息框。在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的有关属性，去掉程序中的注释符，把程序中的
4、 ?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生目录下有一个工程文件sjt4 vbp。窗体上有一大一小两个名称分别为 Shape2、 Shapel的 Shape控件。请在属性窗口中将 Shapel控件设置为圆形，并将其颜色设置为红色 (颜色值为&H000000FF&)，如图 1-33所示。要求：当 单击窗体时， Shapel移动到矩形 (即Shape2)左上角，再次单击窗体，则 Shapcl移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的属性值，去掉程序中的注释符，把程序中的 ?改为正确的内容
5、。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 考生文件夹下的工程文件 sjt5 Vbp中有一个初始内容为空的文本框 Textl，两个标题分别是 “读数据 ”和 “计算 ”的命令按钮；请画一个标题为 “各行平均数的最大值为 ”的标签 LabeL2，再画一个初始内容为空的文本框 Text2，如图 1-195所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入20行 5列的二维数组 a中，并同时显示在 Textl文本框内； 单击 “计算 ”按钮，则自动统计二维数组 a中各行的平均数，并将这些平均数中
6、的最大值显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请编写 “计算 ”按钮的 Click事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “计算 ”按钮 进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。VB机试模拟试卷 128答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，打开 “部件 ”对话框，从其列表中选中“MicroSoftCommon Dialog Contro
7、l6 0”项目，单击 “确定 ”按钮。 步骤 2：在窗体Forml中加入一个命令按钮和一个通用对话框，其相关属性设置如表 2-80所示。步骤 3：在代码编辑窗口中 ，编写 “打开文件 ”按钮的单击事件过程： 参考代码： PriVate Sub Commandl_Click() CD1 ShowOpen End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，画出一个名为 Commandl的命令按钮，并且设置其 Caption属性为 “移动本按钮 ”。 步骤 2:在代码编辑窗口编写命令按钮的单击事件过程。 参考代码： Pri
8、Vate Sub Commandl_Click() Command1 Left=Commandl Left-100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 通用对话框的 DialogTitle属性用于返回或设置该对话框标题栏上所显示的文本。 要在单击按钮时弹出 “打开文件 ”对话框，只需在 “打开 ”按钮的 Click事件过程中调用通用对话框的 ShowOpen方法即可。 第 2小题 本题只需要在命令按钮的单击事件中为命令按钮的 Left属性减 100即可。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生
9、文件中的本题工程文件 sjt3 vbp，将组合框的 Style属性设置为2。 步骤 2：在代码编辑窗口，去掉程序中的注释符们 ”，将 问号 “?”改为正确的内容。 参考代码： Select Case Comb01 ListIndex MsgBox Str(x)&fl(x) MsgBox Str(x)&f2(x) Private Funct ion f2(ByVal x As Integer)As String If x Mod 7=0 Then 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，将 Shapel控件的
10、 Shape属性设置为 3， BackColor属性设置为 &H000000FF&。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Private Flag As Boolean Shapel Top=Shape2 Top+Shape2 Height- Shapel Height Shapel Left=Shape2 Left+Shape2 Width -Shapel Width 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题源代码中给出了两个函数， f1函数的作用是判断参数的奇偶性并返回判断结果，其返回值为字符型；
11、 f2函数的作用是判断参数能否被 7整除，其返回值也为字符型。 在 “判断 ”命令按钮的单击事件中，首先根据组合框的 Listlndex值判断选中的是组合框中的哪一项，如果 ListIndex值为 0则调用 fl函数，否则调用 f2函数。 第 2小题 本题原程序中，在窗体的单击事件中，要求实现圆形在左上角和右下角之间来回切换，需要设置一个全局布 尔型变量 flag，每次单击窗体之后将其取反，通过flag的值来判断是需要将圆形移动到哪个位置。要移动到矩形的右下角，需要令其Top属性等于 Shape2 Top+Shape2 Height-Shapel Height， Left属性等于Shape2
12、Left+Shape2 Width Shapel Width。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt5 vbp，在窗体。 Forml中画一个标签和一个文本框，其属性及值如表 2-111所示。步骤 2： 打开代码编辑窗口，在指定位置编写以下代码： 参考代码： For i=1 To 20 Sum=0 For j=1 To 5 Sum=Sum+a(i， j) Next Avg=Sum 5 If i=1 Then Max=Avg ElseIf Max键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 【试题解析】 本题可利用一个嵌套的 For循环来完成计算工作：在外循环 (循环变量的取值为 1 20)体中，先初始设置记录每行数据之和的变量 Sum的初值为O，接着通过内循环 (循环变量的取值为 1 5)体完成对每行数据的累加工作。内循环结束后，用表达式 Avg=Sum 5计算出该行的平均值。如果是第一次执行外循环的循环体，则将当前 Avg的值记录在变量 Max中，否则仅在其他行 Avg值大于Max的值时，才将其记录在变量 Max中。嵌套 For循环结束时，变量 Max的值即为每行平均数中的最大值，将其显示在文本框 txtMax中。
