1、VB机试模拟试卷 86及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml标题为 “选课 ”的窗体上添加一个复选框数组，名称为 CHl，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中 “语文 ”、 “计算机 ”复选框处在选中状态下，程序运行时的窗体如图 681所示。请按要求添加控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjl vbp，窗体文件名保存为sjl frm。 (2)在名称为 Forml的窗体上添加一个名称为 HSl的水平滚动条，其刻 度值范围为 1 100；添加一个命令按钮，名称为
2、C1、标题为 “移动滚动框 ”。请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次 (假定单击次数不多于10次 )，滚动框向右移动 10个刻度。程序运行时的窗体如图 682所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj2 vbp，窗体文件名保存为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有工程文件 sj3 vbp及其窗体文件 sj3 frm，该程序是不完整的。请考生在窗体 上设置一个计时器，名称为 Timerl，并补充完整程序代码，使得程序开始运行后，每隔 3秒，用黑色填充四分之一的圆，
3、界面如图 644所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件 sj4 Vbp及窗体文件 sj4 frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮 “输入 ”时，可以输入 4个数值，随后程序对这4个数值进行升序排序，并显示出来，如图 645所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件
4、 sj5 vbp，相应的窗体文件为 sj5 frm。此外在考生文件夹下还有一个名为 in5 txt的文本文件，其中共有 25个数据，其内容如下： 10， 11， 12， 13， 14， 15， 16， 17， 18， 19， 20， 21， 22， 23， 24， 25，26， 27， 28， 29， 30， 31， 32， 33， 34 程序运行后，双击窗体，将把文件 in5 txt中的数据输入到二维数组 Arr中，在名为 Textl的文本框上按 5行 5 列的矩阵形式显示出来，并在名为 Fext2的文本框中显示矩阵第 3列的数据。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它
5、补充完整，并使之能正确运行。程序运行时的效果如图 50一 5所示。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的工程文件与窗体文件按原文件名存盘。 VB机试模拟试卷 86答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，窗体 Caption属性为选课，添加 4个复选框， Caption属性分别为 “数学 ”、 “语文 ”、 “英语 ”和 “计算机 ”，复选框 2和复选框 4的 Value属性都为 1。单击按钮运行程序，并按要求保存。 (2)本题主要考查水平滚动条
6、的 Name、 Max、 Min和 Value属性以及命令按钮的 Caption和Name属性。根据题意，新建 “标准 EXE”工程，在窗体上添加一个水平滚动条控件和命令按钮控件，其中水平滚动条控件名称为 HSl、 Max属性为 100、 Mir属性为1，命令按钮控件名称为 C1， Caption属性为 “移动滚动框 ”。双击进入代码窗口，编写如下代码： Private Sub C1_Click() HSl Value=HSl Value+10 End Sub 单击按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)计时器控件用以实现在规则的时间间隔触发其 Tim
7、er事件，执行有关事件过程代码，来完成对应功能。 Interval属性用于设置触发计时器的Timer事件的时间间隔，单位为毫秒，值为 0时计时器不启用。 Enabled属性控制计时器是否开始启用， True为启用， False为不启用。 程序中用到了 Circle函数来画圆，其格式为：原点，半径， 颜色 ， 起始角度 ， 结束角度 。每隔 3秒填充一次，也就是第 4秒填充一次，因此，以 4为循环周期。根据题意，将一个计时控件添加到窗体中，其名称为 Timerl，间隔为 3000毫秒，双击 Timerl，进入代码编写窗口，补充后的具体代码如下： Dim a As Integer Private
8、Sub Form_Click() a=0初始化计数值 End Sub Private Sub Timerl_Timer() Const rPI As Single=3 14159265358979 圆周率 Me FillStyle=0填充方式为 0 Me Cls清空窗口 For i=1 To 600 从半径为 l到 600画圆，即填充颜色 Me Circle(1500， 1000)，i， vbBlack， 360 180*rPI， (90*a+90) 180*rPI Next i Me Circle(1500， 1000)，600， (90*a+90) 180*rPI， 360 180*rPI
9、 a=(a+1)Mod 4以 4为周期填充 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查考生阅读程序的能力，以及对数组、输入函数、 IF语句的掌握情况。 根据题意，将两个命令按钮添加到窗体中，名称分别为 Commandl和 Command2、 Caption分别为 “输入 ”和 “排序 ”，设置完成后双击 Commandl进入代码窗口，补充后的代码如下： Dim a(4)As Integer Dim i As Integer Dim str As String Dim,tmp As String Private Sub Commandl_Click() str=“ F
10、or i=1 To 4 a(i)=Val(InputBox(“请输入： “) 逐个输入数据 tmp=a(i) str=str+tmp+“ 将数据放入字符串中 Next i Print str 在窗口上显示字符串 End Sub Private Sub Command2_Click() str=“排序后： “ For i=1 To 4 升序排列 temp=a(i) For i=0 To i If a(j)temp Then读取的数据 比原位置的数据大则偏移 For k=i To j+1 Step-1 a(k)=a(k-1) 数据向后偏移一个 Next k a(j)=temp Exit For E
11、nd If Next j Next i For i=1 To 4 tmp=a(i) 将排序后的数组放人字符串中 str=str+tmp+“ Next i Print str显示排序后的数组字符串 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查二重 For循环和二维数组的使用， 以及顺序文件数据的读取。 Input#语句用于读取顺序文件中一项 (或多项 )数据给一个变量 (或多个变量 )，其语法格式如下： Input#FileNumber， Varlist 其中， FileNumber参数表示打开文件的句柄， Varlist为变量列
12、表。 根据题意，将两个文本框控件和两个标签控件添加到窗体中，文本框的名称分别为 Textl和 Text2、 Text属性都为空 Textl的MultiLine属性为 True、 ScrollBar属性为 2，标签控件的 Caption属性分别为 “55矩阵如下： ”和 “矩阵第 3列数据： ”。补充后的具体代码如下： Private Sub Form_DblClick() Dim str As String Dim trap As String Dim i As Integer Dim j AS Integer Dim Arr(5， 5)As Integer定义二维数组 str=“ Open“
13、App Path&in5 txt“For Input As#1 打开文件准备读取 For i=1 To 5对数组的行读取 For j=1 To 5对数组的列读取 Input#1， Arr(i， j) 将读取到的数放人数组 Arr中 str=str+CStr(Arr(i， j)+“ 将数组写入字符串中 Next j str=str+vbCrLf 每读完一行则添加换行字符串 Next i Close#1关闭文件 tmp=“ For i=1 To 5 For循环读取数组中的第三列 tmp=tmp+CStr(Arr(i， 3)+“ 将读取到的数据写入字符串 Next i Textl Text=str在 Textl中显示数组 Text2 Text=tmp在 Text2中显示数组第三列End Sub单击 按钮运行程序，并按要求保存。
