1、VB机试模拟试卷 104及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在Forml的窗体上画一个名称为 Labell的标签，然后建立一个主菜单，标题为 “时间 ”，名称为 vbTime，该菜单有两个子菜单，其标题分别为 “上午 ”和 “下午 ”，名称分别为 vbTimel和 vbTime2。编写适当的事件过程，使程序运行后，如果单击 “时间 ”菜单中的 “上午 ”命令，则在标签中显示 “8： 00 12： 00”；如果单击 “下午 ”命令，则标签中显示 “12： 00 18： O0”。程序的运行情况如图
2、 391和图 392所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在窗体上画一个文本框，名称为 Textl， Text属性为空。再画一个列表框，名称为 Listl，通过 “属性 ”窗口向列表框中添加 3个项目，分别为 “足球 ”、“篮球 ”和 “排球 ”。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串覆盖到该项上。程序的运行情况如图 393所示。注意：存盘时必须存放在考 生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分）
3、2 (1)新建一个工程文件，在窗体上有两个名称分别为 Text1、 Text2的文本框，一个名称为 Commandl、标题为 “计算 ”的命令按钮。要求程序运行后，在 Textl输入一个整数，单击 “计算 ”按钮后，则把 0到这个整数之间所有能被 3整除的数累加起来并在 Text2中显示出来，如图 583所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为 si3 vbp。 (2)在考生文件夹下有一个工程文件 sj4 vbp，在名称为 Forml的窗体上有两个名称分别为 Commandl和Command2、标题分别为 “相加 ”和 “清空 ”的命令按钮，一个名
4、为 Textl的文本框。要求程序运行后，单击 “相加 ”按钮，可通过输入对话框输入两个整数，并将两数相加后的结果在 Text1文本框中显示出来。如果单击 “清空 ”按钮，则把 Textl文本框清空。程序运行时的窗体界面如图 584所示。注意：请去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原 文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的，在名称为 Forml的窗体上有一个 Label控件和两个名称分别为 Commandl和Co
5、mmand2、标题分别为 “开始 ”和 “关闭 ”的命令按钮。编写函数 Minus(A， N)，其功能是由数字 A和 0组成的不多于 N位数的整数，利用该函数求 8000800808的值并把结果写入考生文件夹下的 sj5 dat文件中。执行完毕， “开始 ”按钮变成 “完成 ”，且无效，如图 516所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 VB机试模拟试卷 104答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，在窗体上添加一个标
6、签，名称为 Labell， Caption属性为空，再按 “Ctrl+E”组合键打开菜单编辑器，添加以下菜单项： 设置完成后，单击菜单进入代码编写窗口，分别编写 vbTimel和 vbTime2的处理函数，具体如下： Private Sub vbTimel_Click() Labell Caption=“8： 00 12： 00“ End Sub Private Sub vbTime2_Click() Labell Caption=“12： 00 18： 00“ End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个列表框控件和一个文本框控件添加
7、到窗体中，列表框的名称设为 Listl，单击其 List属性，在其中添加 “足球 ”、 “篮球 ”和 “排球 ”，每输入完一项按 “Ctrl+Enter”组合建输入下一项，当输入完成后，按回车键。文本框的名称为 Textl、 Caption属性为空。双击 Listl，进入代码编写窗口，具体代码如下： Private Sub Listl_Click() Listl List(Listl ListIndex)=Textl Text End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个命令按钮和两个文本框
8、控件添加到窗体中，命令按钮的名称为 Commandl、 Caption属性为 “计算 ”，文本框的名称分别为 Textl和 Text2、 Text属性都为空。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim n As Integer Dim total As Long Dim i As Integer total=0 n=Val(Textl Text) 读取 Textl中的数据 For i=0 To nFor循环遍历 O n的数 If i Mod 3=0 Then total=total+i如果能被 3整除，则相加 End I
9、f Next i Text2 Text=total在 Text2中显示结果 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查考生使用 InputBox()函数。 InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类 型，其常用语法格式为： InputBox(Prompt， Title， Default) 其中， Prompt字符串为输入框上显示的提示文本； Title字符串在输入框的标题栏上显示； Default字符串为输入框的缺省文本。本题补充后的代码如下： Private Sub Commandl_Click() Textl T
10、ext=Val(InputBox(“请输入 “)+Val(InputBox(“请输入 “) 将输入的两个数相加的结果显示在 Textl中 End Sub Private Sub Command2_Click() Textl Text=“清空文本框 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将一个标签和两个命令按钮添加到窗体中，标签的Caption属性为 “编写函数 Minus(A， N)，其功能是由数字 A(第一个数字 )和 0组成的不多于 N位数的整数，并利用该函数求 800080080一 8的结果，将结果写入考生文件夹下的
11、sj5 dat文件中 ”，两个命令按钮的名称分别设为 Commandl和Command2， Caption属性分别为 “开始 ”和 “关闭 ”。双击 Commandl进入代码编写窗口，编写 Minus函数，代码如下： Private Sub Commandl_Click() Dim total As Long total=Minus(8， 4) Open App Path&“sjs dat“For Output As#1打开文件准备写入 Write#1， total写入结果 Close#1 End Sub Private Function Minus(A As Integer， N As In
12、teger)As Long Dim i As Integer Dim j As Integer Dim b As Long total=0 If N=1 Then For i=N To 1 Step-1 b-1 For j-1 To i-1 b=b*10 Next j If i=N Then Minus=Minus+A*b第一个数是正数 Else Minus=Minus-A*b其他的是负数，即相减 End If Next i End If Commandl Enabled=False Commandl Caption=“完成 “End FunctionPrivate Sub Command2 Click() Unload MeEnd Sub单击 按钮运行程序，并按要求保存。
