1、VB机试模拟试卷 109及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个空白文本框，名称为 Textl，它的高为 2000，宽为 2000。通过属性窗口设置适当的属性使得 Textl可以显示多行文本，且有垂直滚动条。程序运行时的窗体如图 121所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名称为 Forml的窗体上画一个图像框，名称为 Imagel，其高、宽分别为 800、 800，通过属性窗口把考生文件夹下的图像文件 test bmp装入图像框；再画一个命令按钮，名称为(iotamand
2、l，标题为 “变宽 ”。请编写适当的事件过程，要求程序运行后，每单击一次 “变宽 ”按钮，则使图像的宽度增加 600。程序运行时窗体界面如图 122所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体的文件名为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在名为 Forml的窗体上建立两个主菜单，其标题分别为 “文件 ”和 “帮助 ”，名称分别为 vbFile和 vbHelp，在 “文件 ”菜单下有 3个菜单项，分别为 “新建 ”、 “打开 ”和“保存 ”(其名称分别为 vbNew、 vbOpen和 vbSave)。要求程序运行后，如果选中 “文件 ”下的某
3、个菜单项，则将该菜单项的标题通过 MsgBox对话框显示出来，如图303所示。 注意：文件必须存放在考生文件夹中，窗体文件名为 sj3 frm，工程文件名为 sj3 vbp。 (2)在名为 Forml的窗体上建立一个文本框，名为 Textl；再建立一个命令按钮，名为 Cmdl，标题为 “计算 ”，如图 304所示。要求程序运行后，单击命令按钮，则计算出 100 200之间所有素数之和，并在文本框中显示结果，同时把结 果存入文件 out48 txt中 (在考生文件夹中有标准模块mode bas，其中的 putdata过程可以把结果存入文件；而 isprime函数可以判断整数 x是否为素数，如果是
4、素数，则函数返回 True，否则返回 False；考生可以把该模块文件添加到自己的工程中 )。 注意：文件必须存放在考生文件夹中，窗体文件名为 si4 frm，工程文件名为 si4 vbp。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体上有一个 Label控 件和两个名称分别为 Commandl和Command2、标题分别为 “开始 ”和 “关闭 ”的命令按钮。编写函数 Add(A， N)，其功能是由数字 A(第一个数字 )和 0(除第一个数外的 N-1位 )组成的不多于 N位数的整数，并利用该
5、函数求 8+80+800+8000的和，结果写入考生文件夹下的 sj5 dat文件中。执行完毕后， “开始 ”按钮变成 “完成 ”，且无效 (变灰 )。程序运行时的窗体界面如图 207所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改 变文件名和文件夹。 VB机试模拟试卷 109答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，将其名称设为 Textl， MuhiLine属性为 True， ScrollBars属性为 2， Te
6、xt属性为空， Width设为 2 000， Height设为 2 000。单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个图像控件和一个命令按钮添加到窗体中，图像控件的名称为 Imagel， Width为 800， Height属性为 800， Stretch属性为 True，命令按钮的名称为 Commandl， Caption属性为 “变宽 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Command1_Click() Imagel Width=Imagel Width+600Imagel的宽度变宽 600 End S
7、ub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1) 新建一个名为 Forml的窗体。 执行 “工具 ”菜单中的 “菜单编辑器 ”命令，打开菜单编辑器；在 “标题 ”栏中输入“文件 ”，在 “名称 ”栏中输入 “vbFile”；单击 “下一个 ”按钮，再单击编辑区的右箭头按钮，在 “标题 ”栏中输入 “新建 ”，在 “名称 ”栏中输入 “vbNew”；单击 “下一个 ”按钮，在 “标题 ”栏中输入 “打开 ”，在 “名称 ”栏中输入 “vbOpen”；单击 “下一个 ”按钮，在 “标题 ”栏中输入 “保存 ”，在 “名称 ”栏中输入 “vbSave”；单
8、击下 “标题 ”栏中输入 “帮助 ”，在 “名称 ”栏中输入 “vbHelp”； 打开代码窗口输入如下代码： Private Sub vbNew_Click() MsgBox“新建 “ vbOKOnly End Sub Private Sub vbOpen_Click() MsgBox“打开 “ vbOKOnly End Sub Private Sub vbSave_Click() MsgBox“保存 “ vbOKOnl y End Sub 按要求保存文件即完成本题。 (2) 新建一个名为 Forml的窗体。 单 击工具箱中的 TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该
9、文本框名称为 Textl。 单击工具箱中的 CommandButton控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmdl， Caption属性为 “计算 ”。 打开代码窗口，输入如下代码： PrivateSubCmdl_Click() Dim temp As Long temp=0 Fori=100 To 200 If isprime(i) Then temp=temp+i End If Next i Textl Text=temp putdata App Path&“ out48 txt“ temp End Sub 按要求保存文件即完成本题。 三、综合应用题（ 3
10、0分） 3 【正确答案】 根据题意，将一个标签和两个命令按钮添加到窗体中，标签的Caption属性为 “编写函数 Add(A， N)”，其功能是由数字 A(第一个数字 )和 0组成的不多于 N位数的整数，并利用该函数求 8+80+800+8000的和结果写入考生文件夹下的 sj5 dat文件中，两个命令按钮的名称分别设为 Commandl和 Command2，Caption属性分别为 “开始 ”和 “关闭 ”。双击 Commandl进人代码编写窗口，编写Add函数，代码如下： Private Function Add(A As Integer， N As Integer)As Long Dim
11、 i As Integer Dim j As Integer Dim b As Long total=0 If N=1 Then For i=1To N b=1 For j=1 To i-1 b=b*10 Next j Add=Add+A*b Next i End If Commandl Enabled=False Commandl Caption=“完成 “ End Function然后编辑按钮单击事件函数，代码如下： Private Sub Commandl_Click()单击 “开始 “，计算Add(8， 4) Dim total As Long total=Add(8， 4) Open App Path&“ sj5 dat“For Output As#1打开 “sj5 dat“文件 Write#1， total写入结果 Close#1 End Sub Private Sub Command2_Click() 单击关闭 Unload Me关闭对话框 End Sub单击 按钮运行程序，并按要求保存。
