2005年春江苏省等级二级Visual Basic 答案

2005年春
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试
二级 Visual Basic
（红色部分为答案）
第一部分计算机基础知识

（基础知识分为 I 和 II 两类，考生选做其中的一类，且不需要在答题卡上标注类别）

１．十进制数 100 对应的二进制数、八进制数和十六进制数分别 _____________ 。

　　Ａ． 1100100 、 144Q 和 64H 　　　　　　Ｂ． 1100110B 、 142Q 和 62H
　　Ｃ． 1011100B 、 144Q 和 66H 　　　　　Ｄ． 1100100B 、 142Q 和 60H

２．在各种数字系统中，汉字的显示与打印均需要有相应的字形库支持。目前汉字的字形主要有两种描述方法，即点阵字形和 ___________ 字形。

３．在下列有关ＰＣ机及ＣＰＵ芯片的叙述中，正确的是 _____________ 。

　　Ａ．目前 PC 机所用 CPU 芯片均为 Intel 公司生产
　　Ｂ．ＰＣ机只能安装 MS-DOS 或 Windows 操作系统
　　Ｃ．ＰＣ机主板型号与ＣＰＵ型号是一一对应的，不同的主板对应不同的 CPU
　　Ｄ． Pentium ＭＭＸ中的“ＭＭＸ”是“多媒体扩展指令集”的英文缩写　

４．总线在计算机的组成与发展过程中起着重要作用。在下列ＰＣ机的总线标准中，因价格和兼容性等原因，未被广泛推广使用的是 _____________ 。

５．根据前国际电报电话咨询委员会（ CCITT ）的定义，与计算机信息处理有关的媒体分为五种。据此定义和媒体的分类， I/O 设备属于 _____________ 。

　　Ａ．表示媒体　　Ｂ．存储媒体　　Ｃ．表现媒体　　Ｄ．传输媒体

６．数字图像未经压缩时，其数据量很大，既浪费存储空间，也不适于往上传输。例如，一幅分辨率为 102 4 × 768 的 256 色的未经压缩的数字图像，其数据量大约为 _____________ KB 。

　Ａ．随着 Modem 性能的提高，电话拨号上网的速度越来越快，目前可达１ Mbps 以上
　Ｂ．用户从不同的网站下载信息，其速度通常有所不同
　Ｃ．从 Internet 上搜索到的信息，有时不能下载到本地计算机
　Ｄ．网页上的图片大多为 GIF 和 JPEG 格式

８．在 Internet 中，域名服务器的主要功能是实现 _____________ 的转换。

　　Ａ．ＩＰ地址到域名（主机名字）　　　　　　Ｂ．域名到ＩＰ地址
　　Ｃ．主机ＩＰ地址和路由器ＩＰ地址之间　　　Ｄ．路由器ＩＰ地址之间

９． http://exam.nju.edu.cn 是“江苏省高等学校计算机等级考试中心”的网址。其中，“ http ”是指 _____________ 。

　　Ａ．超文本传输协议　　　Ｂ．文件传输协议　　Ｃ．计算机主机域名　　　　Ｄ． TCP/IP 协议

１０．在下列有关电子邮件（ Email ）的叙述中，错误的是 _____________ 。

　　　Ａ． E-mail 地址具有特定的格式，即“＜邮箱名＞”＠＜邮件服务器域名＞”
　　Ｂ．一个用户可以向一个或多个邮件服务器提供商申请多个 E-mail 地址
　　Ｃ．目前邮件发送时一般采用 POP3 协议，接收时采用 SMTP 协议　
　　Ｄ．一封电子邮件通常由三部分组成，即邮件的头部、正文和附件

１１．在下列有关操作系统的叙述中，错误的是 _____________ 。

　　　Ａ．操作系统是最基本的软件， Windows 是 PC 机上最早使用的操作系统
　　Ｂ．操作系统是随着计算机软件的发展而发展的，最早的计算机并无操作系统
　　Ｃ．目前ＰＣ机除了可以使用 Windows 系列操作系统，也可以使用其他操作系统
　　Ｄ．计算机系统软件中软件安全的核心是操作系统的安全性

１２．软件的可移植性是衡量软件质量的重要标准之一，它是指 _____________ 。

　　　Ａ．软件版本升级的难易程度
　　Ｂ．软件与其它软件交换信息的难易程度
　　Ｃ．软件对软硬件环境要求得到满足的难易程度
　　Ｄ．软件从一个计算机系统或环境转移到另一个计算机系统或环境的难易程度

１３．计算机病毒是影响计算机安全的主要因素之一，目前已有数千种病毒，且新病毒层出不穷。在下列有关计算机病毒的叙述中，正确的是 _____________ 。

　　Ａ．每一种计算机病毒总是一个独立的软件（程序），对应着一个或多个文件
　　Ｂ．计算机病毒不仅能感染一个独立的软件，而且能感染数据文件（如 Word 文档等）
　　Ｃ．加密或压缩的文件一般不会感染计算机病毒
　　Ｄ．安装了病毒防火墙的计算机系统不会感染计算机病毒

１４．在下列有关 Windows 98/2000/XP 中快捷方式的叙述中，错误的是 _____________ 。

　　　Ａ．快捷方式提供了对常用程序和文档等资源的捷径访问
　　　Ｂ．存储在同一磁盘上的不同快捷方式，其对应文件的文件类型总是相同的，但文件大小可能有所不同
　　　Ｃ．快捷方式显示的图标总是由对应的程序或文档等资源决定的，用户不可以更改
　　　Ｄ． Windows 桌面上可以无任何快捷方式

１５．在外存储器中，信息一般以文件为单位进行组织与存储。在 Windows 98/2000/XP 环境下，下列有关文件和文件名的叙述中错误的是 _____________ 。

　Ａ．文件扩展名总是由保存文件时所选文件类型决定的，用户不可以更改
　Ｂ．在 Windows 98/2000/XP 中，文件名的长度可达 200 多个字符
　Ｃ．在 Windows 98/2000/XP 中允许文件名中含有空格，但不允许文件名仅由空格组成
　Ｄ．在采用高级语言编写程序时，若文件名中含有空格，则程序中引用文件时必须加引号

１６．在 Windows 98/2000/XP 环境下，许多操作可以通过菜单或工具栏完成，但掌握一些常用的快捷键有助于提高工作效率。在 Windows 及其应用程序中，“撤消”操作所对应的快捷键一般为 _____________ 。

　　Ａ． Ctrl+A 　　　Ｂ． Ctrl+S 　　Ｃ． Ctrl+N 　　　　Ｄ． Ctrl+Z

１７．在下列有关 Microsoft Word 97/2000 功能的叙述中，错误的是 _____________ 。

　　Ａ．利用 Word 软件可以制作网页
　Ｂ．在编制 Word 文档时，可以对表格中的数据进行排序操作，但不可进行数据的计算
　Ｃ． Word 文档中可以插入声音、动画和视频
　Ｄ．利用其“自动更正”功能可以提高文本输入速度和编辑效率

１８．在 Microsoft Word 97/2000 　环境下编辑文档时，可以建立多级“编号”或“项目符号”。编号或项目符号升级是可按功能键 _____________ 。

　　Ａ． Tab　　　Ｂ． Ctrl+Tab 　　Ｃ． Alt+Tab 　　　Ｄ． Shift+Tab

１９．下列有关 Microsoft Word 97/2000 功能的叙述中，错误的是 _____________ 。

　　Ａ．在新建 Execel 工作簿后　，系统默认其包含３张工作表，但这种默认可在“选项”对话框中更改
　Ｂ．可以将文本文件或数据库（表）文件导入到 Execel 中
　Ｃ．工作表中的数据既可以以行方式排序，也可以以列方式排序
　Ｄ．可以利用“编辑”菜单打开“页眉／页脚”对话框，以完成页眉和页脚的编辑

２０．若利用 Micorsoft Execel 97/2000 创建新工作簿后未进行过任何设置，则在某单元格中输入数据时，下列叙述中正确的是 _____________ 。

　　Ａ．输入 7/2 ，系统认为输入的是日期型数据　
　　Ｂ．输入 3+5 ，则系统对其进行计算并显示为 8
　　Ｃ．输入“ OK ”（含英文双引号，即输入 4 个字符），系统认为输入的是字符型数据 OK （ 2 个字符）
　　Ｄ．输入空格后输入 OK ，系统自动的将前面空格删除

１．十进制数 100 对应的二进制数、八进制数和十六进制数分别是 _____________ 。

　　Ａ． 1100100B 、 144Q 和 64H
　　Ｂ． 1100110B 、 142Q 和 62H
　　Ｃ． 1011100B 、 144Q 和 66H
　　Ｄ． 1100100B 、 142Q 和 60H

２．在各种数字系统中，汉字的显示与打印均需要有相应的字形库支持。目前汉字的字形主要有两种描述方法，即点阵字形和 ___________ 字形。

３．在下列有关ＰＣ机及ＣＰＵ芯片的叙述中，正确的是 _____________ 。

４． USB 接口是由 Compag 、 IBM 、 Intel 、 Microsoft 和 NEC 等公司共同开发的一种 I/O 接口。在下列有关 USB 接口的叙述中，错误的是 _____________ 。

　　　Ａ． USB 接口是一种串行接口， USB 对应的中文为“通用串行总线”
　　　Ｂ． USB2.0 的数据传输速度比 USB1.1 快得多
　　　Ｃ．利用“ USB 集线器”，一个 USB 接口最多只能连接 63 个设备
　　　Ｄ． USB 既可以连接硬盘、闪存等快速设备，也可以连接鼠标、打印机等慢速设备

５．目前 PC 机的外存储器（简称“外存”）主要有软盘、硬盘、光盘和各种移动存储器。在下列有关 PC 机外存的叙述中，错误的是 _____________ 。

　　Ａ．软盘因其容量小、存取速度慢、易损坏等原因，目前使用率越来越低
　Ｂ．目前 CD 光盘的容量一般为数百兆字节，而 DVD 光盘的容量为数千兆字节
　Ｃ．硬盘是一种容量大、存取速度快的外存，目前主流硬盘的转速均为每分钟几百转
　Ｄ．闪存盘也称为“优盘”，目前其容量从几十兆字节到几千兆字节不等

６．数字图像未经压缩时，其数据量很大，既浪费存储空间，也不适于网上传输。例如，一幅分辨率为 102 4 × 768 的 256 色的未经压缩的数字图像，其数据量大约为 _____________ KB 。

　　Ａ．随着 Modem 性能的提高，电话拨号上网的速度越来越快，目前可达 1Mbps 以上
　Ｂ．用户从不同的网站下载信息，其速度通常有所不同
　Ｃ．从 Internet 上搜索到的信息，有时不能下载到本地计算机
　Ｄ．网页上的图片大多为 GIF 和 JPEG 文件

８．在 Internet 中，域名服务器的主要功能是实现 _____________ 的转换。

　　　Ａ． IP 地址到域名（主机名字）　　　　　　　Ｂ．域名到 IP 地址
　　Ｃ．主机 IP 地址和路由器 IP 地址之间　　　　Ｄ．路由器 IP 地址之间

９． http://exam.nju.edu.cn 是“江苏省高等学校计算机等级考试中心”的网址。其中，“ http ”是指 _____________ 。

　　　Ａ．超文本传输协议　　Ｂ．文件传输协议　　　Ｃ．计算机主机域名　　　Ｄ． TCP/IP 协议

１０．在下列有关电子邮件（ Email ）的叙述中，错误的是 _____________ 。

１１．无线电波按频率（或波长）可分为中波、短波、超短波和微波。在下列关于微波的说法中，错误的是 _____________ 。

　　　Ａ．微波沿地球表面传播，易穿过建筑物
　　　Ｂ．微波是一种具有极高频率的电磁波，其波长很短
　　　Ｃ．微波通信的建设费用低（与电缆通信相比）、抗灾能力强
　　　Ｄ．微波传输技术广泛用于移动通信和高清晰度电视的信号传输等

１２．在下列有关 PC 机组成的叙述中，错误的是 _____________ 。

　　　Ａ．目前 PC 机主板上的芯片一般由多块 VLSI 组成，不同类型的 CPU 通常要不同的芯片组
　　　Ｂ． CMOS 由电池供电，当电池无电时 CMOS 中设置的信息丢失
　　　Ｃ． Cache 是由 SRAM 组成的高速缓冲
　　　Ｄ． BIOS 的中文名称是基本输入 / 输出系统，它仅包含基本外围设备的驱动程序，存放在 ROM 中

１３． MP3 是一种广泛使用的数字声音格式。下列关于 MP3 地叙述中，正确的是 _____________ 。

　　　Ａ．表达同一首乐曲时， MP3 的数据量比 MIDI 声音要少得多
　　Ｂ． MP3 声音的质量与 CD 唱片声音的质量大致相当
　　Ｃ． MP3 声音适合在网上实时播放
　　Ｄ．同一首乐曲经过数字化后产生的 MP3 文件与 WAV 文件的大小基本相同

１４．数码相机是扫描仪之外的另一种重要的图像输入设备，它能直接将图像信息以数字形式输入电脑进行处理。目前，数码相机种将光信号转换为电信号使用的器件主要是 _____________ 。

　　　Ａ． Memory Stick　　Ｂ． DSP　　　Ｃ． CCD　　　　　Ｄ． D/A

１５．数据结构是研究程序设计中计算机操作对象以及它们之间关系和运算的一个专门学科。在下列数据结构的叙述中，错误的是 _____________ 。

　　　Ａ．数据结构仅研究数据的逻辑结构和存储结构，不考虑在该结构上的数据运算
　　Ｂ．数据的存储结构是其逻辑结构在计算机存储器上的实现
　　Ｃ．数据的逻辑结构是数据间关系的描述，它只抽象的反映数据元数间的逻辑关系
　　Ｄ．线性表和树是典型的数据逻辑结构，链接表是典型的数据存储结构

　　　Ａ． Ctrl+A 　　　Ｂ． Ctrl+S 　　　　Ｃ． Ctrl+N 　　　　　Ｄ． Ctrl+Z

１７．在下列有关 Microsoft Word 97/2000 功能的叙述中，错误的是 _____________ 。

　　Ａ．利用 Word 软件可以制作网页
　　Ｂ．在编制 Word 文档时，可以对表格中的数据进行排序操作，但不可进行数据的计算
　　Ｃ． Word 文档中可以插入声音、动画和视频
　　Ｄ．利用其“自动更正”功能可以提高文本输入速度和编辑效率

１８．网页是目前最常见的文档之一，许多软件支持该类文档的创建和编辑。在下列软件中，不能将编辑的文件保存为网页（ HTML 文档）的是 _____________ 。

　　Ａ． Microsoft Word　　　　　　　　　　　　　　　Ｂ． Microsoft Excel
　　Ｃ． Microsoft PowerPoint　　　　　　　　　　　Ｄ． Windows 中“写字板”应用程序

１９．下列有关 Microsoft Word 97/2000 功能的叙述中，错误的是 _____________ 。

　　Ａ．在新建 Execel 工作簿后　，系统默认其包含３张工作表，但这种默认可在“选项”对话框中更改
　　Ｂ．可以将文本文件或数据库（表）文件导入到 Execel 中
　　Ｃ．工作表中的数据既可以以行方式排序，也可以以列方式排序
　　Ｄ．可以利用“编辑”菜单打开“页眉／页脚”对话框，以完成页眉和页脚的编辑

２０．在下列关于一些典型信息系统的叙述中，错误的是 _____________ 。

　　Ａ．电子商务是指企业之间通过网络进行的商务活动，不涉及企业与政府之间的事务
　　Ｂ．电子政务是实现政府信息化的一种重要手段，其对应得英文词是 eGovermert
　　Ｃ．数字图书馆是一种又有多种媒体、内容丰富的数字化海量信息资源库
　　Ｄ．从信息系统得分类来看， ERP 属于管理信息系统

一• 选择题（用答题卡答题，答案依次填在 21~30 答题号内）

　　　Ａ．方法是构成对象实体的一个部分
　　　Ｂ．方法是一种特殊的过程或函数　
　　　Ｃ．调用方法的一般格式是：对象名称．方法名称［参数］
　　　Ｄ．在调用方法时，对象名称是不可缺少的

２２．创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在窗体上，可能的原因是 ____________ 。

　　　Ａ．该命令按钮的 Value 属性被设置为 False
　　　Ｂ．该命令按钮的 Enabled 属性被设置为 False
　　　Ｃ．该命令按钮的 Visible 属性被设置为 False
　　　Ｄ．该命令按钮的 Default 属性被设置为 True

２３．若需要在同一窗口内安排两组相互独立的单选按钮（ OptionButton ），可使用 ____________ 控件将它们分隔开。

　　　① TexBox 　　　　　② Picture 　　　③ Image 　　　　④ Frame

　　　Ａ． ①② 　　　　Ｂ． ②③ 　　　　Ｃ． ②④ 　　　　　Ｄ． ③④

２４．单击滚动条两端的箭头时，滚动条 Value 属性值的改变量由 ____________ 属性值决定。

　　　Ａ． LargeChange 　　　　　Ｂ． Max 　　　　　Ｃ． SmallChange 　　　　　Ｄ． Min

２５．设变量 D 为 Date 型、 A 为 Integer 型、 S 为 String 型、 L 为 Long 型，下面赋值语句中不能执行的是 ____________ 。

　　　Ａ． D=#12:30:00 PM# 　　　　　Ｂ． A=”3277e 1” 　　　　　Ｃ． S=Now 　　　　　Ｄ． L=”4276D 3”

２６．下面表达式中， ____________ 的值是整型（ Interger 或 Long ）。

　　① 36+4/2 　　　② 123+Fix(6.61) 　　　　　　③ 57+5.5\2.5 　　　　　④ 356 & 21　　　　 ⑤ “374”+258 　　　　　　　　⑥ 4.5 Mod 1.5

　　　Ａ．　 ①②④⑥ 　　　　　Ｂ． ③④⑤⑥ 　　　　　Ｃ． ②④⑤⑥ 　　　　　　Ｄ． ③⑥

２７．在 Select Case X 结构中，描述判断条件 3 ≦ X ≦ 7 的测试项应该写成 ____________ 。

　　　Ａ． Case 3 ≦ X ≦ 7 　　　　　　　　　Ｂ． Case 3 ≦ X ， X ≦ 7 　
　　　Ｃ． Case Is ≦ 7 ， Is ≧ 3　　　　　　　　Ｄ． Case 3 To 7

　　　Ａ．过程的形参不可以是定长字符串类型的变量
　　　Ｂ．形参是定长字符串的数组，则对应的实参必须是定长字符串型数组，且长度相同　　
　　　Ｃ．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合
　　　Ｄ．按值传递参数，形参和实参的类型可以不同，只要相容即可

２９．下面有关文件管理控件的说法，正确的是 ____________ 。

　　　Ａ． ChDir 语句的作用是指明新的缺省工作目录，同时也改变目录列表框的 Path 属性
　　　Ｂ．改变文件列表框的 FileName 属性值，仅改变列表框中显示的文件名，不会引发其它事件
　　　Ｃ．改变驱动器列表框的 ListIndex 属性值，会改变 Drive 属性值并触发 Change 事件
　　　Ｄ．单击目录列表框中某一项，会触发 Change 事件

３０．以下有关 Line 划线方法的说明，错误的是 ____________ 。

　　　Ａ． Line 方法既可用于单个划线，也可用于连续划线
　　　Ｂ． Line 方法中的 Step 选项用于指定由 CurrentX 、 CurrentY 属性决定的图形坐标位置
　　　Ｃ． Line 方法划线的宽度由 DrawWidth 属性决定
　　　Ｄ．当使用 F 选项时， Line 方法可用于绘制矩形

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）

１．执行下面的程序，单击窗体，则在窗体上显示的是 ____-1________ 。
　　Option Explicit
　　Private Sub Form_Click()
　　　　Dim a As Integer, b As Integer, c As Integer
　　　　b = 6: c = 6.5
　　　　a = b = c
　　　　Print a
　　End Sub

２．执行下面的程序，单击按钮 Command1 ，在窗体上显示的第一行是 ____0.6________ ，第二行是 ____1.8________ ，第三行是 _____5.4_______ 。
　　Option Explicit
　　 Private Sub Command1_Click()
　　　　　Dim x As Single, i As Integer
　　　　　x = 1.2
　　　　　For i = 1 To 3
　　　　　　　x = x * i
　　　　　　　Print fun1(x)
　　　　　Next i
　　End Sub
　　Private Function fun1(x As Single) As Single
　　　　Static y As Single
　　　　y = y + x
　　　　fun1 = y / 2
　　End Function

３．执行下面的程序后，单击按钮 Command1 ，则 N 的值是 ____10________ ， A 的值是 _____27_______ ， B 的值是 _____9_______ 。
　　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 As Integer) As Integer
　　　　　x = y - 1 + n
　　　　　y = x + y - n
　　　　　fun = x + y
　　End Function

４．执行下面的程序，单击按钮 Command1 ，窗体上显示的结果中 I 的值是 ____11________ ， J 的值是 ____2________ ， K 的值是 _____43_______ 。
　　Option Explicit　
　　Private Sub Command1_Click()
　　　　Dim i As Integer, j As Integer
　　　　Dim k As Integer
　　　　i = 1: j = 2
　　　　k = fun(i, fun(i, j)) + i + j
　　　　Print "i="; i; "j="; j; "k="; k
　　End Sub
　　Function fun(a As Integer, ByVal b As Integer) As Integer
　　　　a = a + b
　　　　b = a + b
　　　　fun = a + b
　　End Function

５．执行下面的程序，单击按钮 Command1 ， A （ 1 ， 1 ）的值是 _____7_______ ， A （ 1 ， 4 ）的值是 _____1_______ ， A （ 4 ， 1 ）的值是 ____16________ ， A （ 4 ， 4 ）的值是 _____10_______ 。
　　Option Base 1
　　Private Sub Command1_Click()
　　　　Dim a() As Integer, i As Integer, j As Integer
　　　　Dim k As Integer, n As Integer
　　　　n = 4
　　　　ReDim a(n, n)
　　　　i = 1: j = n: a(i, j) = 1
　　　　For k = 2 To n * n
　　　　　　If 　i + 1 > n Then
　　　　　　　　i = n - j + 2: j = 1
　　　　　　ElseIf　 i + 1 <= n And j + 1 > n Then
　　　　　　　　　　j = j - i: i = 1
　　　　　　Else
　　　　　　　　　　i = i + 1: j = j + 1
　　　　　　End If
　　　　　　a(i, j) = k
　　　　Next k
　　　　For i = 1 To n
　　　　　　For j = 1 To n
　　　　　　　　Print a(i, j);
　　　　　　Next j
　　　　　　Print
　　　　Next i
　　End Sub

　　Option Explicit
　　Private Sub Form_Click()
　　　　Dim y As Single, t As Single, a As Single
　　　　y = 2: t = 0
　　　　Do
　　　　　　t = Sqr(2 + t)
　　　　　　a = 2 / t
　　　　　　If Abs(a - 1) < 10 ^ (-5) Then Exit Do
　　　　　　y = y * a
　　　　Loop
　　　　Print "pi="; y
　　End Sub

７．本程序的功能是从给定的纯英文字符串中找出最长的一个按字母顺序排列的子串。程序界面参见图 1 。
　　

　　　　　End If
　　　　　p = Mid(st, i + 1, 1)
　　　End If
　　Next i
　　If Len(p) > 1 And Len(p) > Len(sta) Then
　　　　　max_st = p
　　Else
　　　　　max_st = sta
　　End If
End Function

８．下面程序的功能是找出由两个不同的数字组成的回文平方数。程序界面参见图 2 。
　　 Option Explicit
　　Private Sub Command1_Click()
　　　　Dim a(0 To 9) As Integer, i As Long, flg As Boolean
　　　　Dim l As Long, j As Integer, sum As Integer

　　End Sub
　　Private Sub sub1(x As Long, a() As Integer, bl As Boolean)
　　　　Dim n As Integer, idx As Integer, i As Integer
　　　　bl = False
　　　　n = Len(CStr(x))
　　　　For i = 1 To n / 2
　　　　　　If Mid(CStr(x), i, 1) <> Mid(CStr(x), n - i + 1, 1) Then
　　　　　　　　Exit Sub
　　　　　　End If
　　　　Next i
　　　　bl = True
　　　　For i = 1 To n
　　　　　　idx = x Mod 10
　　　　　　a(idx) = 1　　
　　　　　　x = (x \ 10)
　　　　Next i
　　End Sub

９．下面程序的功能是随机生成 10 个不同的两位数，从中找出所有互质数对。若两个数除了 1 以外没有其他公约数，这两个数就是互质数。其中函数 Rec 是一个递归函数。程序界面参见图 3 。
　　Option Explicit
　　Private Sub Command1_Click()
　　　　Dim a(10) As Integer, i As Integer, j As Integer
　　　　Dim n As Integer, k As Integer
　　　　Randomize
　　　　a(1) = Int(90 * Rnd) + 10
　　　　Text1 = a(1)
　　　　　k = 1
　　　　Do 　　While k < 10
　　　　　　n = Int(90 * Rnd) + 10
　　　　　　If 　　InStr　　(Text1, CStr(n)) = 0 Then
　　　　　　　　Text1 = Text1 & Str(n)
　　　　　　　　k = k + 1
　　　　　　　　a(k) = n
　　　　　　End If
　　　　Loop
　　　　For i = 1 To 9
　　　　　　For j = i + 1 To 10
　　　　　　　　If Not rec(a(i), a(j), 2) Then
　　　　　　　　　　List1.AddItem Str(a(i)) & Str(a(j))
　　　　　　　　End If
　　　　　　Next j
　　　　Next i
　　End Sub
　　Private　Function rec(n As Integer, m As Integer, k As Integer) As Boolean
　