1、VB 机试模拟试卷 32 及答案与解析 一、基本操作题（ 30分） 1 在 Form1的窗体上建立一个二级下拉菜单。第一级共有二个菜单项，名称分别为Operation、 Help，标题分别为 “操作 ”、 “帮助 ”；在 “操作 ”菜单下有第二级菜单，含有两个菜单项，名称分别为 Msg、 MyExit，标题分别为 “显示消息 ”、 “退出 ”(如图11所示 )。程序运行后，单击 “显示消息 ”菜单时，弹出一个消息框，其中的消息为 “计算机等级考试 ”(如图 12所示 )；单击 “退出 ”则结束应用程序。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为sjt1.f
2、rm。 2在窗体上画两个单选按钮 (名称分别为 Op1和 Op2，标题分别为 “本科生 ”和 “研究生 ”)和一个文本框 (名称为 T1)，然后编写适当的代码。程序运行后，如果选择 “本科生 ”单选按钮，则在文本框中显示 “我是本科生 ”；如果选择 “研究生 ”单选按钮，则在文本框中显示 “我是研究生 ”。程序的运行情况如图 13和图 14所示。存盘时，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 1. 在名称窗体为 Form1， KeyPreview属性为 True的窗体上有一个列表框 (名称为List1)和一个文本框 (名称为 Text1)
3、，如图 21所示。编写窗体的 KeyDown事件过程。程序运行后，如果按 “A”键，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于三个 )；如果按 “D”键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 22所示。 在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为 sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为适当的内 容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 2在考生文件夹下有一个工程文件 sjt4.vbp，相应的窗体文件为 sjt4
4、.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0 1000范围内不能被 ?整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7整除的整数的个数的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任伺内容，只在 Function Fun()和 End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个过程文件 sjt5.vbp，窗体上有两个图片框，名称为 P1、P2，分别用来表示信号灯和汽车，其中在 P1中轮流装入
5、 “黄灯 .ico”、 “红灯 .ico、“绿灯 .ico”文件来实现信号灯的切换；还有两个计时器 Timer1和 Timer2， Timer1用于变换信号灯，黄灯 1秒，红灯 2秒，绿灯 3秒； Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击 “车按 ”按钮后，汽车开始移动，如果移动到 信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。 在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt
6、5.frm文件内容如下： Dim a%,b As Boolean Private Sub C1_Click() Timer2.Enabled=? b=True End Sub Private Sub Timer1_Timer() a=a+1 If a 6 Then a=1 End If Select Case a Case 1 P1.Picture=LoadPicture(“黄灯 .ico“ ) Case 2,3 P1.Picture=LoadPicture(“红灯 .ico“) Case 4,5,6 P1.Picture=LoadPicture(“?“) If b Then Timer2.E
7、nabled=True End Select End Sub Private Sub Timer2_Timer() If (a 4) And (P2.Left P1.Left And P2.Left P1.Left+P1.Width) Or P2.Left =100 Then Timer2.Enabled=? Else P2.Move? 10,P2.Top,P2.Width,P2.Height End If End Sub VB 机试模拟试卷 32 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 建立界面和设置对象属性。 程序用到的控件及其属性如下表 l所示。 编写程序代码 Priv
8、ate Sub Msg_Click() MsgBox“计算机等级考试 “ End Sub Private Sub MyExit_Click() End End Sub 按题目要求存盘。 2 启动Visual Basic，在窗体上画一个文本框和两个单选按 钮。 在属性窗口中设置3个控件的属性值，见表 2。 编写第 1个单选按钮的 Click事件过程： Private Sub Op1_Click() Text1.Text “我是本科生 “ End Sub 编写第 2个单选按钮的 Click事件过程： Private Sub Op2_Click() Text1.Text “我是研究生 “ End S
9、ub 二、简单应用题（ 40分） 2 【正确答案】 解析：判断按键可以在窗体的 KeyDown事件下用 Chr函数将按键代码转换成字符与给定字符进行比较。 使用 AddItem方法向列表框中添加列表项目，使用 RemoveItem 方法从列表框中删除列表项目。程序中用到了 InputBox()，其格式为： InputBox(prompt, title, default, xpos, ypos, helpfile, context) prompt：是一个字符串，其长度不得超过 1024个字符，它是在对话框内显示的信息，用来提示用户输入。 title：字符串，它是对话框的标题，显示在对话框顶部的标
10、题区。 default： 字符串，用来显示输入缓冲区的默认信息。 xpos， ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离 (xpos)和上边的距离 (ypos)，它们的单位为 twip。 helpfile， context： helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字； context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 3。 表 3控 件 属 性 设置值 Form1 KeyPreview True Listbox Name List1 文本框 Name
11、Text1 第二步：编写程序代码。 程序提供的代码： Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer) If Chr(KeyCode)=“A“Then Text1.Text=InputBox(“请输入要添加的项目 “) List1.AddItem ? End If If Chr(KeyCode)=“D“Then Text1.Text=InputBox(“请输入要删除的项目 “) For i=0 To ? If List1. List (i)=? Then List1. RemoveItem ? End If Nex
12、t i End If End Sub 参考代码： Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) If Chr(KeyCode)=“A“ Then Text1. Text=InputBox(“请输入要添加的 项目 “) List1. AddItem Text1 End If If Chr(KeyCode)=“D“Then Text1. Text=InputBox (“请输入要删除的项目 “) For i=0 To List1.ListCount1 If List1. List (i) = Form1.Text1 T
13、hen List1. RemoveItem (i) End If Next i End If End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 2 程序中用到的 Mod是取模的运算符，如： N Mod 7 0则说明余数为 0， N能被 7整除，否则 N不能被 7整除；程序中的变量 num统计的不能被 7整除的个数，当 I Mod 70时， num则加 1，表示当前有一个不可以被 7整除的数；题目要求文本框里显示不能被 7整除的数的个数，而 num保留的是要求的结果，所以赋给文本框的值是 num(Text1.Text num)。 解题步骤： 第一步：编写程序代码。 程序提供的代
14、码： Sub SaveData( ) Open App. Path & “ & “outtxt.txt“ For Output As #1 Print #1,Text1.Text Close #1 End Sub Function Fun() End Function Private Sub Command1_Cliek() d=Fun() SaveData End Sub 参考代码： Sub SaveData() Open App. Path & “ & “outtxt. txt“ For Output As #1 Print #1, Text1.Text Close #1 End Sub
15、Function Fun() Dim i As Integer, hum As Integer For i=0 To 1000 If i Mod 70 Then num=num+1 End If Next i Text1. Text num End Function Private Sub Command1_Click() d Fun() SaveData End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 对象主要属性设置如表 4所示。 分析： 窗体上的两个图片框、两个计时器和一个命令按钮，它们的属性按表 4的内容进行设置。对于一
16、个含有计时器控件的窗体，当属性 Enabled为 True时，每经过一段由属性 Interval指定的时间 (毫秒 )间隔，就产生一个 Timer事件。当属性 Enabled为 False或属性Interval为 O时，将终止 Timer事件。在程序运行期间可以用 Load-Picture函数把图形文件装入窗体、图片框或图像框中。 Move方法的格式为： Object. Move left, top, width, height? object为 一个对象； ? left(必需的 )为 object左边的水平坐标 (x轴 )； ? top(可选的 )为 object顶边的垂直坐标 (y轴 )；
17、 ? width(可选的 )为 object新的宽度； ? height(可选的 )为 object新的高度。 编程代码： Dim a%,b As Boolean Private Sub C1_Click() Timer2. Enabled=True b=True End Sub Private Sub Timer1_Timer() a=a+1 If a 6 Then a=1 End If Select Case a Case 1 P1.Picture=LoadPicture(“黄灯 .ico“) Case 2,3 P1.Picture=LoadPicture(“红灯 .ico“) Case 4,5,6 P1.Picture=LoadPieture(“绿灯 .ico“) If b Then Timer2. Enabled=True End Select End Sub Private Sub Timer2_Timer() If (a 4) And (P2. Left P1.Left And P2.LeftP1.Left+P1. Width) Or P2. Left =100 Then Timer2. Enabled=False Else P2. Move P2. Left10, P2. Top, P2.Width, P2.Height End If End Sub
