1、VB 机试-试卷 46 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 标题为“选课”的窗体上添加一个复选框数组，名称为 CHl，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下，程序运行时的窗体如图 681 所示。请按要求添加控件并设置相应属性。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹中有工程文件 sj3vbp 及其窗体
2、文件 sj3frm，该程序是不完整的。请考生在窗体上设置一个计时器，名称为 Timerl，并补充完整程序代码，使得程序开始运行后，每隔 3 秒，用黑色填充四分之一的圆，界面如图 644 所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sj5vbp，相应的窗体文件为 sj5frm。此外在考生文件夹下还有一个名为 in5txt 的文本文件，其中共有 25 个数据，其内容如下
3、： 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 程序运行后，双击窗体，将把文件 in5txt 中的数据输入到二维数组 Arr 中，在名为 Textl 的文本框上按 5 行5 列的矩阵形式显示出来，并在名为Fext2 的文本框中显示矩阵第 3 列的数据。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行时的效果如图 50 一 5 所示。 （分数：2.00）_VB 机试-试卷 46 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(
4、总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 标题为“选课”的窗体上添加一个复选框数组，名称为 CHl，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下，程序运行时的窗体如图 681 所示。请按要求添加控件并设置相应属性。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，窗体 Caption 属性为选课，添加 4 个复选框，Caption 属性分别为“数学”、“语文”、“英语”和“计算机”，复选框 2 和复选框 4 的 Value
5、 属性都为 1。单击按钮运行程序，并按要求保存。 (2)本题主要考查水平滚动条的 Name、Max、Min 和 Value属性以及命令按钮的 Caption 和 Name 属性。根据题意，新建“标准 EXE”工程，在窗体上添加一个水平滚动条控件和命令按钮控件，其中水平滚动条控件名称为 HSl、Max 属性为 100、Mir 属性为 1，命令按钮控件名称为 C1，Caption 属性为“移动滚动框”。双击进入代码窗口，编写如下代码： Private Sub C1_Click() HSlValue=HSlValue+10 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3
6、.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹中有工程文件 sj3vbp 及其窗体文件 sj3frm，该程序是不完整的。请考生在窗体上设置一个计时器，名称为 Timerl，并补充完整程序代码，使得程序开始运行后，每隔 3 秒，用黑色填充四分之一的圆，界面如图 644 所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 （分数：2.00）_正确答案：(正确答案：(1)计时器控件用以实现在规则的时间间隔触发其 Timer 事件，执行有关事件过程代码，来完成对应功能。Interval 属性用于设
7、置触发计时器的 Timer 事件的时间间隔，单位为毫秒，值为 0 时计时器不启用。Enabled 属性控制计时器是否开始启用，True 为启用，False 为不启用。 程序中用到了 Circle 函数来画圆，其格式为：原点，半径，颜色，起始角度，结束角度。每隔 3 秒填充一次，也就是第 4 秒填充一次，因此，以 4 为循环周期。根据题意，将一个计时控件添加到窗体中，其名称为 Timerl，间隔为 3000 毫秒，双击 Timerl，进入代码编写窗口，补充后的具体代码如下： Dim a As Integer Private Sub Form_Click() a= 0 初始化计数值 End Sub
8、 Private Sub Timerl_Timer() Const rPI As Single=314159265358979 圆周率 MeFillStyle=0填充方式为 0 MeCls清空窗口 For i=1 To 600 从半径为 l 到 600 画圆，即填充颜色 Me Circle (1500，1000)，i，vbBlack，360180*rPI，(90*a+90)180*rPI Next i Me Circle (1500，1000)，600，(90*a+90)180*rPI，360180*rPI a=(a+1)Mod 4以 4 为周期填充 End Sub 单击 按钮运行程序，并按要
9、求保存。 (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=“ For i=1 To 4 a(i)=Val( InputBox (“请输入：“) 逐个输入数
10、据 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 End If Next j Next i For i=1 To 4 tmp=a(i) 将排序
11、后的数组放人字符串中 str=str+tmp+“ Next i Print str显示排序后的数组字符串 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sj5vbp，相应的窗体文件为 sj5frm。此外在考生文件夹下还有一个名为 in5txt 的文本文件，其中共有 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 程序运行后，双击窗体，将把文件 in5txt 中的
12、数据输入到二维数组 Arr 中，在名为 Textl 的文本框上按 5 行5 列的矩阵形式显示出来，并在名为Fext2 的文本框中显示矩阵第 3 列的数据。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行时的效果如图 50 一 5 所示。 （分数：2.00）_正确答案：(正确答案：本题主要考查二重 For 循环和二维数组的使用，以及顺序文件数据的读取。Input#语句用于读取顺序文件中一项(或多项)数据给一个变量(或多个变量)，其语法格式如下： Input#FileNumber，Varlist 其中，FileNumber 参数表示打开文件的句柄，V
13、arlist 为变量列表。 根据题意，将两个文本框控件和两个标签控件添加到窗体中，文本框的名称分别为 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定义二维数
14、组 str=“ Open“AppPath&in5txt“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 TextlText=str在 Textl 中显示数组 Text2Text=tmp在 Text2 中显示数组第三列 End Sub 单击 )解析：
