1、国家二级（ VB）机试模拟试卷 10及答案与解析 一、选择题 1 算法空间复杂度是指 ( )。 （ A）算法执行过程中所需要的存储空间 （ B）算法程序中的指令一共有多少条 （ C）算法程序所占的存储空间的大小 （ D）算法程序的大小 2 以下关于队列的叙述中正确的是 ( )。 （ A）在队列中只能插入数据 （ B）在队列中只能删除数据 （ C）队列是先进后出 (FILO)的线性表 （ D）队列是先进先出 (FIFO)的线性表 3 在待排序的元素序列基本有序的前提下，效率最高的排序方法是 ( )。 （ A）快速排序 （ B）堆排序 （ C）冒泡排序 （ D）归并排序 4 在面向对象方法中，一个
2、对象请求另一个对象为其服务的方式是通过发送 ( )。 （ A）语句 （ B）命令 （ C）调用程序 （ D）消息 5 以下叙述中，正确的是 ( )。 （ A）软件就是程序的集合 （ B）软件包括程序和文档 （ C）软件应包括程序清单及结果 （ D）软件就是文件 6 程序流程图 (PFD中的 “口 ”代表的是 ( )。 （ A）加工步骤 （ B）数据流 （ C）控制流 （ D）组成关系 7 概要设计使用的工具是 ( )。 （ A）系统结构图 （ B）程序流程图 （ C） PAD图 （ D）数据流图 (DFD图 ) 8 软件测试的过程是 ( )。 a验收测试 b集成测试 c单元测试 d系统测试 （
3、 A） a、 b、 c、 d （ B） d、 c、 b、 a （ C） b、 a、 d、 c （ D） c、 b、 a、 d 9 以下关于数据库系统的叙述中正确的是 ( )。 （ A）数据库系统消除了冗余 （ B）数据库系统减少了数据冗余 （ C）数据库系统中数据的一致性是指数据类型的一致 （ D）数据库系统比文件系统管理数据快 10 用二维表结构表示实体与实体间联系的数据模型是 ( )。 （ A）网状模型 （ B）层次模型 （ C）面向对象模型 （ D）关系模型 11 设计窗体时，双击窗体上没有控件的地方，打开的窗口是 ( )。 （ A）代码窗口 （ B）属性窗口 （ C）工具箱窗口 （ D
4、）工程窗口 12 要计算 x的平方根并放入变量 y，正确的语句是 ( )。 （ A） y=Exp(x) （ B） y=Sgn(x) （ C） y=Int(x) （ D） y=Sqr(x) 13 Print Format(1234 56， “# ”)语句的输出结果是 ( )。 （ A） 123.4 （ B） 1234.6 （ C） 1234.5 （ D） 1234.56 14 Print Right(”VB Programming”， 2)语句的输出结果是 ( )。 （ A） VB （ B） Programming （ C） ng （ D） 2 15 表达式 12 2 4的值是 ( )。 （ A
5、） 1.5 （ B） 2 （ C） 4 （ D） 1 16 下列数组定义中错误的是 ( )。 （ A） Dim a(-5To-3) （ B） Dim a(3 To 5) （ C） Dim a(-3To-5) （ D） Dim a(-3To 3) 17 在某个事件过程中定义的变量是 ( )。 （ A）局部变量 （ B）窗体级变量 （ C）全局变量 （ D）模块变量 18 以下过程定义中正确的过程首行是 ( )。 （ A） Private Sub Proc(Optional a as Integer， b as Integer) （ B） Prirate Sub Proc(a as Integer
6、)as Integer （ C） Private Sub Proc(a()As Integer) （ D） Private Sub Proe(ByVal a()As Integer) 19 如果一个菜单项的 Enabled属性被设置为 False，则程序运行时，该菜单项( )。 （ A）不显示 （ B）显示但无效 （ C）有效可用 （ D）不显示但有效可用 20 顺序文件在一次打开期间 ( )。 （ A）只能读，不能写 （ B）只能写，不能读 （ C）既可读，又可写 （ D）或者 只读，或者只写 21 要使图像框 (Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是( )。 （
7、A） AutoSize值为 True （ B） AutoRedraw值为 True （ C） Stretch值为 True （ D） BorderStyle值为 0 22 如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是 ( )。 （ A） （ B） （ C） （ D） 23 如果在框架中画了 2个复选框，且框架的 Enabled属性被设置为 False， 2个复选框的 Enabled属性被设置为 True，则下面叙述中正确的是 ( )。 （ A） 2个复选框可用 （ B） 2个复选框不可用 （ C） 2个复选框不显示 （ D）上述都不对 24 设窗体上有 2个直线控件 Linel和 L
8、ine2，若使两条直线相连接，需满足的条件是 ( )。 （ A） Linel X1=Line2 X2且 Linel Y1=Line2 Y2 （ B） Linel X1=Line2 Y1且 Linel Y1=Line2 Xl （ C） Linel X2=Line2 Xl且 Linel Y1=Line2 Y2 （ D） Linel X2=Line2 X1且 Linel Y2=Line2 Y2 25 设在窗体上有一个名称为 Checkl的复选框数组，并有以下事件过程： Private Sub Check1 Click(Index As Integer) End Sub 则下面叙述中错误的是 ( )。
9、 （ A）单击数组中任何复选框都会调用此事件过程 （ B）参数 Index的值等于单击数组中某个复选框的 Index属性的值 （ C）上面的过程是数组中第 1个复选框的事件过程 （ D）从过程的首部 (即第 1行 )无法确定数组中复选框的个数 26 下面列表框属性中，是数组的是 ( )。 （ A） ListCount （ B） Selected （ C） ListIndex （ D） MuhiSelect 27 如果要在窗体上使用 2组单选按钮，每组都可以有一个被选中，则应该做的是( )。 （ A）把 1组单选按钮画在窗体的左边，另 1组画在右边 （ B）先画 2组单选按钮，再画 2个框架控件
10、把 2组单选按钮分别框起来 （ C）先画 2个框架控件，再把 2组单选按钮分别画在不同的框架中 （ D）因为 1个窗体中只有 1个 单选按钮可以被选中，所以需要使用 2个窗体 28 窗体上有一个 Textl文本框，并编写了下面事件过程： Private Sub Text 1_KeyPress(KeyAscii As Integer) KeyAsci i=KeyAscii+3 End Sub 程序运行时，在文本框中输入字符 “A”，则在文本框中实际显示的是 ( )。 （ A） A （ B） B （ C） C （ D） D 29 设窗体上有一个水平滚动条 HScrolIl和一个命令按钮 Comma
11、ndl， 及下面的事件过程： Private Sub Form Load() HScrolll.Min=0 HScrolll Max=100 End Sub Private Sub Commandl Click() HScrolll Value=70 End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是 ( )。 （ A） （ B） （ C） （ D） 30 窗体上有一个名称为 Textl的文本框，一个名称为 Commandl的命令按钮。以下程序的 功能是从顺序文件中读取数据： Private Sub Commandl Click() Dim sl As String， s2
12、As String Open“c： d4 dat”For Append As#3 Line Input#3， sl Line Input#3， s2 Textl Text=sl十 s2 Close End Sub 该程序运行时有错误，应该进行的修改是 ( )。 （ A）将 Open语句中的 For Append改为 For Input （ B）将 Line Input改为 Line （ C）将两条 Line Input语句合并为 Line Input#3， sl， s2 （ D）将 Close语句改为 Close#3 31 设有如下事件过程： Private Sub Commandl Clic
13、k() For i=1 To 5 j=I Do Print“*” j=j-l Loop Until j=0 Next I End Sub 运行程序，输出 “*”的个数是 ( )。 （ A） 5 （ B） 15 （ C） 20 （ D） 25 32 设有如下事件过程： Private Sub Commandl Click() Dim a a=Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x=0 n=UBound(a) For i=0 To n m=0 For j=0 To n If a(i)=a(j)Then m=m+l End
14、 If Next j If mx Then X=m： b=a(i) Next i Print b End Sub 运行程序，输出是 ( )。 （ A） 2 （ B） 3 （ C） 5 （ D） 9 33 设窗体 上有 2个文本框 Textl和 Text2，并有下面的事件过程： Dim n Private Sub TextlKeyPress(KeyAscii As Integer) lf“A”=Y X X Y Loop fun=X End Function 程序运行时的输出结果是 ( )。 （ A） 4 0 1 0 3 0 0 4 0 （ B） 0 3 3 5 1 3 5 l 2 （ C） 9
15、-5 3 -5 7 -2 -4 7-2 （ D） 9 3 3 5 7 3 5 7 2 35 设有下面的语句： Print IIf(x0， 1， IIf(X0 Then X=l ElseIf X0 Then Print l ElseIf X0 Print l Case Is0 Then If X0 Then Print l ElseIf X0 Then ch Listl List(n) Listl List(n)=Listl List(n 1) Listl List(n 1)=ch End If End Sub 程序运行时，选中 1个列表项，然后单击 Commandl按钮，则产生的结果是( )。
16、 （ A）若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 （ B）选中的列表项与它前面的列表项互换位置 （ C）若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置 （ D）选中的列表项与它后面的列表项互换位置 39 设有如下函数： Function DelSpace(ch As String)As Integer Dim fl， st$， C$ st=“” n=0 For k=1 To Len(ch) c=Mid(ch， k， 1) If C=下界。故 C选项错误。 17 【正确答案】 A 【试题解析】 在某个事件过程中定义的变量是局部变量；在窗体或标准模块
17、中用Dim或 Pfate定义的变齄是窗体级或模块级变 量；在窗体或标准模块中用 Public定义的变量是全局变量。故选 A。 18 【正确答案】 C 【试题解析】 A选项错误原因： Sub 过程的第 1个参数 a用 Optional 关键字声明，说明为可选参数，那么后面的参数 b也必须是可选参数，用 Optional 声明。B 选项错误原因： Sub过程无返回值，不用指明返回值数据类型。 D选项错误原因：可以用 ByVal 关键字声明变量，不能声明数组。 C选项正确。 19 【正确答案】 B 【试题解析】 菜单项默认情况下显示， Enabled 属性值为 False表示菜单项无效 。所以菜单项
18、显示但无效。故选 B。 20 【正确答案】 D 【试题解析】 顺序文件的读写是由 Open 语句的打开模式决定。用 Output模式打开，则可对顺序文件进行写操作；用 Input模式打开，可对顺序文件进行读操作；用 Append模式打开，可将数据追加到文件尾部。打开一次期间，只能读，或只能写，不能同时进行读写操作。但随机文件和二进制文件打开以后可以同时进行读写操作。故 D选项正确。 21 【正确答案】 C 【试题解析】 图像框控件的 Stretch 属性用来调整图像框中图形内容的大小。它既可以 通过属性窗口设置，也可通过程序设置。该属性的取值为 True或 Flase。当其属性值为 False
19、时，将自动放大或缩小图像框中的图形与图像框的大小相适应。 22 【正确答案】 B 【试题解析】 标控件在工具箱中的图标是 。而 是文本框控件的图标， 是按钮控件的图标， 是形状控件的图标。 23 【正确答案】 B 【试题解析】 对于框架来说，通常把 Enable属性设置为 True，这样才能保证框架内的对象是 “活动 ”的。如果把框架的 Enable属性设置为 False，则其标题变灰，其中的所有对象，包括文本 框、命令按钮、复选框等其他对象都会被屏蔽，虽然显示但不可用。 24 【正确答案】 A 【试题解析】 矗线控件的 x1、 Y1和 2、 Y2属性分别表示直线两个端点的坐标，即 (Xl，
20、Y1)和 (X2， Y2)。如果硬使两条直线相连，硅然这两条直线的某一端点的坐标相同才行。因此本题需要 Linel x1=Line2 X1且Linel Yl=Line2 Yl，或 Linel X1=Line2 X2且 Linel Yl=Line2 Y2，或Linel x2=Line2 Xl 且 Linel Y2=Line2。 Yl，或 Linel X2=Line2 X2 且Linel Y2=Line2 Y2。因此 A选项正确。 25 【正确答案】 C 【试题解析】 控件数组具有相同的名称，它们以 Index属性值作为数组元素的下标，以此来区别控件数组的各个成员。本题中，单击复选框数组中的任何一
21、个都会调用同一个单击事件过程，因此 C选项叙述有洪。在单击事件过程参数中，Index参数即是该复选框的 Index属性值。由于控件数组使用具有相同的名称且有相同的单击事件过程，因此从过程的首部无法确定数组小的复选框的个数。 26 【正确答案】 B 【试题解析】 在列表框控件中， Selected 属性是一个数组，各个元素的值为 True或 False，每个元素与列表框中的一项相对应，当元素值为 True时表明选择了该项，如为 False表示未选择。 ListCount属性值是一个数组，它列出列表框中表项的数量； ListIndex 属性值表示已选中的表项的位置，表项位置由索引值指定，第一项索引
22、值为 0，第二项为 1，以此类推； Multi-Select属性用来设置一次可以选择的表项是一项、多项、指定范围。 27 【正确答案】 C 【试题解析】 框架用于将窗体上 的对象分组。使用两个框架就可以设置两组单选按钮，使每组都可以有一个被选中。必须先画框架，然后在框架内画出需要成为一组的控件，才能使框架内的控件成为一个事件。如果在框架外画一个控件，然后把它拖到框架内，则该控件不是框架的一部分，移动框架时，该控件也不会跟着移动。 28 【正确答案】 D 【试题解析】 KeyPress 事件执行时，其中的 KeyAscii 参数是所按键的 ASCII码，按下 “A”键， KeyAscii 的值为
23、 65，在过程中 65+3=68，即 A 字符后面的第 3个字符的 ASCII码值，即字符 “D”， 因此在文本框中回显 “D” 29 【正确答案】 C 【试题解析】 题目中程序运行时设置水平滚动条所能表示的最小值为 0，能表示的最大值为 100，当单击命令按钮时，没置水平滚动条的当前位置为 70，即在水平滚动条中部偏右的位置，按各个选项图彤的所示， C选项的图示与题目相符。 30 【正确答案】 A 【试题解析】 文件打开方式中的 Append意味着打开的文件是顺序输出方式，也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此 Open”c：d4 dat”For Ap-pend As
24、3应该改为 Open”c d4 dat”For Input As 3。所以A选项正确。 Close语语句中的文件号可以省略，这时会关闭所有打开的文件。 31 【正确答案】 B 【试题解析】 i=1 时，输出 1个 *， i=2 时，输出 2个 * i 3时，输出 3个 *， j4时输出 4个 *， k 5时输出 5个 *，因此总共输出的个数是 1+2+3+4+5=15。 32 【正确答案】 B 【试题解析】 本题程序中内层 For循环是统计具有相同值元索的个数，外层循环的功能则是，对数组中的所有元素进行统计，找出第 1个具有 相同值的元素个数最多的那个元素值。数组组中元素值为 3的元素有 5个
25、，元素值为 5的元素有 5个，元素值为 6的元素为 3个，元为 9的元素有 1个。因此第 1个具有相同元素值的最多个的元素值是 3。 33 【正确答案】 A 【试题解析】 KeyPress 事件的参数 KeyAscii 为所按键的 ASCII 码， Chr函数把这个 ASCIl码转换为对应的字符，回车键的 ASClI码值是 13。程序中 KeyPress过程的功能是统计 Texll 文本框中输入的字符串中 A z之间字母的个数，按回车键后把个数值显示在 Text2文本框中。存 Textl义本框中输入 “Visual Basic 6 0”，其中 A z的字母有 2个，按回车键后， Text文本框
26、将会显示 2。 34 【正确答案】 B 【试题解析】 数组默认下标为 0，因此数组 a中的元素 a(0)=12， a(1)=3，a(2)=8， a(3)=5， a(4)=10， a(5)=3， a(6)=5， a(7)=9， a(8)=2， a(9)=4。 k=l 时， fun(a(k-1)， a(k)即 fun(a(0)， a(1)，即 fun(12， 3)，过程中 x=x-y=12-3=9-3=6-3=3-3=0，函数返回 0； k=2 时， fun(a(k-1)， a(k)即 fun(a(1)， a(2)，即 fun(3， 8)， x=y不成立，函数直接返回 3； k=3 时， fun(
27、a(k-1)， a(k)即 fun(a(2)， a(3)，即 fun(8， 5)，过程中 x=x-y=8-5=3，函数回返 3； k=4 时， fun(a(k-1)， a(k)即 fun(a(3)， a(4)，即 fun(5， l0)， x=y 不成立，函数直接返回 5； k=5时， fun(a(k-1)， a(k)即 tun(a(4)， a(5)，即 fun(10、 3)，过程中 x=x-y=10-3=7-3=4-3=1，函数返回 1； k=6 时， fun(a(k-I)， a(k)即 fun(a(5)， a(6)，即 fun(3， 5)， x=y不成立，函数直接返回 3； k=7时， fl
28、irt(a(k-1)， a(k)即 fun(a(6)， a(7)，即 fun(5， 9 )， x=y不成立，函数直接返回 5； k=8 时， fun(ak1)， a(k)即 fun(a(7)， a(8)，即 fun(9， 2)，过程中 x=x-y=9-2=7-2=5-2=3-2=l，函数返回 1； k=9 时， tun(a(k-1)， a(k)即 tun(a(8)， a(9)，即 fun(2， 4)， x=y不成立，函数直接返回 2； 因此程序输出 0 3 3 5 l 3 5 l 2。 35 【正确答案】 D 【试题解析】 IIF函数可用来执行简单的条件削断操作，它是 IfThenElse 结
29、构的简写版本，格式如下： 因此 Prinl IIf(x0， 1， IIf(x0时输出 1， x不大于 0时，如果 x0则输出 -1否则输出 0。 Result=IIf(条件， True部分， Flase部分 ) D选项缺少 End If 语句程序段无法正确运行。 36 【正确答案】 B 【试题解析】 根据公式 =4-4 3+4 5-4 7+4 9-4 11+ 可知 sign 是作为符号翻转的，即一次 +下一次就为一，因此空缺处应该填 -sign，这样就可使符号循环一次翻转一次。 37 【正确答案】 C 【试题解析】 鼠标移动时产乍的垮件是 MouseMove：事件。 MouselDown 事件
30、过程的参数定义如下： Sub Folln MouseMove(Button As integer， Shifc AsIntegel， xAs Single， y As single)其中 Button 表示被按下的鼠标键，按下左键时值为 l，按下右键时值为 2，按下中间键时值为 4。 x， y参数表示鼠标光标当前位置的坐标。 题目要求按住左键时移动显示鼠标位置，因此在事件过程要判断是否按下了左键，按下了左键则在标签中显鼠标位置，否则不显示。因此可用 If Button=1 来判断是否按下了左键及是否显示鼠标位置。因此应该选择 C选项。 38 【正确答案】 A 【试题解析】 当 单击 Comma
31、ndl 按钮后， Listl列表框中被选中项的索引值赋给变量 n，如果被选中项不是空也不是第 l项时，将选中项的项目文字赋值给变请ch，用选中项的上面一项的文字替换选中项的文字，再把变量 ch 中的文字替换选中项上面一项的文字，简单说就是选中项和它上面一项的文字交换。因此 A选项的说法正确。 39 【正确答案】 B 【试题解析】 过程中对传入的 7符小的字符一个个取出，判断如果不是空格则依次连接到一个字符串变量中，如果是空格则计数加 l。最后，返回不包含空格的字符串和空格的个数。因此选项 B 正确。 40 【正确答案】 A 【试题解析】 过程 toascii 的功能是依次取出传入字符串中的每个
32、字符，用 Asc函数将这个字符转换为相应的 ASCII码值，通过 For循环将这值累加。累加值由过程名返回。 Click 事件中以顺序输入方式打开 file txt文件，即以读取方式打开文件。 While循环的结束求条什是到达文件尾部，和循环体中， Line Input语句读取文件中的一行数据存入变量 ch 中然后以 ch 为参数调用过程 toascii，即计算这一行字符中所有字符的 ASCII码值的和，返回值赋给变量 ascii，在 窗体上输出 ascii的值。所以 While循环结束时，将在窗体上显示输出 file txt每一行数据的 ASCII码值的和。因此答案为 A。 二、基本操作题
33、41 【正确答案】 (1)MaxButTon属性：确定标题栏是否显示最大化按钮，MinBunon属性：确定标题栏是否显示最小化按钮。 步骤 l：按题目要求添加控件，并设置其属性。程序中用到的控件及属性见表 1。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)Listl Click事件过程中，使滚动条的 Width属性值等于列表框的Text属性值，那么 当选择列表框中的某一项，就将水平滚动条的长度改变为所选中的值。 步骤 l：程序中用到的控件及属性见表 2。步骤 2：编写程序代码。 Private Sub Listl Click( ) HS Width=Listl Text End
34、Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)容器控件 (窗体和框架 )中的单选按钮组 (OptionButton)常用于提供多个选项间的唯一性选择，并 Value属性用于设置或返回每个单选按钮的选中状态：值为 False表示未 选中，值为 Ture选中。复选框 (CheckBox)组常用于提多个选项间的多重选择， Value属性值决定每个复选框的选中状态： O-Unchecked为未选中， 1-Checked为选中， 2-Crayed为禁用。根据题意，可用一个 ifThenEnd If 语句对 Opl和 Op2的选中情况进行处理，在
35、TextI 中显示对应信息；用两个IfThen 语句依次对两个复选框的选中情况进行处理，并在 Text2中显示对应信息。 步骤 1：打开本题工程文件，并没置控件的属性。程序中用到的控件及属性见表 1。 步骤 2：分析并编写 程序代码。 程序提供代码 Private Sub Form Unload(Cancel As Integer) Open App Path&”out3 txt”For Output As#1 Print#1， Opl Value， Op2 Value， Textl Text Print#l， Chl Value， Ch2 Value， Text2 Text Close 1
36、End Sub 程序结束Prival： e Sub CI Click() If Ch2 ValLle And Chl Value Then Text2 ”我的爱好是体育音乐 ” Elself Ch2 Value And Chl Vallie=False Then Text2=“我的爱好是音乐 ” Elself Chl Value And Ch2 Value： False Then Text2=“我的爱好是体育 ” Else Text2 “” End If If Opl Value Then Textl “我是男生 ”Elself Op2 Value Then Textl=“我是女生 ” Els
37、e Textl=“” End IfEnd Sub 步骤 3：调试并运行程序 ，关闭程序后按题目要求存盘。 (2)列表框 List属性含有 “第一项 ”,“第二项 ”， “第三项 ”， “第四项 ”四个值， Timerl的 Interval 属性设置为 1000表示变化的时间间隔为 1s，并将 Timerl的 Enabled属性设置为 True。通过 lf语句和变量 i的判断实现每隔 1秒钟依次显示“第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。 步骤 l：打开本题工程文件，通过属性窗口向列表框添加四个项目，分别是： “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四
38、项 ”。 步骤 2：分析并编写程序代码。 程序提供代码 Dim i As Integer Private Sub Form Load() i=? Timerl Interval=? Timerl Enabled=True End Sub Private Sub Timerl Timer() Labell Caption=? If i=3 Then i=0 Else i=i+1 End If End Sub 程序结束 第 1个 ?处填入： 0 第 2个 ?处填入： 1000 第 3个 ?处填入：Listl List(i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四 、综合应用题 4
39、3 【正确答案】 将考生文件夹下文件 irL5 dat中的 12组整数读到数组 a中；在Command2 Click事件过程中，通过循环嵌套对每组数据求平均值，并将其值运用Int函数截尾取整后存入 s数组中；运用 If语句进行判断，使 1-9的组号后添加一个空格，保持数列的整齐。 步骤 l：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提代码 Option Base l Dim a(12， 10)As Long， s(12)As Long Prirate Sub Commandl Click() Open App Path&” in5 dat”For Input As l For i
40、=l To 12 For j=l To 10 Input#1， a(i， j) Next j Next i Close#l End Sub Private Sub(Command2 Click() 考生编写 End Sub Private Sub Command3 Click() 以下程序段在 Textl文本框内显示每组数的组号及平均值 Textl Text=“” For i=1 To 12 If i10 Then Textl Text=Textl Text+“”+str(i)+“”+str(s(i)+Chr (13)+Chr (10) Else Textl Text=Textl Text+s
41、tr(i)+“”+str(s(i)+Chr (13)+Chr (10) End lf Next i End Sub Prirate SubCommand4 Click() Open App Path&” out5 dat”ForOutput As#l For i=1 To 12 Print#1， s(i) Next i Close 1 End Sub 程序结束 Prirate Sub Command2 Click() 考生编写 Dim q As Long Fnr m=1 To 12 q=0 For n=l To 10 q=q+a(m， n) Next n s(m)=Int(q 10) Next m End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
