1、VB机试模拟试卷 79及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上建立一个二级下拉菜单。一级菜单的标题为 “文件 ”，名称为 vbFile，有效；二级菜单有两项，一项标题为 “打开 ”，名称为 “vbOpen”，有效，命令执行的快捷方式为 Crtl+N，一项标题为 “保存 ”，名称为 “VbSaVe”，执行快捷键方式为 Ctrl十 S，有效，另一项标题为 “关闭 ”，名称为 “vbClose”，无效，命令执行的快捷方式为 Ctrl+C。程序运行时，窗体界面如图 561所示。 注意：存盘时必须存放到考生文件 夹下，工程文件名为 sjl vbp，窗体文件名为 s
2、jl frm。 (2)在名称为 Forml的窗体上绘制一个名为 Textl的文本框控件和一个名为 Timerl的计时器控件，程序运行后，文本框中显示的是当前的日期和时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，如图 562所示。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj2 frm，工程文件名为 sj2 Vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，相应的窗体文件为 sj3 frm。其功能是随机产生 30个 0 1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮 (名称为
3、Commandl，标题为 “输出最小值 ”)，即可求出其最小值，并在窗体上显示出来 (如图 40一 4所示 )。这个程序不完整，请把它补充完整，并能正确运行。 注意：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。窗口中有一个名称为 Picturel的图片框，一个名称为 HScrolll的滚动条， 3个名称分别为 Commandl、 Command2和 Command3的命令按钮，标题分别为 “开始 ”、 “暂停 ”和
4、“关闭 ”，一个名称为 Timerl的计时器控件。程序运行后，单击 “开始 ”按钮后，使红框沿直线左右运动，并可以使用滚动条调节运动的速度；单击 “暂停 ”按钮后，小球暂停运动；单击 “关闭 ”按钮结束程序。程序运行界面如图405所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不 得改变文件名和文件夹。 三、综合应用题（ 30分） 3 去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。在窗体上有 3个命令按钮，名称分别为 Read、 Cal和 save，标题分
5、别为 “读入数据 ”、 “判断计算 ”和 “保存 ”，还有两个文本框 (名称分别为 Textl和 Text2，其中 Textl的 MultiLine属性设置为 True， ScrollBars属性设置为 2)，程序运行界面如图 315所示。 程序运行后，如果单击 “读人数据 ”按钮，则读入 sjin txt文件中 的 50个整数，放人一个数组中，数组的下界为 l；如果单击 “判断计算 ”按钮，则把该数组中大于 400且是奇数的元素在文本框中显示出来，并求出它们的和，并把所求得的和在 Text2中显示出来；如果单击 “保存 ”按钮，则把所求得的和存入考生文件夹下的 sjout txt文件中。在考
6、生文件夹下有一个工程文件 sj5 vbp，输出文件名为 sjout txt。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sj5 vbp，窗体文件名仍为 sj5 frm。 VB机试模拟试卷 79答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，打开菜单编辑器，添人以下几项： 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 Timer控件和一个Text控件添加到窗体上， Timer的名称为 Timerl、 Interval属性为 1 000毫秒， Text的名称为 Textl、 Te
7、xt属性为空。双击 Timerl，进入代码窗口，编写如下代码： Private Sub Timerl_Timer() Textl Text=Date+Time End Sub 单击 按钮运 行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查 Randomize语句、 Rnd()函数、 Int()函数、循环语句、判断语句以及 Print方法，根据题意，双击进入代码窗口，编写如下代码： 0ption Base 1 Private Sub Commandl_Click() Dim arrN(30)As Integer Dim Min As Integer Ran
8、domize For i=1 To 30 arrN(i)=Int(Rnd*1000) Next i Min=arrN(1) For i=2 To 30 If arrN(i) 按钮运行程序，并按要求保存。 (2)计时器控件作用是以一定的时间间隔激发计时器事件 (Timer)执行相应的代码。当计时器控件的 Enabled属性为 True时，计时器计时开始，当为 False时计时器计时暂停。 根据题意，将 3个命令按钮、一个标签、一个计时控件和一个水平滚动条控件添加到窗体中，命令按钮的名称分别为 Commandl、 Command2和 Command3， Caption属性为 “开始 ”、 “暂停
9、”和“关闭 ”， Timer的间隔为 0，名称为 Timerl，标签的名称为 Labell，背景色为红色，水平滚动条的名称为 HScrolll， Min属性为 5， Max属性为 30。双击Commandl进入代码编写窗口，开始时，将 Timer的 Interval赋为 1，而暂停时则设为 0，初始 Interval为 0，具体代码如下： Dim direct As Integer Dim rights As Integer Dim lr As Integer Private Sub Commandl_Click() Timerl Interval=1 gnd Sub Private Sub
10、Command2 Click() Timerl Interval=0 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() direct=0 Timerl Interval=0 Timerl Timer End Sub Private Sub Timerl Timer() rights=Forml Width-1500 lr=Labell Left+Labell Width If Labell Left=3 60 And lrrights Then direct=1 Labell Left=
11、rights-Labell Width End If End If End Sub 单击按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将两个 Text控件和 3个 Command控件添加到窗体上，Text的名称分别为 Textl和 Text2、 Text属性全为空，其中 Textl的 MultiLine属性为 True、 ScrollBar属性为 2、 Command的名称分别为 Commandl、 Command2和Command3， Caption属性分别为 “读人数据 ”、 “判断计算 ”和 “保存 ”。双击Commandl命令按钮，编写如下代码：
12、 Dim a(50)As Integer Dim total As Long Private Sub Commandl_Click() Dim str As String Dim i As Integer str=“ Open“App Pathl& sjin txt“For Input As#1 打开文件准备读入 For i=1 To 50 利用For循 环将 50个数读人到数组中 Input#1， a(i) str=str+CStr(a(i)+vbCrLf以字符串形式保存 Next i Close#1 Textl Text=str在 Textl中显示数组 End Sub Private Su
13、b Command2_Click() Dim i As Integer Dim str As String str=“ total=0 For i=1 To 50利用 For循环遍历数组 If a(i)400 And a(i)Mod 2=1 Then判断是否大于 400且是奇数 total=total+a(i) 如果是则求和 str=str+CStr(a(i)+vbCrLf并放入输出字符串中 End If Next i Textl Text=str在 Textl中显示符合条件的数 Text2 Text=total在 Text2中显示和 End Sub Private Sub Command3 Click() Open“App Pathg& sjout txt“For Output As#2打开文件准备写入 Print#2， total将求得的和写入文件中 Close#2 End Sub 单击 按钮运行程序，并按要求保存。
