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