1、江苏省二级 VISUAL+BASIC-7 及答案解析(总分：100.00，做题时间：90 分钟)一、第一部分 计算机信息技术基础知识(总题数：0，分数：0.00)二、选择题(总题数：20，分数：40.00)1.下列关于比特的叙述错误的是_。（分数：2.00）A.比特的英文是 byteB.计算机中的文字、图像、声音等多种不同形式的信息都可以用比特表示C.比特是组成数字信息的最小单位D.比特需要使用具有两个状态的物理器件来表示和存储2.下列关于 CPU 结构的说法错误的是_。（分数：2.00）A.控制器是用来解释指令含义、控制运算器操作、记录内部状态的部件B.运算器用来对数据进行各种算术运算和逻辑
2、运算C.CPU 中仅仅包含运算器和控制器两部分D.运算器可以有多个，如整数运算器和浮点运算器等3.计算机的性能在很大程度上是由 CPU 决定的。CPU 的性能主要体现为它的指令执行速度。下列有关 CPU性能的叙述正确的是_。（分数：2.00）A.高速缓存(Cache)的有无和容量大小对计算机的性能影响不大B.寄存器数目的多少不影响计算机的性能C.指令的类型和功能不影响计算机的性能D.提高主频有助于提高 CPU 的性能4.下列关于打印机的叙述错误的是_。（分数：2.00）A.激光打印机使用 PS/2 接口和计算机相连B.喷墨打印机的打印头是整个打印机的关键C.喷墨打印机属于非击打式打印机，它能输
3、出彩色图像D.针式打印机独特的平推式进纸技术，在打印存折和票据方面具有不可替代的优势5.下列关于计算机软件的叙述错误的是_。（分数：2.00）A.人们不仅把程序，也把与程序相关的数据和文档统称为软件B.应用软件泛指那些为用户管理与操作使用计算机提供方便的一类软件C.共享软件是一种“买前免费试用”的具有版权的软件D.大多数自由软件都是免费软件，但免费软件并不全都是自由软件6.下列关于 Windows 的说法错误的是_。（分数：2.00）A.Windows 是目前使用最为广泛的操作系统，任何计算机都可安装和使用 Windows 操作系统B.Windows 操作系统采用并发多任务方式支持系统中多个任
4、务的执行C.在 Windows 中，虚拟存储器是由物理内存和硬盘上的虚拟内存联合组成的，其页面调度算法采用“最近最少使用”算法D.微软公司推出的 Windows 产品一般有多个不同版本，例如家庭版、专业版等7.假设 IP 地址为 202.119.48.8，为了计算出它的网络号，在下列选项中_最有可能作为它的子网掩码。（分数：2.00）A.255.0.0.0B.255.255.0.0C.255.255.255.0D.255.255.255.2558.下列对于网络信息安全的认识正确的是_。（分数：2.00）A.只要使用加密技术，就能保证数据不被非法窃取B.访问控制的任务是对每个(类)文件或信息资源
5、规定不同用户对它们的权限C.数字签名的效力法律上还不明确，所以尚未推广使用D.根据人的生理特征(如指纹、人脸)进行身份鉴别在单机环境下还无法使用9.在获取数字声音时，为了保证对频带宽度达 20kHz 的全频音乐信号采样时不失真，其采样频率应达到_以上。（分数：2.00）A.40kHzB.16kHzC.12kHzD.8kHz10.不同的图像文件格式通常采用不同的图像压缩算法与数据组织方式，在下列图像文件格式中，通常为有损图像压缩的是_。（分数：2.00）A.BMPB.GIFC.TIFD.JPEG11.下列关于集成电路(IC)的叙述错误的是_。（分数：2.00）A.集成电路是在晶体管之后出现的B.
6、集成电路应用非常广泛，集成电路产业的发展十分迅速C.集成电路使用的都是金属导体材料D.集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系12.PC 主板又称为母板，是 PC 中十分重要的部件。下列关于主板的叙述正确的是_。（分数：2.00）A.关于主板的物理尺寸目前还没有标准，不同厂家生产的主板物理尺寸均各不相同B.主板上安装有存储芯片，例如 ROM 芯片、CMOS 芯片等C.CPU 是直接固定在主板上的，通常不可以更换D.主板上安装的电池可以在计算机突然断电时给计算机供电，以保证计算机能正常关机13.下列关于 BIOS 的叙述正确的是_。（分数：2.00）A.BIOS 是存于 ROM
7、中的一组高级语言程序B.BIOS 中含有系统工作时所需的全部驱动程序C.BIOS 包含了系统加电自检程序和 CMOS 设置程序D.没有 BIOS 的 PC 也可以正常启动工作14.自光存储技术诞生以来，光盘存储器获得迅猛发展，形成了 CD、DVD 和 BD 三代光盘存储器产品，下列叙述错误的是_。（分数：2.00）A.光盘片用于存储数据，其基片直径大多为 120mm(约 5 英寸)，用于记录数据的是一条由里向外的连续的螺旋状光道B.CD 光驱使用红外激光，DVD 光驱使用红色激光，BD 使用蓝色激光C.目前一张 BD 光盘的存储容量可达 25GB，是现有单面单层 DVD 容量的 5 倍左右D.
8、DVD 刻录机可以对 DVD-RW 光盘进行读写操作，但不能刻录 CD-R 光盘15.下列关于汇编语言的叙述错误的是_。（分数：2.00）A.汇编语言属于低级程序设计语言B.汇编语言源程序可以由计算机直接执行C.不同型号 CPU 支持的汇编语言不一定相同D.汇编语言是一种与 CPU 逻辑结构密切相关的编程语言16.下列关于 Windows 多任务处理系统的叙述错误的是_。（分数：2.00）A.用户如果只启动一个应用程序，则该程序就可以自始至终独占 CPU 资源B.由于 CPU 中有多个执行部件，可同时执行多条指令，所以才能同时执行多个任务的处理C.从微观上看，前台任务和后台任务能同时得到 CP
9、U 响应D.Windows 操作系统在执行 32 位应用程序时，采用的是按时间片轮转的调度方法17.下列关于网络两种工作模式(客户/服务器模式和对等模式)的叙述错误的是_。（分数：2.00）A.近年来盛行的“BT”下载服务采用的是对等工作模式B.基于客户/服务器模式的网络会因客户机的请求过多、服务器负担过重而导致整体性能下降C.Windows 操作系统中的“网上邻居”是按客户/服务器模式工作的D.对等网络中的每台计算机既可以作为客户机也可作为服务器18.目前采用无线方式接入因特网的技术有多种，如无线局域网(WLAN)接入、GPRS 接入、3G 接入、4G 接入等。下列相关叙述错误的是_。（分数
10、：2.00）A.家庭中的多台计算机通过无线路由器共享 ADSL(或光纤以太网)线路连接因特网B.GPRS 是在第 2 代移动通信系统 GSM 上发展出来的一种基于分组交换的数据通信业务C.采用 4G 移动电话网接入时，数据传输速率可达数十甚至上百 MbpsD.目前我国所有城市均已开通 4G 移动电话接入19.下列有关数字视频信息的叙述错误的是_。（分数：2.00）A.目前有线电视台播放和传输的虽然已经是数字视频信号，但它需要经机顶盒解码转换为模拟电视信号后才能由传统电视机播放与收看B.数字摄像头是一种可以在线获取数字视频的设备，目前许多平板电脑、笔记本电脑已将数字摄像头集成在其中C.目前视频通
11、信(如可视电话、会议电视等)采用的视频压缩编码标准为 MPEG-1D.计算机动画是一种合成的数字视频，它的制作过程通常是先在计算机中生成场景和物体模型，然后描述它们的运动，最后再生成图像并转换成视频信号输出20.颜色空间是指彩色图像所使用的颜色描述方法，也叫颜色模型。在下列颜色模型中，_通常用于印刷出版行业。（分数：2.00）A.CYMKB.RGBC.HSBD.YUV三、第二部分 Visual Basic 程序设(总题数：0，分数：0.00)四、选择题(总题数：10，分数：30.00)21.下列有关对象属性的说法错误的是_。（分数：3.00）A.每个对象都有自己的属性集合B.不同属性可能具有不
12、同的数据类型C.对象的所有属性都可以通过代码来设置或改变D.所有对象都具有名称(Name)属性22.数学表达式 （分数：3.00）A.Abs(ex+Cos2x)/Sqr(y+1)B.Abs(ex+Cosx2)/Sqr(y+1)C.Abs(Exp(x)+Cos(x)2)/Sqr(y+1)D.Abs(Exp(x)+Cosx2)/Sqr(y+1)23.表达式 Int(8*Sqr(36)*10(-2)*10+0.5)/10+Val(“.123e2cd“)的值是_。（分数：3.00）A.123e2B.123C.0.5D.12.824.下列有关动态数组的说法正确的是_。（分数：3.00）A.动态数组可以用
13、 ReDim 语句重新说明其维数、大小、类型B.使用 Erase 语句操作过的动态数组不需要使用 ReDim 重新定义即可直接使用C.含有 Preserve 关键字的 ReDim 语句只能改变最后一维的上界D.主调用过程中定义的数组只能在本过程中使用 ReDim 重新定义25.下列有关通用过程的说法正确的是_。（分数：3.00）A.不论在 Function 中是否给函数名赋值，函数总会返回一个值B.在通用 Sub 过程中不能再调用其他通用过程或事件过程C.通用过程中的形式参数不能与全局变量同名D.在参数传递时，数组可以按值进行传递26.以下有关对象事件的说法错误的是_。（分数：3.00）A.对
14、象事件过程的参数是由系统定义的，用户不可以自行改变参数个数B.控件事件过程名的对象名为控件的名称(Name 属性值)C.窗体事件过程名的对象名为窗体的名称(Name 属性值)D.事件过程也可以与通用过程一样使用 Call 语句来调用27.设字符串变量 s 被赋值“Hello World”，以下表达式中返回结果与其他三个不同的是_。（分数：3.00）A.InStr(4, S, “L“)B.InStr(InStr(S, “L“), S, “L“)C.InStr(Left(S, 2) b; i End Sub （分数：4.00）32.执行下列程序，单击 Command1 按钮，在窗体上显示的变量 a
15、 的值为 1，变量 c 的值为 2，窗体上的输出内容为 3。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=1:b=2:c=3 Print fun(a, b, c)+fun(a, b, c) End Sub Private Function fun(x As Integer, y As Integer, z As Integer)As Integer z=x x=x+y y=y+z z=x+y fun=x+y+z End Function （分数：4.00）
16、33.执行下列程序，单击命令按钮 Command1 后，数组元素 A(2，3)的值是 1，A(3，3)的值是 2，A(4，3)的值是 3，文本框第一行的内容是 4。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim A(4, 4)As Integer, i As Integer, j As Integer, k As Integer For i=1 To 4 For i=1 To 4 k=k+1 A(i, j)=k Next j Next i Call Transform(A) For i=1 To 4 For j=1
17、 To 4 Text1=Text1 M; N End Function （分数：4.00）35.执行下列程序，单击按钮 Command1 后，数组元素 A(1，1)的值是 1，A(3，3)的值是 2。 Option Base 1 Option Explicit Private Sub Command1_Click() Dim A(3, 3)As Integer, i As Integer, j As Integer, k As Integer k=10 For i=3 To 1 Step-1 For j=3 To i Step-1 k=k+1 A(j, i+3-j)=k Next Next F
18、or i=2 To 1 Step-1 For j=1 To i k=k+1 A(i+1-j, j)=k Next Next For i=1 To 3 For j=1 To 3 Picture1.Print A(i, j); Next Picture1.Print Next End Sub （分数：4.00）36.执行下列程序，单击按钮 Command1 后，窗体上第一行内容是 1，第二行内容是 2，最后一行内容是 3。 Option Explicit Private Sub Command1_Click() Dim st As String, ch As String*1, t As Inte
19、ger Dim i As Integer st=“2 4 6 8 16#“ For i=1 To Len(st) ch=Mid(st, i, 1) If ch“And ch“#“Then t=t*10+Val(ch) Else If judge(t)Then Print t t=0 End If Next End Sub Private Function judge(ByVal n As Integer) As Boolean Do While n1 If n Mod 20 Then Exit Function End If n=n/2 Loop judge=True End Function
20、 （分数：4.00）37.执行下列程序，单击按钮 Command1，窗体第一行显示的结果是 1，UBound(A)的结果为 2，A(2)的值是 3。 Option Base 1 Option Explicit Private Sub Command1_Click() Dim st As String, i As Integer Dim A()As String, j As Integer, k As Integer st=“basic“ Process st Print st For i=1 To Len(st) For j=i+1 To Len(st) If Mid(st, i, 1)=Mi
21、d(st, j, 1)Then Exit For Next If iLen(st)Then k=k+1 ReDim Preserve A(k) A(k)=Mid(st, i, 1) Print“A(“; k; “)=“; A(k) End If Next End Sub Private Sub Process(S As String) Dim i As Integer, t As String For i=1 To Len(S)/2 t=Mid(S, i, 1) Mid(S, i, 1)=Mid(S, Len(S)-i+1, 1) Mid(S, Len(S)-i+1, 1)=t Next En
22、d Sub （分数：4.00）江苏省二级 VISUAL+BASIC-7 答案解析(总分：100.00，做题时间：90 分钟)一、第一部分 计算机信息技术基础知识(总题数：0，分数：0.00)二、选择题(总题数：20，分数：40.00)1.下列关于比特的叙述错误的是_。（分数：2.00）A.比特的英文是 byte B.计算机中的文字、图像、声音等多种不同形式的信息都可以用比特表示C.比特是组成数字信息的最小单位D.比特需要使用具有两个状态的物理器件来表示和存储解析：2.下列关于 CPU 结构的说法错误的是_。（分数：2.00）A.控制器是用来解释指令含义、控制运算器操作、记录内部状态的部件B.运
23、算器用来对数据进行各种算术运算和逻辑运算C.CPU 中仅仅包含运算器和控制器两部分 D.运算器可以有多个，如整数运算器和浮点运算器等解析：3.计算机的性能在很大程度上是由 CPU 决定的。CPU 的性能主要体现为它的指令执行速度。下列有关 CPU性能的叙述正确的是_。（分数：2.00）A.高速缓存(Cache)的有无和容量大小对计算机的性能影响不大B.寄存器数目的多少不影响计算机的性能C.指令的类型和功能不影响计算机的性能 D.提高主频有助于提高 CPU 的性能解析：4.下列关于打印机的叙述错误的是_。（分数：2.00）A.激光打印机使用 PS/2 接口和计算机相连 B.喷墨打印机的打印头是整
24、个打印机的关键C.喷墨打印机属于非击打式打印机，它能输出彩色图像D.针式打印机独特的平推式进纸技术，在打印存折和票据方面具有不可替代的优势解析：5.下列关于计算机软件的叙述错误的是_。（分数：2.00）A.人们不仅把程序，也把与程序相关的数据和文档统称为软件B.应用软件泛指那些为用户管理与操作使用计算机提供方便的一类软件 C.共享软件是一种“买前免费试用”的具有版权的软件D.大多数自由软件都是免费软件，但免费软件并不全都是自由软件解析：6.下列关于 Windows 的说法错误的是_。（分数：2.00）A.Windows 是目前使用最为广泛的操作系统，任何计算机都可安装和使用 Windows 操
25、作系统 B.Windows 操作系统采用并发多任务方式支持系统中多个任务的执行C.在 Windows 中，虚拟存储器是由物理内存和硬盘上的虚拟内存联合组成的，其页面调度算法采用“最近最少使用”算法D.微软公司推出的 Windows 产品一般有多个不同版本，例如家庭版、专业版等解析：7.假设 IP 地址为 202.119.48.8，为了计算出它的网络号，在下列选项中_最有可能作为它的子网掩码。（分数：2.00）A.255.0.0.0B.255.255.0.0C.255.255.255.0 D.255.255.255.255解析：8.下列对于网络信息安全的认识正确的是_。（分数：2.00）A.只要
26、使用加密技术，就能保证数据不被非法窃取B.访问控制的任务是对每个(类)文件或信息资源规定不同用户对它们的权限 C.数字签名的效力法律上还不明确，所以尚未推广使用D.根据人的生理特征(如指纹、人脸)进行身份鉴别在单机环境下还无法使用解析：9.在获取数字声音时，为了保证对频带宽度达 20kHz 的全频音乐信号采样时不失真，其采样频率应达到_以上。（分数：2.00）A.40kHz B.16kHzC.12kHzD.8kHz解析：10.不同的图像文件格式通常采用不同的图像压缩算法与数据组织方式，在下列图像文件格式中，通常为有损图像压缩的是_。（分数：2.00）A.BMPB.GIFC.TIFD.JPEG
27、解析：11.下列关于集成电路(IC)的叙述错误的是_。（分数：2.00）A.集成电路是在晶体管之后出现的B.集成电路应用非常广泛，集成电路产业的发展十分迅速C.集成电路使用的都是金属导体材料 D.集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系解析：12.PC 主板又称为母板，是 PC 中十分重要的部件。下列关于主板的叙述正确的是_。（分数：2.00）A.关于主板的物理尺寸目前还没有标准，不同厂家生产的主板物理尺寸均各不相同 B.主板上安装有存储芯片，例如 ROM 芯片、CMOS 芯片等C.CPU 是直接固定在主板上的，通常不可以更换D.主板上安装的电池可以在计算机突然断电时给计算机供
28、电，以保证计算机能正常关机解析：13.下列关于 BIOS 的叙述正确的是_。（分数：2.00）A.BIOS 是存于 ROM 中的一组高级语言程序B.BIOS 中含有系统工作时所需的全部驱动程序C.BIOS 包含了系统加电自检程序和 CMOS 设置程序 D.没有 BIOS 的 PC 也可以正常启动工作解析：14.自光存储技术诞生以来，光盘存储器获得迅猛发展，形成了 CD、DVD 和 BD 三代光盘存储器产品，下列叙述错误的是_。（分数：2.00）A.光盘片用于存储数据，其基片直径大多为 120mm(约 5 英寸)，用于记录数据的是一条由里向外的连续的螺旋状光道B.CD 光驱使用红外激光，DVD
29、光驱使用红色激光，BD 使用蓝色激光C.目前一张 BD 光盘的存储容量可达 25GB，是现有单面单层 DVD 容量的 5 倍左右D.DVD 刻录机可以对 DVD-RW 光盘进行读写操作，但不能刻录 CD-R 光盘 解析：15.下列关于汇编语言的叙述错误的是_。（分数：2.00）A.汇编语言属于低级程序设计语言B.汇编语言源程序可以由计算机直接执行 C.不同型号 CPU 支持的汇编语言不一定相同D.汇编语言是一种与 CPU 逻辑结构密切相关的编程语言解析：16.下列关于 Windows 多任务处理系统的叙述错误的是_。（分数：2.00）A.用户如果只启动一个应用程序，则该程序就可以自始至终独占
30、CPU 资源 B.由于 CPU 中有多个执行部件，可同时执行多条指令，所以才能同时执行多个任务的处理C.从微观上看，前台任务和后台任务能同时得到 CPU 响应D.Windows 操作系统在执行 32 位应用程序时，采用的是按时间片轮转的调度方法解析：17.下列关于网络两种工作模式(客户/服务器模式和对等模式)的叙述错误的是_。（分数：2.00）A.近年来盛行的“BT”下载服务采用的是对等工作模式B.基于客户/服务器模式的网络会因客户机的请求过多、服务器负担过重而导致整体性能下降C.Windows 操作系统中的“网上邻居”是按客户/服务器模式工作的 D.对等网络中的每台计算机既可以作为客户机也可
31、作为服务器解析：18.目前采用无线方式接入因特网的技术有多种，如无线局域网(WLAN)接入、GPRS 接入、3G 接入、4G 接入等。下列相关叙述错误的是_。（分数：2.00）A.家庭中的多台计算机通过无线路由器共享 ADSL(或光纤以太网)线路连接因特网B.GPRS 是在第 2 代移动通信系统 GSM 上发展出来的一种基于分组交换的数据通信业务C.采用 4G 移动电话网接入时，数据传输速率可达数十甚至上百 Mbps D.目前我国所有城市均已开通 4G 移动电话接入解析：19.下列有关数字视频信息的叙述错误的是_。（分数：2.00）A.目前有线电视台播放和传输的虽然已经是数字视频信号，但它需要
32、经机顶盒解码转换为模拟电视信号后才能由传统电视机播放与收看B.数字摄像头是一种可以在线获取数字视频的设备，目前许多平板电脑、笔记本电脑已将数字摄像头集成在其中C.目前视频通信(如可视电话、会议电视等)采用的视频压缩编码标准为 MPEG-1 D.计算机动画是一种合成的数字视频，它的制作过程通常是先在计算机中生成场景和物体模型，然后描述它们的运动，最后再生成图像并转换成视频信号输出解析：20.颜色空间是指彩色图像所使用的颜色描述方法，也叫颜色模型。在下列颜色模型中，_通常用于印刷出版行业。（分数：2.00）A.CYMK B.RGBC.HSBD.YUV解析：三、第二部分 Visual Basic 程
33、序设(总题数：0，分数：0.00)四、选择题(总题数：10，分数：30.00)21.下列有关对象属性的说法错误的是_。（分数：3.00）A.每个对象都有自己的属性集合B.不同属性可能具有不同的数据类型C.对象的所有属性都可以通过代码来设置或改变 D.所有对象都具有名称(Name)属性解析：22.数学表达式 （分数：3.00）A.Abs(ex+Cos2x)/Sqr(y+1)B.Abs(ex+Cosx2)/Sqr(y+1)C.Abs(Exp(x)+Cos(x)2)/Sqr(y+1) D.Abs(Exp(x)+Cosx2)/Sqr(y+1)解析：23.表达式 Int(8*Sqr(36)*10(-2)
34、*10+0.5)/10+Val(“.123e2cd“)的值是_。（分数：3.00）A.123e2B.123C.0.5D.12.8 解析：24.下列有关动态数组的说法正确的是_。（分数：3.00）A.动态数组可以用 ReDim 语句重新说明其维数、大小、类型B.使用 Erase 语句操作过的动态数组不需要使用 ReDim 重新定义即可直接使用C.含有 Preserve 关键字的 ReDim 语句只能改变最后一维的上界 D.主调用过程中定义的数组只能在本过程中使用 ReDim 重新定义解析：25.下列有关通用过程的说法正确的是_。（分数：3.00）A.不论在 Function 中是否给函数名赋值，
35、函数总会返回一个值 B.在通用 Sub 过程中不能再调用其他通用过程或事件过程C.通用过程中的形式参数不能与全局变量同名D.在参数传递时，数组可以按值进行传递解析：26.以下有关对象事件的说法错误的是_。（分数：3.00）A.对象事件过程的参数是由系统定义的，用户不可以自行改变参数个数B.控件事件过程名的对象名为控件的名称(Name 属性值)C.窗体事件过程名的对象名为窗体的名称(Name 属性值) D.事件过程也可以与通用过程一样使用 Call 语句来调用解析：27.设字符串变量 s 被赋值“Hello World”，以下表达式中返回结果与其他三个不同的是_。（分数：3.00）A.InStr
36、(4, S, “L“)B.InStr(InStr(S, “L“), S, “L“) C.InStr(Left(S, 2) b; i End Sub （分数：4.00）解析：8 13 2232.执行下列程序，单击 Command1 按钮，在窗体上显示的变量 a 的值为 1，变量 c 的值为 2，窗体上的输出内容为 3。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=1:b=2:c=3 Print fun(a, b, c)+fun(a, b, c) End Su
37、b Private Function fun(x As Integer, y As Integer, z As Integer)As Integer z=x x=x+y y=y+z z=x+y fun=x+y+z End Function （分数：4.00）解析：6 12 3633.执行下列程序，单击命令按钮 Command1 后，数组元素 A(2，3)的值是 1，A(3，3)的值是 2，A(4，3)的值是 3，文本框第一行的内容是 4。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim A(4, 4)As Integ
38、er, i As Integer, j As Integer, k As Integer For i=1 To 4 For i=1 To 4 k=k+1 A(i, j)=k Next j Next i Call Transform(A) For i=1 To 4 For j=1 To 4 Text1=Text1 M; N End Function （分数：4.00）解析：8 6 2 3935.执行下列程序，单击按钮 Command1 后，数组元素 A(1，1)的值是 1，A(3，3)的值是 2。 Option Base 1 Option Explicit Private Sub Command
39、1_Click() Dim A(3, 3)As Integer, i As Integer, j As Integer, k As Integer k=10 For i=3 To 1 Step-1 For j=3 To i Step-1 k=k+1 A(j, i+3-j)=k Next Next For i=2 To 1 Step-1 For j=1 To i k=k+1 A(i+1-j, j)=k Next Next For i=1 To 3 For j=1 To 3 Picture1.Print A(i, j); Next Picture1.Print Next End Sub （分数：4
40、.00）解析：19 1136.执行下列程序，单击按钮 Command1 后，窗体上第一行内容是 1，第二行内容是 2，最后一行内容是 3。 Option Explicit Private Sub Command1_Click() Dim st As String, ch As String*1, t As Integer Dim i As Integer st=“2 4 6 8 16#“ For i=1 To Len(st) ch=Mid(st, i, 1) If ch“And ch“#“Then t=t*10+Val(ch) Else If judge(t)Then Print t t=0
41、End If Next End Sub Private Function judge(ByVal n As Integer) As Boolean Do While n1 If n Mod 20 Then Exit Function End If n=n/2 Loop judge=True End Function （分数：4.00）解析：2 4 1637.执行下列程序，单击按钮 Command1，窗体第一行显示的结果是 1，UBound(A)的结果为 2，A(2)的值是 3。 Option Base 1 Option Explicit Private Sub Command1_Click()
42、 Dim st As String, i As Integer Dim A()As String, j As Integer, k As Integer st=“basic“ Process st Print st For i=1 To Len(st) For j=i+1 To Len(st) If Mid(st, i, 1)=Mid(st, j, 1)Then Exit For Next If iLen(st)Then k=k+1 ReDim Preserve A(k) A(k)=Mid(st, i, 1) Print“A(“; k; “)=“; A(k) End If Next End Sub Private Sub Process(S As String) Dim i As Integer, t As String For i=1 To Len(S)/2 t=Mid(S, i, 1) Mid(S, i, 1)=Mid(S, Len(S)-i+1, 1) Mid(S, Len(S)-i+1, 1)=t Next End Sub （分数：4.00）解析：csiab 5 i
