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