1、二级 VISUAL+BASIC 笔试 64 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.在用 Open 语句打开文件时，如果省略“For 方式”，则打开的文件的存取方式是_ 。（分数：2.00）A.顺序输入方式B.顺序输出方式C.随机存取方式D.二进制方式2.对象可以识别和响应的某些操作行为称为_ 。（分数：2.00）A.属性B.方法C.多态D.事件3.单击命令按钮时，下列程序代码的执行结果为_ 。Public Function MyFune(m As Integer，n As Integer) As Integer Do Whil
2、e mn Do While mn m=m-n Loop Do While mn n=n -m Loop Loop MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub（分数：2.00）A.2B.4C.6D.84.有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7
3、a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面程序，单击命令按钮，输出结果为_ 。（分数：2.00）A.2 4 6 8B.5 2 2 2C.10 12 14 16D.出错5.结构化分析方法 SA、结构化设计方法 SD；和 JACKSON 方法，是在软件开发过程中常用的方法，人们使用 SD 方法时可以得到_ 。（分数：2.00）A.程序流程图B.具体的语言程序C.模块结构图及模块的功能说明书D.分层数据流图6.下列程序的输入值分别为 100,10 则执行结果为非作歹_ 。 m=Val (inputbox (“请输入数学 1”
4、) ) n=Val (inputbox (“请输入数学 2”) ) If n*m=0 Then MsgBox “两数能不能为 0” Exit Sub If mn Then t=m: m=n: n=t End If End If DO R=m Mod n m=n n=f Loop While r0 Print m（分数：2.00）A.10B.100C.50D.2507.数据字典表达的是_ 。（分数：2.00）A.系统中各类逻辑定义的集合B.系统中各类逻辑描述的集合C.系统中各类数据结构的集合D.系统中各类数据描述的集合8.以下哪个是合法的变量名_ 。（分数：2.00）A.LenB.TestqwC
5、.6cost_1D.count2s9.有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n = 4 x=x +y n=-+1 Loop firstfunc = x End Function 调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3
6、z = firstfunc(x, y) Next n Print z End Sub 该事件过程的执行结果是 _。（分数：2.00）A.1B.3C.16D.910.如果关系模式 R 为 1NF，且每个非主属性都完全函数依赖于 R 的候选码，则称 R 属于_ 。（分数：2.00）A.2NFB.3NFC.BCNFD.4NF11.对象实现了数据和操作的结合，使数据和操作_ 于对象的统一体中。（分数：2.00）A.结合B.隐藏C.封装D.抽象12.在窗体上画一个命令按钮，然后编写如下事件过程: Private Sub CommAnd1_Click() For i=1 To 4 x=0 For j=1
7、To 3 x=j For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮,输出结果是_ 。（分数：2.00）A.7B.15C.157D.53813.如果在 C 盘当前文件夹下已存在名为 StuData.dar 的顺序文件，那么执行语句 Open“C: StuData.dar” For Append As #1 之后将_ 。（分数：2.00）A.删除文件中原有内容。B.保留文件中原有内容，可在文件尾添加新内容。C.保留文件中原有内容，在文件头开始添加新内容。D.以上均不对。14.下面程序段的功能是_ 。 A=10.
8、5 B=Int (A=0.6) Debug. Print B（分数：2.00）A.求平均值B.将一实数四舍五入取整数C.求绝对值D.舍去一实数的小数部分15.以下程序段的执行结果是 _。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next m（分数：2.00）A.1 1 1
9、 1 1 1 1 1 1B.2 0 4 0 4 0 4 0 6C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 116.在单项链表中删除一个指定结点的后继的时间复杂度为_ 。（分数：2.00）A.0(B.0(nlog2C.0(1)D.17.下列排序方法中，属于不稳定的排序方法是_ 。（分数：2.00）A.直接插入排序法B.冒泡排序法C.基数排序法D.归并排序法18.运行 VB 程序的快捷键为_ 。（分数：2.00）A.F4B.F5C.F6D.F719.对于存在多个条件复杂组合的判断问题，其加工逻辑使用_ 描述较好。（分数：2.00）A.数据字典B.数据流图C.结构化语言
10、D.判定表和判定树20.下列程序段的执行结果为_ 。 Dim A(10，10) For I = 2 To 4 For J = 4 To 5 A(I, J) = I * J Next J Next I Print A(2, 5) + A(3, 4) + A(4, 5)（分数：2.00）A.22B.42C.32D.5221.以下程序输出 1 到 1000 之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If_ Then x=x+ i End If Next i Print x End S
11、ub（分数：2.00）A.i Mod 2= 0B.x mod 2=0C.I mod 20D.x mod 2022.在窗体上添加一个命令按纽，名为 COMgAND1，事件过程如下： Private Sub CQmmand1_Click() x =0 Do Until c = -1 a=InputBox(“请输入 a 的值”) a=Val (a) b=InputBox(“请输入 b 的值”) b=Val(b) c=InputBox(“请输入 c 的值”) c=Val (C) a=a+b+c Loop Print a End Sub 程序运行后，单击命令按纽，依次在输入对话框中输入 5，4，3，2，
12、1，-1 后，输出的结果是_ 。（分数：2.00）A.2B.3C.4D.523.对线性表采用折半查找法，该线性表必须_ 。（分数：2.00）A.采用顺序存储结构B.采用链式存储结构C.采用顺序存储结构，且元素按值有序D.采用链式存储结构，且元素按值有序24.对全局数据逻辑结构和特征的描述称为_ 。（分数：2.00）A.外模式B.内模式C.概念模式D.存储模式25.下列程序段的执行结果是_ 。 k=0 For j=1 To 2 For i=1 To 3 k = i+ 1 Next i For i=1 To 7 k= k + 1 Next i Next j Print k（分数：2.00）A.11
13、B.10C.9D.826.当程序运行时，在窗体上单击鼠标，以下_ 事件是窗体不会接收到的。（分数：2.00）A.MouseDownB.MouseUpC.LoadD.Click27.一个栈的输入序列为 1，2，3，4，下面_ 序列不可能是这个栈的输出序列。（分数：2.00）A.1，3，2，4B.2，3，4，1C.4，3，1，2D.3，4，2，128.GUI 的含义是_ 。（分数：2.00）A.面向对象的程序设计B.开放数据库连接C.图形设备接口D.图形用户界面29.只能用来显示字符信息的控件是_ 。（分数：2.00）A.文本框B.标签框C.图片框D.图像框30.有如下自定义过程： Sub tes
14、t(x As Integer) x =X *2+1 If x6 Then Call test(x) End If x=x* 2 + 1 Print x； End Sub 调用该过程的事件过程如下：Private Sub Command1_Click() test 2End Sub则该段程序的执行结果是_ 。（分数：2.00）A.12B.23 47C.23D.5 1031.下列程序段的执行结果是_ 。 a=0 b=0 For i = -1 To -2 Step -1 For j = 1 To 2 b=b+1 Next j a=a+1 Next i Print a; b（分数：2.00）A.24B
15、.- 20C.42D.2232.下列程序段的执行结果为_ 。 N=0 J=1 Do Until N 2 N=N+1 J=J+N* (N+ 1) Loop Print N; J（分数：2.00）A.0 1B.3 7C.3 21D.3 1333.在窗体上画一个命令按钮，然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub Command1_Click() Dim MaxSize, NextChar, MyChar Open “d:/temp/female. txt” For Input A
16、s #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step -1 Seek #1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close #1End Sub 程序运行后,单击命令按钮,其输出结果为_。（分数：2.00）A.TrueB.FalseC.0D.Null34.下列程序段的招待结果是_ 。 s=0 t=0 u=0 For i = 1 To 3 For j = 1 To i For k = j To 3 s=s+ 1 Next k t=t+1 Next j u=u+
17、 1 Next i Print s; t; u（分数：2.00）A.14 6 3B.6 14 3C.9 8 7D.8 9 1035.关子设置控件属性的叙述正确的是_ 。（分数：2.00）A.用户必须重新设置属性的值，否则属性值为空。B.任何属性的值都可以由用户随意设置。C.属性值可以由用户设置，也可以使用系统的默认设置。D.属性值只能在属性窗口中设置。二、B填空题/B(总题数：10，分数：20.00)36.在长度为 n 的顺序表的第 i(1in+1)个位置上插入一个元素，元素的移动次数为U 【1】 /U。（分数：2.00）填空项 1:_37.目前，有两种重要的高级语言，分别是结构化程序和U 【
18、2】 /U。（分数：2.00）填空项 1:_38.高度为 h(hO)的二叉树最少有U 【3】 /U个结点。（分数：2.00）填空项 1:_39.CASE 是一组U 【4】 /U的集合，可以辅助软件开发生命周期各阶段进行软件开发。（分数：2.00）填空项 1:_40.在传统集合运算中，假定有关系 R 和 s，运算结果为 RS。如果 RS 中的元组属于 R 而不属于 S，则 RS是U 【5】 /U运算的结果；（分数：2.00）填空项 1:_41.有如下程序，该程序的执行结果是U 【6】 /U。 Private Sub Command1 Click() For i=1 To 4 x=4 For j=
19、1 To i x =3 For k=1 To 2 x= x + 5 Next k Next j Next i Print x End Sub（分数：2.00）填空项 1:_42.有如下程序： Private Sub Command1_Click() j =10 For i= -1 To 1 Step 0.3 j =j + 1 Next i Print j End Sub 该程序共循环U 【7】 /U次，程序执行完毕后 j 的值是U 【8】 /U。（分数：2.00）填空项 1:_43.下列程序的作用是求所有小于或等于 30 的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。 注：自
20、然数对是指两个自然数的和与差都是平方数(如 8 与 17)。 Private Sub Command1_Click() Dim n As Long Dim m As Long Dim s As Single Dim d As String For n=1 To 30 For m=1 ToU 【9】 /U s =n+ m U 【10】 /U If Sqr (s)=Int(Sqr(s)U 【11】 /USqr(D) =Int(Sqr(D) )Then Print n：m End lf Next m Next n End Sub （分数：2.00）填空项 1:_44.以下程序用于求 s=1+(1+2
21、)+(1+2+3)+(1+2+100)的和，请补充完该程序。 Dim n As Integer Dim i As Integer Dim j As Long Dim s As Long n=100 j=0 s=0 For i=1 ToU 【12】 /U J=U 【13】 /U s=U 【14】 /U Next i Print s（分数：2.00）填空项 1:_45.下列程序的运行机结果是U 【15】 /U。 Private Sub Form_ Click() Dim k As Integer n= 5 m= 1 k= 1 Do m=m+2 k= k+1 Loop While k=n Print
22、 m End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 64 答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.在用 Open 语句打开文件时，如果省略“For 方式”，则打开的文件的存取方式是_ 。（分数：2.00）A.顺序输入方式B.顺序输出方式C.随机存取方式 D.二进制方式解析：2.对象可以识别和响应的某些操作行为称为_ 。（分数：2.00）A.属性B.方法C.多态D.事件 解析：3.单击命令按钮时，下列程序代码的执行结果为_ 。Public Function MyFune(m As Integer
23、，n As Integer) As Integer Do While mn Do While mn m=m-n Loop Do While mn n=n -m Loop Loop MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub（分数：2.00）A.2B.4C.6 D.8解析：4.有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 T
24、o 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面程序，单击命令按钮，输出结果为_ 。（分数：2.00）A.2 4 6 8 B.5 2 2 2C.10 12 14 16D.出错解析：5.结构化分析方法 SA、结构化设计方法 SD；和 JACKSON 方法，是在软件开发过程中常用的方法，人们使用 SD 方法时可以得到_ 。（分数：2.00）A.程序流程图B.具体的语言程序C.模块结构图及模块的功能说明书 D.分层数据流图解析：6.下列程序的输入值分别为 1
25、00,10 则执行结果为非作歹_ 。 m=Val (inputbox (“请输入数学 1”) ) n=Val (inputbox (“请输入数学 2”) ) If n*m=0 Then MsgBox “两数能不能为 0” Exit Sub If mn Then t=m: m=n: n=t End If End If DO R=m Mod n m=n n=f Loop While r0 Print m（分数：2.00）A.10 B.100C.50D.250解析：7.数据字典表达的是_ 。（分数：2.00）A.系统中各类逻辑定义的集合B.系统中各类逻辑描述的集合C.系统中各类数据结构的集合D.系统
26、中各类数据描述的集合 解析：8.以下哪个是合法的变量名_ 。（分数：2.00）A.LenB.TestqwC.6cost_1D.count2s 解析：9.有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n = 4 x=x +y n=-+1 Loop firstfunc = x End Function 调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer
27、Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub 该事件过程的执行结果是 _。（分数：2.00）A.1B.3C.16 D.9解析：10.如果关系模式 R 为 1NF，且每个非主属性都完全函数依赖于 R 的候选码，则称 R 属于_ 。（分数：2.00）A.2NF B.3NFC.BCNFD.4NF解析：11.对象实现了数据和操作的结合，使数据和操作_ 于对象的统一体中。（分数：2.00）A.结合B.隐藏C.封装 D.抽象解析：12.在窗体上画一个命令
28、按钮，然后编写如下事件过程: Private Sub CommAnd1_Click() For i=1 To 4 x=0 For j=1 To 3 x=j For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮,输出结果是_ 。（分数：2.00）A.7B.15 C.157D.538解析：13.如果在 C 盘当前文件夹下已存在名为 StuData.dar 的顺序文件，那么执行语句 Open“C: StuData.dar” For Append As #1 之后将_ 。（分数：2.00）A.删除文件中原有内容。B.保
29、留文件中原有内容，可在文件尾添加新内容。 C.保留文件中原有内容，在文件头开始添加新内容。D.以上均不对。解析：14.下面程序段的功能是_ 。 A=10.5 B=Int (A=0.6) Debug. Print B（分数：2.00）A.求平均值B.将一实数四舍五入取整数 C.求绝对值D.舍去一实数的小数部分解析：15.以下程序段的执行结果是 _。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m
30、 For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next m（分数：2.00）A.1 1 1 1 1 1 1 1 1B.2 0 4 0 4 0 4 0 6 C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 1解析：16.在单项链表中删除一个指定结点的后继的时间复杂度为_ 。（分数：2.00）A.0( B.0(nlog2C.0(1)D.解析：17.下列排序方法中，属于不稳定的排序方法是_ 。（分数：2.00）A.直接插入排序法B.冒泡排序法C.基数排序法D.归并排序法 解析：18.运行 VB 程序的快捷
31、键为_ 。（分数：2.00）A.F4B.F5 C.F6D.F7解析：19.对于存在多个条件复杂组合的判断问题，其加工逻辑使用_ 描述较好。（分数：2.00）A.数据字典B.数据流图C.结构化语言D.判定表和判定树 解析：20.下列程序段的执行结果为_ 。 Dim A(10，10) For I = 2 To 4 For J = 4 To 5 A(I, J) = I * J Next J Next I Print A(2, 5) + A(3, 4) + A(4, 5)（分数：2.00）A.22B.42 C.32D.52解析：21.以下程序输出 1 到 1000 之间所有的偶数之和，请补充完该程序。
32、 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If_ Then x=x+ i End If Next i Print x End Sub（分数：2.00）A.i Mod 2= 0 B.x mod 2=0C.I mod 20D.x mod 20解析：22.在窗体上添加一个命令按纽，名为 COMgAND1，事件过程如下： Private Sub CQmmand1_Click() x =0 Do Until c = -1 a=InputBox(“请输入 a 的值”) a=Val (a) b=InputBox(“请输入 b
33、的值”) b=Val(b) c=InputBox(“请输入 c 的值”) c=Val (C) a=a+b+c Loop Print a End Sub 程序运行后，单击命令按纽，依次在输入对话框中输入 5，4，3，2，1，-1 后，输出的结果是_ 。（分数：2.00）A.2 B.3C.4D.5解析：23.对线性表采用折半查找法，该线性表必须_ 。（分数：2.00）A.采用顺序存储结构B.采用链式存储结构C.采用顺序存储结构，且元素按值有序 D.采用链式存储结构，且元素按值有序解析：24.对全局数据逻辑结构和特征的描述称为_ 。（分数：2.00）A.外模式B.内模式C.概念模式 D.存储模式解析
34、：25.下列程序段的执行结果是_ 。 k=0 For j=1 To 2 For i=1 To 3 k = i+ 1 Next i For i=1 To 7 k= k + 1 Next i Next j Print k（分数：2.00）A.11 B.10C.9D.8解析：26.当程序运行时，在窗体上单击鼠标，以下_ 事件是窗体不会接收到的。（分数：2.00）A.MouseDownB.MouseUpC.Load D.Click解析：27.一个栈的输入序列为 1，2，3，4，下面_ 序列不可能是这个栈的输出序列。（分数：2.00）A.1，3，2，4B.2，3，4，1C.4，3，1，2 D.3，4，2
35、，1解析：28.GUI 的含义是_ 。（分数：2.00）A.面向对象的程序设计B.开放数据库连接C.图形设备接口D.图形用户界面 解析：29.只能用来显示字符信息的控件是_ 。（分数：2.00）A.文本框B.标签框 C.图片框D.图像框解析：30.有如下自定义过程： Sub test(x As Integer) x =X *2+1 If x6 Then Call test(x) End If x=x* 2 + 1 Print x； End Sub 调用该过程的事件过程如下：Private Sub Command1_Click() test 2End Sub则该段程序的执行结果是_ 。（分数：2
36、.00）A.12B.23 47 C.23D.5 10解析：31.下列程序段的执行结果是_ 。 a=0 b=0 For i = -1 To -2 Step -1 For j = 1 To 2 b=b+1 Next j a=a+1 Next i Print a; b（分数：2.00）A.24 B.- 20C.42D.22解析：32.下列程序段的执行结果为_ 。 N=0 J=1 Do Until N 2 N=N+1 J=J+N* (N+ 1) Loop Print N; J（分数：2.00）A.0 1B.3 7C.3 21 D.3 13解析：33.在窗体上画一个命令按钮，然后编写如下代码:Priva
37、te Type Record ID As Integer Name As String * 20End TypePrivate Sub Command1_Click() Dim MaxSize, NextChar, MyChar Open “d:/temp/female. txt” For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step -1 Seek #1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close #1End Sub 程序运行后
38、,单击命令按钮,其输出结果为_。（分数：2.00）A.TrueB.False C.0D.Null解析：34.下列程序段的招待结果是_ 。 s=0 t=0 u=0 For i = 1 To 3 For j = 1 To i For k = j To 3 s=s+ 1 Next k t=t+1 Next j u=u+ 1 Next i Print s; t; u（分数：2.00）A.14 6 3 B.6 14 3C.9 8 7D.8 9 10解析：35.关子设置控件属性的叙述正确的是_ 。（分数：2.00）A.用户必须重新设置属性的值，否则属性值为空。B.任何属性的值都可以由用户随意设置。C.属性
39、值可以由用户设置，也可以使用系统的默认设置。 D.属性值只能在属性窗口中设置。解析：二、B填空题/B(总题数：10，分数：20.00)36.在长度为 n 的顺序表的第 i(1in+1)个位置上插入一个元素，元素的移动次数为U 【1】 /U。（分数：2.00）填空项 1:_ （正确答案：n-i+1）解析：37.目前，有两种重要的高级语言，分别是结构化程序和U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案：面向对象程序设计）解析：38.高度为 h(hO)的二叉树最少有U 【3】 /U个结点。（分数：2.00）填空项 1:_ （正确答案：h）解析：39.CASE 是一组U 【4】 /U
40、的集合，可以辅助软件开发生命周期各阶段进行软件开发。（分数：2.00）填空项 1:_ （正确答案：软件开发工具）解析：40.在传统集合运算中，假定有关系 R 和 s，运算结果为 RS。如果 RS 中的元组属于 R 而不属于 S，则 RS是U 【5】 /U运算的结果；（分数：2.00）填空项 1:_ （正确答案：差）解析：41.有如下程序，该程序的执行结果是U 【6】 /U。 Private Sub Command1 Click() For i=1 To 4 x=4 For j=1 To i x =3 For k=1 To 2 x= x + 5 Next k Next j Next i Prin
41、t x End Sub（分数：2.00）填空项 1:_ （正确答案：13）解析：42.有如下程序： Private Sub Command1_Click() j =10 For i= -1 To 1 Step 0.3 j =j + 1 Next i Print j End Sub 该程序共循环U 【7】 /U次，程序执行完毕后 j 的值是U 【8】 /U。（分数：2.00）填空项 1:_ （正确答案：7 7 8 17）解析：43.下列程序的作用是求所有小于或等于 30 的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。 注：自然数对是指两个自然数的和与差都是平方数(如 8 与 1
42、7)。 Private Sub Command1_Click() Dim n As Long Dim m As Long Dim s As Single Dim d As String For n=1 To 30 For m=1 ToU 【9】 /U s =n+ m U 【10】 /U If Sqr (s)=Int(Sqr(s)U 【11】 /USqr(D) =Int(Sqr(D) )Then Print n：m End lf Next m Next n End Sub （分数：2.00）填空项 1:_ （正确答案：9 n10 d=n-m 11And）解析：44.以下程序用于求 s=1+(1+
43、2)+(1+2+3)+(1+2+100)的和，请补充完该程序。 Dim n As Integer Dim i As Integer Dim j As Long Dim s As Long n=100 j=0 s=0 For i=1 ToU 【12】 /U J=U 【13】 /U s=U 【14】 /U Next i Print s（分数：2.00）填空项 1:_ （正确答案：12 n13 j+ I14 s+ j）解析：45.下列程序的运行机结果是U 【15】 /U。 Private Sub Form_ Click() Dim k As Integer n= 5 m= 1 k= 1 Do m=m+2 k= k+1 Loop While k=n Print m End Sub（分数：2.00）填空项 1:_ （正确答案：11）解析：
