1、VB 机试-试卷 90 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在 Forml 的窗体上画一个文本框，名称为 Textl。画一个命令按钮，名称为 C1。标题为“显示”，TabIndex 属性为 0。请为 c1 设置适当的属性，使得按 Esc 键时，可以调用 cl 的 Click 事件，该事件过程的作用是在文本框中显示“等级考试”，程序运行结果如图 1-186 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为
2、sjtlvbp，窗体文件名为 sjtlfrm。程序中不得使用任何变量。 (2)在 Forml 的窗体上画一个名称为 Textl 的文本框，然后建立一个主菜单，标题为“操作”，名称为 Op，该菜单有两个子菜单，其标题分别为“显示”和“隐藏”，名称分别为 Dis 和 Hid，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“等级考试”：如果单击“隐藏”命令，则隐藏文本框。程序的运行情况如图 1-187 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2vbp，窗体文件名为 sjt2frm。程序中不得使用任何变量。 （分数：2.00）_二、简单应用题
3、(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在名称为 Form1 的窗体上画一个计时器，其名称为 Timerl；再画一个图像框，其名称为 Image1，在该图像框中装入一个图形文件picicol 然后画一个水平滚动条，其名称为 HScrolll，Min 属性值为100，Max 属性值为 1200，LargeChange 属性值为 100，SmallChange 属性值为 25，编写适当的事件过程。程序运行后，可以使图像框闪烁，其闪烁速度可以通过滚动条调节。要求：图像框的闪烁可以通过图像框交替地显示和隐藏来实现。程序中不得使用变量，每个事件过程中只能写一条语句。
4、注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt3vbp，窗体文件名为 sjt3frm。(2)在考生目录下有一个工程文件 sjt4vbp，包含了所有控件和部分程序，如图 1-93 所示。要求如下：利用属性窗口设置适当的属性：为 Listl 列表框添加三个项目：宋体、黑体、楷体 GB2312；Textl 文本框设置初始值为“计算机”；Hscrolll 水平滚动条设置最小值和最大值分别为 10、50。去掉程序中的注释符，把程序中的?改为正确的内容，完成以下功能：如果在列表框中选择一种字体，然后移动滚动条中的滚动框，则可使文本框中的文字按所选择的字体显示，并可随着滚动框的移动放大或缩小：如果
5、不选择字体直接移动滚动框，则显示一个信息框，提示“请选择字体”。注意：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下：32437658281298573142536475869713243546576879805937 程序运行后，单击窗体，将把文件 dataintxt
6、中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，并输出矩阵左上右下对角线上的数据，如图 1-150 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_VB 机试-试卷 90 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 VisualBasic 应
7、用程序(包括界面和代码)。(1)在 Forml 的窗体上画一个文本框，名称为 Textl。画一个命令按钮，名称为 C1。标题为“显示”，TabIndex 属性为 0。请为 c1 设置适当的属性，使得按 Esc 键时，可以调用 cl 的 Click 事件，该事件过程的作用是在文本框中显示“等级考试”，程序运行结果如图 1-186 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。程序中不得使用任何变量。 (2)在 Forml 的窗体上画一个名称为 Textl 的文本框，然后建立一个主菜单，标题为“操作”，名称为 Op，该菜单有两个子菜单，其标题分
8、别为“显示”和“隐藏”，名称分别为 Dis 和 Hid，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“等级考试”：如果单击“隐藏”命令，则隐藏文本框。程序的运行情况如图 1-187 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2vbp，窗体文件名为 sjt2frm。程序中不得使用任何变量。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 2-105 在窗体FormI 中画出控件，并分别设置它们的相关属性。 步骤 2：双击“显示”按钮，打开代码编辑窗口，输入如下代码： 参
9、考代码： TextlText=“等级考试“ 步骤 3：按要求将文件保存在考生文件夹中。 第2 小题 【操作步骤】 步骤 1：新建一个“标准 ExE”工程，在窗体 Form1 中画一个文本框，在属性设置窗口中将其 Name 属性值设置为 Textl。 步骤 2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 2-106 中的设置建立菜单项。 )解析：解析：第 1 小题 要在程序运行时实现按键就调用 Cmdl 的 Click 事件，需将按钮的 Cancel 属性设置为 True。 第 2 小题 本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程。二、简单应用题(总题数：
10、2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在名称为 Form1 的窗体上画一个计时器，其名称为 Timerl；再画一个图像框，其名称为 Image1，在该图像框中装入一个图形文件picicol 然后画一个水平滚动条，其名称为 HScrolll，Min 属性值为100，Max 属性值为 1200，LargeChange 属性值为 100，SmallChange 属性值为 25，编写适当的事件过程。程序运行后，可以使图像框闪烁，其闪烁速度可以通过滚动条调节。要求：图像框的闪烁可以通过图像框交替地显示和隐藏来实现。程序中不得使用变量，每个事件过程中只能写一条语句。注意
11、：存盘时必须存放在考生文件夹下，工程文件名为 sjt3vbp，窗体文件名为 sjt3frm。(2)在考生目录下有一个工程文件 sjt4vbp，包含了所有控件和部分程序，如图 1-93 所示。要求如下：利用属性窗口设置适当的属性：为 Listl 列表框添加三个项目：宋体、黑体、楷体 GB2312；Textl 文本框设置初始值为“计算机”；Hscrolll 水平滚动条设置最小值和最大值分别为 10、50。去掉程序中的注释符，把程序中的?改为正确的内容，完成以下功能：如果在列表框中选择一种字体，然后移动滚动条中的滚动框，则可使文本框中的文字按所选择的字体显示，并可随着滚动框的移动放大或缩小：如果不选
12、择字体直接移动滚动框，则显示一个信息框，提示“请选择字体”。注意：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案： 第 1 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，如表 2-50 在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，分别编写计时器的 Timer 事件过程和滚动条的 Change 事件过程。 参考代码： PriVate Sub HScroll1_Change() TimerlInterva1=HScroll1Value End
13、 Sub Private Sub Timer1 Timer() Image2Visible=Not ImaqelVisible End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4vbp，如表 2-51 设置控件的相关属性。 )解析：解析： 第 1 小题 图像框的闪烁可在计时器的 Timer 事件过程中，通过对图像框的 Visible 属性值进行逻辑非运算来实现；通过水平滚动条改变图像框闪烁速度的功能，可以在滚动条的 Change 事件过程中通过将滚动条的 Value 属性值赋给计时器的 Interval 属性
14、来实现。 第 2 小题 在程序设计时通过属性设置窗口中的 Font 属性可设置控件标题文本的字体、字号、字形等。FontName 属性用于设置程序运行时在控件中显示文本的字体，FontSize 属性、FontBold 属性、FontItalic 属性、FontStrikethru 属性和 FontUnderline 属性可分别用来设置字体的大小和样式。 要实现本题所要求的功能，应在水平滚动条的 Change 事件过程中，通过代码设置文本框的 FontSize 属性值等于水平滚动条的 Value 属性值。三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.
15、在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下：32437658281298573142536475869713243546576879805937 程序运行后，单击窗体，将把文件 dataintxt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，并输出矩阵左上右下对角线上的数据，如图 1-150 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改
16、程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案： 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Dim mat(M，N) Open AppPath & “ & “dataintxt“ For Input As #1 Input#1，mat(i，j) If i=j Then Print Tab(5*j)，mat(i，j)； 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析： 位于矩阵左上到右下的对角线称为主对角线，主对角线上的元素具有行号等于列号的特点。首先定义一个二维数组用来存放矩阵数据，接下来以 Input 方式打开 dataintxt 文件，并且通过 For循环使用 Input 语句依次读入每一个数据并放入二维数组中。在输出主对角线元素时，判断条件为行号等于列号。
