1、江苏省二级 VISUAL+BASIC-5 及答案解析(总分：100.00，做题时间：90 分钟)一、第一部分 计算机信息技术基础知识(总题数：0，分数：0.00)二、选择题(总题数：20，分数：40.00)1.使用现代信息技术可以帮助扩展人的信息器官功能，例如，使用_可以帮助扩展人的大脑的功能。（分数：2.00）A.感测与识别技术B.通信技术C.计算与存储技术D.控制与显示技术2.下列有关 PC 常见外部存储器的叙述错误的是_。（分数：2.00）A.目前 U 盘可以启动操作系统B.移动硬盘通常是将微型硬盘加一个控制盒，通过 USB 接口与主机连接C.目前所有 PC 都配备了读卡器，可以对任何类
2、型的存储卡进行读写操作D.SSD 是基于半导体存储器芯片的一种外存储设备，可以在便携式计算机中代替常规硬盘3.下列关于计算机组成及功能的说法正确的是_。（分数：2.00）A.一台计算机内只能有一个 CPUB.外存中的数据是直接传送给 CPU 处理的C.多数输出设备的功能是将计算机中用“0”和“1”表示的信息转换成人可直接识别的形式D.I/O 设备是用来连接 CPU、内存、外存和各种输入输出设施并协调它们工作的一个控制部件4.下列关于打印机的说法错误的是_。（分数：2.00）A.针式打印机只能打印汉字和 ASCII 字符，不能打印图案B.喷墨打印机是使墨水喷射到纸上形成图案或字符的C.激光打印机
3、是利用激光成像、静电吸附碳粉原理工作的D.针式打印机是击打式打印机，喷墨打印机和激光打印机是非击打式打印机5.关于操作系统设备管理的叙述错误的是_。（分数：2.00）A.设备管理程序负责对系统中的各种输入输出设备进行管理B.设备管理程序负责处理用户和应用程序的输入输出请求C.每个设备都有自己的驱动程序，它屏蔽了设备 I/O 操作的细节，使输入输出操作能方便、有效、安全地完成D.设备管理程序负责提供各种不同的 I/O 硬件接口6.当一个 Word 程序运行时，它与 Windows 操作系统之间的关系是_。（分数：2.00）A.前者(Word)调用后者(Windows)的功能B.后者调用前者的功能
4、C.两者互相调用D.不能互相调用，各自独立运行7.分组交换网的路由表中，“下一站”是什么取决于_。（分数：2.00）A.包的源地址B.包经过的路径C.包的目的地址D.交换机所在位置8.下列对于网络信息安全的认识正确的是_。（分数：2.00）A.只要加密技术的强度足够高，就能保证数据不被非法窃取B.访问控制的任务是对每个文件或信息资源规定各个用户对它的操作权限C.硬件加密的效果一定比软件加密好D.根据人的生理特征进行身份鉴别的方式在单机环境下无效9.对带宽为 3003400Hz 的语音，若采样频率为 8kHz、量化位数为 8 位、单声道，则其未压缩时的码率约为_。（分数：2.00）A.64kb/
5、sB.64kB/sC.128kb/sD.128kB/s10.颜色空间是指彩色图像所使用的颜色描述方法，也叫颜色模型。在下列颜色模型中，液晶显示器采用的是_。（分数：2.00）A.CMYKB.RGBC.HSBD.YUV11.微电子技术是信息技术领域的关键技术，它以集成电路(IC)为核心。下列有关叙述错误的是_。（分数：2.00）A.目前 IC 芯片(如 CPU 芯片)的集成度可达数千万个电子元件B.摩尔定律指出，单块 IC 的集成度平均每半年翻一番C.从原料熔炼到最终产品包装，IC 的制造工序繁多，工艺复杂，技术难度非常高D.非接触 IC 卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡
6、12.下列有关 PC CPU 的叙述正确的是_。（分数：2.00）A.CPU 中的运算器只对数据进行算术的加、减、乘、除运算B.所有 PC 的 CPU 都具有相同的指令系统，因而 PC 可使用相同的软件C.一台计算机包含 1 个 CPU，不可以包含多个 CPUD.Intel 公司是国际上研制和生产 CPU 的主要公司，我国也有自主知识产权的 CPU13.在下列 4 种 PC 常用 I/O 接口中，数据传输速率最高的是_。（分数：2.00）A.PS/2B.SATAC.IEEE 1394bD.USB 3.014.从 PC 存储器的层次结构来看，在下列存储器中存取速度最快的是_。（分数：2.00）A
7、.Cache 存储器B.RAMC.寄存器D.硬盘15.下列有关计算机软件的叙述错误的是_。（分数：2.00）A.程序设计语言处理系统和数据库管理系统被归类为系统软件B.共享软件是一种具有版权的软件，它允许用户买前免费试用C.机器语言和汇编语言与特定的计算机类型有关，取决于 CPUD.目前 PC 只能使用 Windows 系列操作系统，均不能使用 UNIX 和 Linux 操作系统16.高级程序设计语言种类繁多，但其基本成分可归纳为四种，其中对处理对象的类型说明属于高级语言中的_成分。（分数：2.00）A.数据B.运算C.控制D.传输17.连接在因特网上的每一台主机都有一个 IP 地址。下面不能
8、作为 IP 地址的是_。（分数：2.00）A.224.125.49.88B.21.18.33.48C.192.34.4.18D.37.256.68.018.为了将异构的计算机网络互相连接起来，必须使用的网络设备是_。（分数：2.00）A.调制解调器B.以太网集线器C.以太网交换机D.路由器19.MP3 是数字波形声音的一种压缩编码文件格式，它采用的压缩编码标准属于_。（分数：2.00）A.MPEG-1B.MPEG-2C.MPEG-4D.Dolbyr AC-320.对 GB2312 标准中的汉字而言，下列_码是唯一的。（分数：2.00）A.输入码B.输出字形码C.机内码D.数字码三、第二部分 V
9、isual Basic 程序设(总题数：0，分数：0.00)四、选择题(总题数：10，分数：30.00)21.下列有关对象的叙述正确的是_。（分数：3.00）A.不同对象能够响应的事件不尽相同B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置C.对象能响应的事件就是由 VB 预先设置好的、人工干预的动作D.对象的方法是对象响应某个事件后所执行的一段程序代码22.数学式 （分数：3.00）A.Log(x)+e3/Sqr(x2)/3B.Log(x)+Exp(3)/x2/3C.Log(x)/Log(10)+Exp(3)/x2/3D.Log(x)/Log(10)+Exp(3)/x
10、(2/3)23.将任意一个两位正整数 N 的个位数与十位数对换的表达式是_。（分数：3.00）A.(N-Int(N/10)*10)*10+Int(N/10)B.N-Int(N)/10*10+Int(N)/10C.Int(N/10)+(N-Int(N/10)D.(N/10)*10+(N Mod 10)24.下列有关数组参数的说明正确的是_。（分数：3.00）A.在过程中也可用 Dim 语句对形参数组进行说明B.动态数组作为实参时，可用 ReDim 语句在过程中改变对应形参数组的维界C.调用过程时，数组名不能作为实参D.数组可以按地址传递也可以按值传递25.下列有关自定义函数的说法错误的是_。（分
11、数：3.00）A.在函数体内可以为函数名多次赋值B.如果在函数体内没有给函数赋值，则该函数返回空值C.函数定义时没有说明数据类型，则返回值的类型为变体型D.函数名的命名规则与变量的命名规则相同26.下列有关对象属性的说法错误的是_。（分数：3.00）A.对象的名称(Name)属性在程序代码中作为对象名称的标识B.对象的有些属性只能在程序代码中改变属性值C.对象的某些属性具有若干子属性，如 Font 属性D.Visible 属性值设置为 True 的对象一定是活动对象27.数学式 （分数：3.00）A.Log(Exp(xy)+Sinx2/Sqr(Abs(x+y+z)B.Log(Exp(x*y)+
12、Sinx2/Sqr(Abs(x+y+z)C.Log(Exp(x*y)+Sin(x)2/Sqr(Abs(x+y+z)D.Log(Exp(x*y)+Sin(x2)/Sqr(Abs(x+y+z)28.函数 InStr(LCase(Mid(“VISUAL Basic 程序设计“，4，8)，“s“)的值是_。（分数：3.00）A.Ual BASICB.6C.7D.UAL Basic29.下列有关数组的说法错误的是_。（分数：3.00）A.定义固定大小的数组时，维界定义中不可以包含变量B.可以使用常数表达式或定义过的符号常量说明数组的维界C.定长字符串类型的数组不可以作为过程的形式参数D.只能在标准模块的
13、通用声明处用 Public 语句定义一个全局数组30.下列叙述正确的是_。（分数：3.00）A.一个 Sub 过程至少需要一个 Exit Sub 语句B.可以在 Sub 过程中定义一个 Function，但不能定义 Sub 过程C.Sub 过程中不可以调用另一个 Sub 过程D.如果过程被定义为 Static 类型，则该过程中的局部变量都为静态变量五、填空题(总题数：7，分数：30.00)31.执行下面的程序后，单击按钮 Command1，则 N 的值是 1，A 的值是 2，B 的值是 3。 Option Explicit Dim n As Integer Private Sub Comman
14、d1_Click() Dim a As Integer, b As Integer a=2:b=3 For n=1 To 6 If n Mod 2=0 Then b=fun(n, a)+a Else a=fun(b, n)+b End If Next n Print n, a, b End Sub Private Function fun(x As Integer, y As Integer)As Integer x=y-1+n y=x+y-n fun=x+y End Function （分数：4.00）32.执行下面的程序，单击 Command1 按钮时，列表框中显示的第一行是 1，第二行是
15、 2，第三行是 3。 Private Sub Command1_Click() Dim x As Integer, k As Integer x=483 k=2 Do Until x=1 If x Mod k=0 Then x=x/k List1.AddItem Str(k) Else k=k+1 End If Loop End Sub （分数：4.00）33.执行下面的程序，单击命令按钮 Command1，则数组元素 A(2，1)的内容是 1，A(1，2)的内容是 2，A(3，1)的内容是 3，A(1，3)的内容是 4。 Option Explicit Option Base 1 Priva
16、te A(3, 3) As Integer Private Sub Command1_Click() Dim B(4)As Integer, i As Integer, k As Integer, t As Integer For i=2 To 4 B(i)=i-1 Next i B(1)=2 For i=1 To 2 t=A(B(1), B(4) A(B(1), B(4)=A(B(2), B(1) A(B(2), B(1)=A(B(3), B(2) A(B(3), B(2)=A(B(4), B(3) A(B(4), B(3)=t Next i For i=1 To 3 For k=1 To
17、3 Print A(i, k); Next k Print Next i End Sub Private Sub Form_Load() Dim i As Integer, j As Integer, k As Integer k=1 For i=1 To 3 For i=1 To 3 A(i, j)=k k=k+1 Next i Next j End Sub （分数：6.00）34.执行下面的程序，单击 Command1 按钮，则窗体上显示的 a(3，1)的值为 1，a(1，2)的值为 2。 Option Explicit Option Base 1 Private Sub Command1
18、_Click() Dim A(3, 3) As Integer, i As Integer, j As Integer For i=1 To 3 For j=1 To 3 A(i, j)=j*10+i Next j Next i Call ExChange(A) End Sub Private Sub ExChange(X() As Integer) Dim i As Integer, j As Integer, t As Integer For i=1 To 2 For j=1 To 4-i t=X(i, j) X(i, j)=X(4-i, 4-j) X(4-i, 4-j)=t Next j
19、 Next i For i=1 To 3 For j=1 To 3 Print X(i, j); Next j Print Next 1 Print End Sub （分数：4.00）35.执行下面的程序，单击 Command1 按钮，窗体最后一行内容是 1，共显示了 2 行。 Option Explicit Private Sub Command1_Click() Dim i As Integer For i=1 To 10 Step 2 Call Sub1(i) Next i End Sub Private Sub Sub1(a As Integer) Static b As Intege
20、r b=b+1 If(a+b) Mod 3=0 Then Print a; b Else Call Sub1(a+1) End If End Sub （分数：4.00）36.执行下面的程序，单击 Command1 按钮，在 Text1 中输入“131352534”，则在窗体上显示的第一行内容是 1，第二行内容是 2，最后一行内容是 3。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim s As String, i As Integer, a()As Integer s=Text1.Text For i=1 To Le
21、n(s) ReDim Preserve a(i) a(i)=Val(Mid(s, i, 1) Next i Call Sub1(a) End Sub Private Sub Sub1(a() As Integer) Dim i As Integer, j As Integer, k As Integer i=2 Do Until i=UBound(a) k=i-1 Do Until a(i-1)a(i) i=i+1 Loop For j=k To i-1 Print a(j); Next j Print i=i+1 Loop End Sub （分数：4.00）37.执行下面的程序，单击命令按钮
22、 Command1 后，窗体上显示的第一行内容是 1，第二行内容是 2，最后一行内容是 3。 Option Explicit Private Sub Command1_Click() Dim n As Integer n=4 Print F1(n) End Sub Private Function F1(ByVal n As Integer)As Integer Static x As Integer If n16 Then n=n+10 F1=F1(n-4)+n Else F1=n End If x=2*x+1 Print F1, x End Function （分数：4.00）江苏省二级
23、VISUAL+BASIC-5 答案解析(总分：100.00，做题时间：90 分钟)一、第一部分 计算机信息技术基础知识(总题数：0，分数：0.00)二、选择题(总题数：20，分数：40.00)1.使用现代信息技术可以帮助扩展人的信息器官功能，例如，使用_可以帮助扩展人的大脑的功能。（分数：2.00）A.感测与识别技术B.通信技术C.计算与存储技术 D.控制与显示技术解析：2.下列有关 PC 常见外部存储器的叙述错误的是_。（分数：2.00）A.目前 U 盘可以启动操作系统B.移动硬盘通常是将微型硬盘加一个控制盒，通过 USB 接口与主机连接C.目前所有 PC 都配备了读卡器，可以对任何类型的存
24、储卡进行读写操作 D.SSD 是基于半导体存储器芯片的一种外存储设备，可以在便携式计算机中代替常规硬盘解析：3.下列关于计算机组成及功能的说法正确的是_。（分数：2.00）A.一台计算机内只能有一个 CPUB.外存中的数据是直接传送给 CPU 处理的C.多数输出设备的功能是将计算机中用“0”和“1”表示的信息转换成人可直接识别的形式 D.I/O 设备是用来连接 CPU、内存、外存和各种输入输出设施并协调它们工作的一个控制部件解析：4.下列关于打印机的说法错误的是_。（分数：2.00）A.针式打印机只能打印汉字和 ASCII 字符，不能打印图案 B.喷墨打印机是使墨水喷射到纸上形成图案或字符的C
25、.激光打印机是利用激光成像、静电吸附碳粉原理工作的D.针式打印机是击打式打印机，喷墨打印机和激光打印机是非击打式打印机解析：5.关于操作系统设备管理的叙述错误的是_。（分数：2.00）A.设备管理程序负责对系统中的各种输入输出设备进行管理B.设备管理程序负责处理用户和应用程序的输入输出请求C.每个设备都有自己的驱动程序，它屏蔽了设备 I/O 操作的细节，使输入输出操作能方便、有效、安全地完成D.设备管理程序负责提供各种不同的 I/O 硬件接口 解析：6.当一个 Word 程序运行时，它与 Windows 操作系统之间的关系是_。（分数：2.00）A.前者(Word)调用后者(Windows)的
26、功能 B.后者调用前者的功能C.两者互相调用D.不能互相调用，各自独立运行解析：7.分组交换网的路由表中，“下一站”是什么取决于_。（分数：2.00）A.包的源地址B.包经过的路径C.包的目的地址 D.交换机所在位置解析：8.下列对于网络信息安全的认识正确的是_。（分数：2.00）A.只要加密技术的强度足够高，就能保证数据不被非法窃取B.访问控制的任务是对每个文件或信息资源规定各个用户对它的操作权限 C.硬件加密的效果一定比软件加密好D.根据人的生理特征进行身份鉴别的方式在单机环境下无效解析：9.对带宽为 3003400Hz 的语音，若采样频率为 8kHz、量化位数为 8 位、单声道，则其未压
27、缩时的码率约为_。（分数：2.00）A.64kb/s B.64kB/sC.128kb/sD.128kB/s解析：10.颜色空间是指彩色图像所使用的颜色描述方法，也叫颜色模型。在下列颜色模型中，液晶显示器采用的是_。（分数：2.00）A.CMYKB.RGB C.HSBD.YUV解析：11.微电子技术是信息技术领域的关键技术，它以集成电路(IC)为核心。下列有关叙述错误的是_。（分数：2.00）A.目前 IC 芯片(如 CPU 芯片)的集成度可达数千万个电子元件 B.摩尔定律指出，单块 IC 的集成度平均每半年翻一番C.从原料熔炼到最终产品包装，IC 的制造工序繁多，工艺复杂，技术难度非常高D.非
28、接触 IC 卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡解析：12.下列有关 PC CPU 的叙述正确的是_。（分数：2.00）A.CPU 中的运算器只对数据进行算术的加、减、乘、除运算B.所有 PC 的 CPU 都具有相同的指令系统，因而 PC 可使用相同的软件C.一台计算机包含 1 个 CPU，不可以包含多个 CPUD.Intel 公司是国际上研制和生产 CPU 的主要公司，我国也有自主知识产权的 CPU 解析：13.在下列 4 种 PC 常用 I/O 接口中，数据传输速率最高的是_。（分数：2.00）A.PS/2B.SATAC.IEEE 1394bD.USB 3.0 解析：1
29、4.从 PC 存储器的层次结构来看，在下列存储器中存取速度最快的是_。（分数：2.00）A.Cache 存储器B.RAMC.寄存器 D.硬盘解析：15.下列有关计算机软件的叙述错误的是_。（分数：2.00）A.程序设计语言处理系统和数据库管理系统被归类为系统软件B.共享软件是一种具有版权的软件，它允许用户买前免费试用C.机器语言和汇编语言与特定的计算机类型有关，取决于 CPUD.目前 PC 只能使用 Windows 系列操作系统，均不能使用 UNIX 和 Linux 操作系统 解析：16.高级程序设计语言种类繁多，但其基本成分可归纳为四种，其中对处理对象的类型说明属于高级语言中的_成分。（分数
30、：2.00）A.数据 B.运算C.控制D.传输解析：17.连接在因特网上的每一台主机都有一个 IP 地址。下面不能作为 IP 地址的是_。（分数：2.00）A.224.125.49.88B.21.18.33.48C.192.34.4.18D.37.256.68.0 解析：18.为了将异构的计算机网络互相连接起来，必须使用的网络设备是_。（分数：2.00）A.调制解调器B.以太网集线器C.以太网交换机D.路由器 解析：19.MP3 是数字波形声音的一种压缩编码文件格式，它采用的压缩编码标准属于_。（分数：2.00）A.MPEG-1 B.MPEG-2C.MPEG-4D.Dolbyr AC-3解析：
31、20.对 GB2312 标准中的汉字而言，下列_码是唯一的。（分数：2.00）A.输入码B.输出字形码C.机内码 D.数字码解析：三、第二部分 Visual Basic 程序设(总题数：0，分数：0.00)四、选择题(总题数：10，分数：30.00)21.下列有关对象的叙述正确的是_。（分数：3.00）A.不同对象能够响应的事件不尽相同 B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置C.对象能响应的事件就是由 VB 预先设置好的、人工干预的动作D.对象的方法是对象响应某个事件后所执行的一段程序代码解析：22.数学式 （分数：3.00）A.Log(x)+e3/Sqr(x
32、2)/3B.Log(x)+Exp(3)/x2/3C.Log(x)/Log(10)+Exp(3)/x2/3D.Log(x)/Log(10)+Exp(3)/x(2/3) 解析：23.将任意一个两位正整数 N 的个位数与十位数对换的表达式是_。（分数：3.00）A.(N-Int(N/10)*10)*10+Int(N/10) B.N-Int(N)/10*10+Int(N)/10C.Int(N/10)+(N-Int(N/10)D.(N/10)*10+(N Mod 10)解析：24.下列有关数组参数的说明正确的是_。（分数：3.00）A.在过程中也可用 Dim 语句对形参数组进行说明B.动态数组作为实参时
33、，可用 ReDim 语句在过程中改变对应形参数组的维界 C.调用过程时，数组名不能作为实参D.数组可以按地址传递也可以按值传递解析：25.下列有关自定义函数的说法错误的是_。（分数：3.00）A.在函数体内可以为函数名多次赋值B.如果在函数体内没有给函数赋值，则该函数返回空值C.函数定义时没有说明数据类型，则返回值的类型为变体型 D.函数名的命名规则与变量的命名规则相同解析：26.下列有关对象属性的说法错误的是_。（分数：3.00）A.对象的名称(Name)属性在程序代码中作为对象名称的标识B.对象的有些属性只能在程序代码中改变属性值C.对象的某些属性具有若干子属性，如 Font 属性D.Vi
34、sible 属性值设置为 True 的对象一定是活动对象 解析：27.数学式 （分数：3.00）A.Log(Exp(xy)+Sinx2/Sqr(Abs(x+y+z)B.Log(Exp(x*y)+Sinx2/Sqr(Abs(x+y+z)C.Log(Exp(x*y)+Sin(x)2/Sqr(Abs(x+y+z) D.Log(Exp(x*y)+Sin(x2)/Sqr(Abs(x+y+z)解析：28.函数 InStr(LCase(Mid(“VISUAL Basic 程序设计“，4，8)，“s“)的值是_。（分数：3.00）A.Ual BASICB.6C.7 D.UAL Basic解析：29.下列有关数
35、组的说法错误的是_。（分数：3.00）A.定义固定大小的数组时，维界定义中不可以包含变量B.可以使用常数表达式或定义过的符号常量说明数组的维界 C.定长字符串类型的数组不可以作为过程的形式参数D.只能在标准模块的通用声明处用 Public 语句定义一个全局数组解析：30.下列叙述正确的是_。（分数：3.00）A.一个 Sub 过程至少需要一个 Exit Sub 语句B.可以在 Sub 过程中定义一个 Function，但不能定义 Sub 过程C.Sub 过程中不可以调用另一个 Sub 过程D.如果过程被定义为 Static 类型，则该过程中的局部变量都为静态变量 解析：五、填空题(总题数：7，
36、分数：30.00)31.执行下面的程序后，单击按钮 Command1，则 N 的值是 1，A 的值是 2，B 的值是 3。 Option Explicit Dim n As Integer Private Sub Command1_Click() Dim a As Integer, b As Integer a=2:b=3 For n=1 To 6 If n Mod 2=0 Then b=fun(n, a)+a Else a=fun(b, n)+b End If Next n Print n, a, b End Sub Private Function fun(x As Integer, y
37、As Integer)As Integer x=y-1+n y=x+y-n fun=x+y End Function （分数：4.00）解析：10 27 932.执行下面的程序，单击 Command1 按钮时，列表框中显示的第一行是 1，第二行是 2，第三行是 3。 Private Sub Command1_Click() Dim x As Integer, k As Integer x=483 k=2 Do Until x=1 If x Mod k=0 Then x=x/k List1.AddItem Str(k) Else k=k+1 End If Loop End Sub （分数：4.0
38、0）解析：3 7 2333.执行下面的程序，单击命令按钮 Command1，则数组元素 A(2，1)的内容是 1，A(1，2)的内容是 2，A(3，1)的内容是 3，A(1，3)的内容是 4。 Option Explicit Option Base 1 Private A(3, 3) As Integer Private Sub Command1_Click() Dim B(4)As Integer, i As Integer, k As Integer, t As Integer For i=2 To 4 B(i)=i-1 Next i B(1)=2 For i=1 To 2 t=A(B(1
39、), B(4) A(B(1), B(4)=A(B(2), B(1) A(B(2), B(1)=A(B(3), B(2) A(B(3), B(2)=A(B(4), B(3) A(B(4), B(3)=t Next i For i=1 To 3 For k=1 To 3 Print A(i, k); Next k Print Next i End Sub Private Sub Form_Load() Dim i As Integer, j As Integer, k As Integer k=1 For i=1 To 3 For i=1 To 3 A(i, j)=k k=k+1 Next i N
40、ext j End Sub （分数：6.00）解析：8 6 3 734.执行下面的程序，单击 Command1 按钮，则窗体上显示的 a(3，1)的值为 1，a(1，2)的值为 2。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim A(3, 3) As Integer, i As Integer, j As Integer For i=1 To 3 For j=1 To 3 A(i, j)=j*10+i Next j Next i Call ExChange(A) End Sub Private Sub ExChan
41、ge(X() As Integer) Dim i As Integer, j As Integer, t As Integer For i=1 To 2 For j=1 To 4-i t=X(i, j) X(i, j)=X(4-i, 4-j) X(4-i, 4-j)=t Next j Next i For i=1 To 3 For j=1 To 3 Print X(i, j); Next j Print Next 1 Print End Sub （分数：4.00）解析：31 2335.执行下面的程序，单击 Command1 按钮，窗体最后一行内容是 1，共显示了 2 行。 Option Exp
42、licit Private Sub Command1_Click() Dim i As Integer For i=1 To 10 Step 2 Call Sub1(i) Next i End Sub Private Sub Sub1(a As Integer) Static b As Integer b=b+1 If(a+b) Mod 3=0 Then Print a; b Else Call Sub1(a+1) End If End Sub （分数：4.00）解析：11 13 536.执行下面的程序，单击 Command1 按钮，在 Text1 中输入“131352534”，则在窗体上显示
43、的第一行内容是 1，第二行内容是 2，最后一行内容是 3。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim s As String, i As Integer, a()As Integer s=Text1.Text For i=1 To Len(s) ReDim Preserve a(i) a(i)=Val(Mid(s, i, 1) Next i Call Sub1(a) End Sub Private Sub Sub1(a() As Integer) Dim i As Integer, j As Integer,
44、k As Integer i=2 Do Until i=UBound(a) k=i-1 Do Until a(i-1)a(i) i=i+1 Loop For j=k To i-1 Print a(j); Next j Print i=i+1 Loop End Sub （分数：4.00）解析：1 3 1 3 5 2 537.执行下面的程序，单击命令按钮 Command1 后，窗体上显示的第一行内容是 1，第二行内容是 2，最后一行内容是 3。 Option Explicit Private Sub Command1_Click() Dim n As Integer n=4 Print F1(n) End Sub Private Function F1(ByVal n As Integer)As Integer Static x As Integer If n16 Then n=n+10 F1=F1(n-4)+n Else F1=n End If x=2*x+1 Print F1, x End Function （分数：4.00）解析：16 1 36 3 50
