1、VB机试模拟试卷 68及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Commandl、宽度为 1 600、高度为 600、标题为 “输出 ”的命令按钮，编写适当的事件过程，要求程序运行后，如果单击 “输出 ”命令按钮，则在窗体上显示 “Hello World!”，如图 281所示。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjl frm，工程文件名为 sjl vbp。 (2)在名称为 Forml的窗体上建立两个名
2、称分别为 Commandl和 Comma nd2、标题分别为 “上午 ”和 “下午 ”的命令按钮，以及一个标签，标签名称为 1abel， capfion属性为空。编写适当的事件过程，要求程序运行后，如果单击 “上午 ”命令按钮，在窗体上显示 “上午 9： 00 12： 00”；如果单击 “下午 ”命令按钮，在窗体上显示 “下午 12： 00 18： 00”。程序中不能使用任何变量，直接显示字符串。程序运行结果如图 282所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在窗体上绘制一个名称为 Text1的
3、文本框和一个名称为 cmd1、标题为 “计算 ”的命令按钮，如图 43所示。程序运行后，单击 “计算 ”命令按钮，通过在对话框输入整数 12，放入整型变量 a中，然后计算 a!(提示：运算结果应放入 Long型变量中 )，在文本框中显示结果，如图 44所示，并把结果存入文件 out txt中。考生文件夹中有一个标准模块 mode bas，该模块中提供了保存文件的过程 putdata，考生可以直接调用。 注意：保存时必须存放在 考生文件夹下，窗体文件名为sj3 frm，工程文件名为 sj3 vbp。(2)在考生文件夹中有一个工程文件 sj4 vbp及窗体文件 sj4 frm。在名为 Form1的
4、窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为 “确定 ”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设詈，如图 45所示。窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过 程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮；必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的
5、文件。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，相应的窗体文件为 sj5 frm，此外还有一个名为 sjin txt的文本文件，其内容如下： 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 程序运行后，单击窗体，将把文件 sjin txt中的数据输入到一维数组Arr中，在窗体中按 4行 4列的矩阵形式显示出来，并在 Textl输出矩阵右上一左下对角线上的数据，如图 336所示。 在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 注意：去掉程序中的注释符 “”，把程序中的 “
6、?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 68答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)命 令按钮的高度由 Height属性设置，宽度由 Width属性设置，单击命令按钮触发 Click事件；在窗体上打印信息通过 Print方法来实现。 根据题意，新建 “标准 EXE”工程，将一个命令按钮添加到窗体中，其名称为 Commandl、Caption属性为输出， Height属性为 600、 Width属性为 1 600。双击命令按钮进入代码窗口，编写如下代码： Private Sub Command
7、l_Click() Print”Hello World!” End Sub 单击 按钮运行程序，并按要求保存。 (2)单击命令 按钮触发 Click事件，命令按钮的标题由其 Caption属性设置；在窗体上打印信息通过 Print方法来实现。根据题意，新建 “标准 EXE”工程，将两个命令按钮和一个标签添加到窗体中，将两个 Command的名称分别设为 Commandl和 Command2、 Caption属性分别设为“上午 ”和 “下午 ”，标签的名称为 Labell、 Caption属性为空，设置完成后双击Commandl进入代码窗口，编写如下代码： Private Sub Command
8、l_Click() Forml Cls Print“上午 9： 0012： 00“ End Sub Private Sub Command2 Click() Forml Cls Print“下午 12： 0018： 00“ End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)在窗体上建好控件后，先设置控件属性，再编写事件过程和调试程序，并使其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数InputBox来实现 (通过 Visual Basic系统本身提供的 )。本题主要 是考查循环语句的应用。计算一个数值的阶乘时使用了 for循环，
9、最后调用了所给模块中的过程将结果进行保存。 建立界面并设置控件属性。程序中用到的控件及其属性见下表： 声明存储运算结果的 Long型变量。在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入 Long变量中，所以把最后放入文本框内的变量设置为长整型。 (例如： Dim temp As Long) 打开工程资源管理器，在其空白处右键添加模块 mode bas(此文件已在考生文件夹里 )，模块代码如下： Option Explicit Sub putdata(t_FileName As String， T_Str As Variant) Dim sFile A8 String sFile=
10、“&t_FileName ()pen App Path& sFile For Output As#1 Print#1,T_Str Close#1 End Sub 打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输人代码如下： Private Sub Cmdl Click() Dim a AS Integer Dim temp As Long Dim i AS Integer a=Val(InputBox(“请输入 “) temp=1 For i=1 To Val(a) temp=temp*i Next i Textl Text=temp putdata“out txt“， Tex
11、tl Text End Sub 调试并运行程序。 按题目要求存盘。 (2) 打开题目所给工程文件。 打开代码窗口输入以下代码： Private Sub Cmdl Click() IfOptl Value=True Then Textl Font=“宋体 “ Else Textl Font=“隶书 “ End If If Chkl Value=l Then Textl FontUnderline=Ture Else Textl FontUnderline=False End If If Chk2 Value=1 Then Textl FontItalic=True Else Textl Font
12、Italic=False End If End Sub 按要求保存文件即完成本题。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将一个文本框控件控件和一个标签添加到窗体中，文本框的 名称为 Textl， Text属性为空，标签的 Caption属性为 “右上一左下对角线的数 ”，具体代码如下 (其中 (i*4-i+1)代表对角线的数在数组中的位置 )： Private Sub Form_Click() Dim Arr(16)As Integer Dim i As Integer Dim str As String Dim tmp As String Open”App Path&sj
13、in txt”For Input As#1打开文件 str=“ Cls 清空窗口 For i=1 To 16 Input#l， Arr(i) 利用循环读取 16个数 tmp=Arr(i) str=str+tmp+“ 将数组放入字符串里面 If i Mod 4=0 Then Print str每当读取 4个则输出并换行 str=“ 字符串清空 End If Next i Close#1 For i=1 To 4 tmp Arr(i*4-i+1) 获得对角线的数 str=str+tmp+“ 放入字符串里面 Next i Textl Text=str在 Textl中显示出来 End Sub 单击 按钮运行程序，并按 要求保存。
