2023年9月计算机真题.pdf

《2023年9月计算机真题.pdf》由会员分享，可在线阅读，更多相关《2023年9月计算机真题.pdf（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 一 局 部 计 算 机 根 底 学 问 1.以 下 关 于 信 息、信 息 技 术、信 息 产 业 与 信 息 化 的 表 达 中，错 误 的 选 项 是（1）。A.世 间 一 切 事 物 都 在 运 动，都 具 有 确 定 的 运 行 状 态，因 而 都 在 产 生 信 息 B.现 代 信 息 技 术 的 主 要 特 征 之 一 是 以 数 字 技 术 为 根 底 C.信 息 产 业 特 指 利 用 信 息 设 备 进 展 信 息 处 理 与 效 劳 的 行 业，它 不 包 括 任 何 生 产 制 造 行 业 D.信 息 化 是 一 个 推 动 人 类 社 会 从 工 业 社 会 向 信

2、 息 社 会 转 变 的 社 会 转 型 的 过 程 2.以 下 关 于 数 字 技 术 与 微 电 子 技 术 的 表 达 中，错 误 的 选 项 是（2）。A.数 字 技 术 的 处 理 对 象 是“比 特”，它 只 有 两 种 取 值，即 数 字 0 和 数 字 1B.数 据 通 信 和 计 算 机 网 络 中 传 输 二 进 制 信 息 时，传 输 速 率 的 度 量 单 位 通 常 为 B/s、K B/s、MB/s 等 C.微 电 子 技 术 是 实 现 电 子 电 路 和 电 子 系 统 超 小 型 化 及 微 型 化 的 技 术，它 以 集 成 电 路 为 核 心 D.I n t

3、e l公 司 创 始 人 之 一 摩 尔 曾 发 表 论 文 推 想，单 块 集 成 电 路 的 集 成 度 平 均 每 1 8 2 4个 月 翻 一 番 3.以 下 选 项 中，数 侑 相 等 的 一 组 数 是（3）-A.十 进 制 数 54020与 八 进 制 数 54732B.八 进 制 数 13657与 二 进 制 数 1011110101111C.十 六 进 制 数 F429与 二 进 制 数 1011010000六 1101D.八 进 制 数 7324与 十 六 进 制 数 B934.以 下 关 于 台 式 P C机 C P U的 表 达 中，错 误 的 选 项 是（4）。A.目

4、 前 的 P c 机，C P U 芯 片 都 是 直 接 固 定 在 主 板 上 的，用 户 不 行 对 其 进 展 更 换 B.P C机 C P U芯 片 有 多 个 生 产 厂 商，例 如 In tel公 司、A M D公 司 等 C.Intel公 司 的 Core i7/i5/i3处 理 器 是 6 4位 多 内 核 C P U芯 片 D.目 前 的 C P U芯 片 中 一 般 都 集 成 了 确 定 容 量 的 高 速 缓 冲 存 储 器 cache5.以 下 关 于 台 式 P C机 主 板 的 表 达 中，错 误 的 选 项 是（5）。A.为 了 便 于 不 同 P C 机 主

5、板 的 互 换，主 板 的 物 理 尺 寸 已 经 标 准 化，例 如 ATX和 B T X规 格 B.芯 片 组 是 主 板 上 的 重 要 部 件，它 与 C P U芯 片 及 外 设 同 步 进 展 C.主 板 上 的 BIO S集 成 电 路 芯 片 中 存 储 了 CM OS设 置 程 序 D.主 板 上 的 CM O S存 储 器 是 一 种 非 易 失 性 存 储 器，在 任 何 状 况 下 其 信 息 均 不 会 丧 失 6.以 下 四 种 I/O 总 线（接 口）中，数 据 传 输 方 式 为 并 行 方 式 的 是（6）。A.PCI-Express B.PCIC.USB D

6、.IEEE-13947.以 下 关 于 常 用 I/O 设 备 的 表 达 中，错 误 的 选 项 是（7）。A.鼠 标 器 与 主 机 的 接 口 主 要 有 PS/2 和 USB 两 种 B.光 学 区 分 率 是 扫 描 仪 的 重 要 性 能 指 标，目 前 一 般 办 公 用 扫 描 仪 的 区 分 率 可 达 1000dpi以 上 C.数 码 相 机 的 成 像 芯 片 均 为 C C D类 型，且 绝 大 多 数 相 机 的 存 储 卡 是 通 用 的、可 互 换 的 D.宽 屏 L C D显 示 器 是 目 前 最 常 见 的 P C 机 显 示 器，其 显 示 屏 的 宽 度

7、 与 高 度 之 比 为 16：9或 16：108.以 下 关 于 P C机 外 存 储 器 的 表 达 中，错 误 的 选 项 是（8）。A.P C机 硬 盘 接 口 主 要 有 PATA（并 行 ATA）和 SATA（串 行 ATA）两 种，PATA的 传 输 速 率 更 高 些B.目 前 U 盘 不 仅 能 便 利 地 保 存 数 据，还 可 以 模 拟 光 驱 和 硬 盘 启 动 操 作 系 统 C.固 态 硬 盘 是 基 于 半 导 体 存 储 器 芯 片 的 一 种 外 存 储 设 备，一 般 用 在 便 携 式 计 算 机 中 D.光 盘 可 分 为 C D光 盘、DV D光 盘

8、 和 蓝 光 光 盘 9.以 下 关 于 软 件 的 表 达 中，错 误 的 选 项 是（9）。A.软 件 是 用 于 特 定 用 途 的 一 整 套 程 序、数 据 及 相 关 的 文 档 B.共 享 软 件 是 没 有 版 权 的 软 件，允 许 用 户 对 其 进 展 修 改 并 散 发 C.目 前，Adobe Reader.360 杀 毒 软 件 是 有 版 权 的 免 费 软 件 D.操 作 系 统、程 序 设 计 语 言 处 理 系 统、数 据 库 治 理 系 统 均 属 于 系 统 软 件 10.以 下 关 于 W indow s操 作 系 统 多 任 务 处 理 的 表 达 中

9、，正 确 的 选 项 是（10）。A.假 设 用 户 只 启 动 一 个 应 用 程 序 工 作（如 使 用 W ord写 作），那 么 该 程 序 就 可 以 自 始 至 终 地 独 占 CPUB,仅 当 计 算 机 中 有 多 个 处 理 器 或 处 理 器 为 多 内 核 处 理 器 时，操 作 系 统 才 能 同 时 执 行 多 个 任 务 处 理 C.无 论 是 系 统 程 序 还 是 应 用 程 序，全 部 运 行 程 序（进 程）获 得 CPU使 用 权 的 优 先 级 一 样 D.在 多 任 务 处 理 时，后 台 任 务 与 前 台 任 务 都 能 得 到 C P U的 准

10、时 响 应 II.以 下 关 于 程 序 设 计 语 言 及 其 处 理 系 统 的 表 达 中，错 误 的 选 项 是（11）.A.机 器 语 言 就 是 计 算 机 的 指 令 系 统，机 器 语 言 程 序 一 般 为 二 进 制 代 码 形 式 B.汇 编 程 序 是 指 用 汇 编 语 言 编 写 的 源 程 序，不 同 计 算 机 的 汇 编 程 序 通 常 是 一 样 的 C.Microsoft Office软 件（如 Word、Excel等）中 包 含 V B A程 序 设 计 语 言，V B A是 V B的 子 集 D.高 级 语 言 的 语 言 处 理 系 统 的 工 作

11、方 式 通 常 分 为 两 种，即“解 释”方 式 和“编 译”方 式 1 2.以 下 关 于 移 动 通 信 的 表 达 中，错 误 的 选 项 是（12）。A.第 1代 个 人 移 动 通 信 承 受 的 是 模 拟 传 输 技 术，从 第 2 代 开 头 均 承 受 了 数 字 传 输 技 术 B.目 前 广 泛 使 用 的 G SM和 CD M A都 是 第 2 代 移 动 通 信 C.我 国 的 3 G 通 信 目 前 有 三 种 技 术 标 准，这 三 种 标 准 的 网 络 不 能 互 通，但 终 端 设 备 相 互 兼 容 D.目 前 第 4 代 移 动 通 信（4G）也 在

12、研 发 和 部 署 之 中，我 国 已 有 多 个 城 市 开 头 建 设 试 验 网 1 3.以 下 关 于 因 特 网 接 入 技 术 的 表 达 中，错 误 的 选 项 是（13）。A.承 受 拨 号 接 入 时，需 要 使 用 M O D E M,其 主 流 产 品 的 速 率 为 56kbpsB.承 受 A D S L接 入 时，数 据 上 传 速 度 低 于 数 据 下 行 速 度，抱 负 状 态 下 数 据 下 行 速 度 可 达 8MbpsC.承 受 有 线 电 视 网 接 入 时。多 个 终 端 用 户 均 可 独 享 连 接 段 线 路 的 带 宽 D.目 前 我 国 很

13、多 城 市 承 受“光 纤 到 楼、以 太 网 入 户”的 做 法，用 户 可 享 受 数 兆 乃 至 百 兆 的 带 宽 14.Internet使 用 TCP/I P 协 议 实 现 了 全 球 范 围 的 计 算 机 网 络 的 互 连，连 接 在 Internet上 的 每 一 台 主 机 都 有 一 个 I P地 址。下 面 不 能 作 为 I P 地 址 的 是.（14）。A.201.109.39.68 B.120.34.0.18C.21.18.33.48 D.127.0.257.115.现 在 因 特 网 上 的 多 数 邮 件 系 统 使 用（15）协 议,它 允 许 邮 件 正

14、 文 具 有 丰 富 的 排 版 格 式，可 以 包 含 图 片、声 音 和 超 链 接，从 而 使 邮 件 的 表 达 力 气 更 强，内 容 更 丰 富。A.MIME B.SMTP C.POP3 D.HTML16.以 下 关 于 网 络 信 息 安 全 的 表 达 中，错 误 的 选 项 是（16）。A.信 息 在 网 络 传 输 过 程 中，会 受 到 窃 听、伪 造、篡 改 等 安 全 威 逼 B.最 简 洁 也 是 最 普 遍 的 身 份 鉴 别 方 法 是 使 用 口 令（密 码），但 其 安 全 性 不 高C.数 据 加 密 是 常 用 的 网 络 信 息 安 全 措 施，也 是

15、 数 字 签 名 等 安 全 措 施 的 根 底 D.入 侵 检 测 与 防 火 墙 一 样，都 是 被 动 保 护 系 统 免 受 攻 击 的 一 种 网 络 安 全 技 术 1 7.以 下 关 于 字 符 编 码 标 准 的 表 达 中，错 误 的 选 项 是(17)。A.ASCH标 准 是 美 国 制 定 的 标 准，也 是 目 前 使 用 最 为 广 泛 的 西 文 字 符 编 码 标 准 B.GB2312、G B K和 GB18030都 是 我 国 制 定 的 标 准，在 这 些 标 准 中 全 部 字 符 均 承 受 双 字 节 编 码 C.目 前 在 台 港 澳 等 地 区 广

16、泛 使 用 BIG5编 码 标 准，它 与 GB2312不 兼 容 D.U C S是 ISO制 定 的 标 准，相 应 的 工 业 标 准 称 为 Unicode18.人 们 说 话 时 所 产 生 的 语 音 信 号 必 需 数 字 化 才 能 由 计 算 机 存 储 和 处 理。假 设 语 音 信 号 数 字 化 时 取 样 频 率 为 8 k H z,量 化 精 度 为 8 位,数 据 压 缩 比 为 4,那 么 1 分 钟 数 字 语 音 的 数 据 量(压 缩 后)大 约 为(1 8)。A.960KB B.480KB C.120KB D.60KB19.目 前 数 字 有 线 电 视

17、和 卫 星 电 视 所 传 输 的 数 字 视 频 承 受 的 压 缩 编 码 标 准 大 多 是 Q 9)。A.MPEG-1 B.MPEG-2 C.MPEG-4 D.MPEG-720.以 下 关 于 Microsoft O ffic e软 件(以 2023/2023版 本 为 例)功 能 的 表 达 中，错 误 的 选 项 是(20)。A.Word编 辑 处 理 的 文 档 可 以 保 存 为 多 种 文 件 格 式，例 如 DOC、RTF、TXT,HTM L等 B.一 个 E xcel文 件 不 行 以 引 用 另 一 个 E xcel文 件 中 的 数 据 C.PowerPoint编 辑

18、 处 理 的 文 档 可 以 另 存 为 网 页 或 图 像 文 件 D.A ccess是 一 个 数 据 库 治 理 系 统，Access数 据 库 中 可 以 包 含 表、查 询、窗 体 等 对 象 其 次 局 部 Visual B asic程 序 设 计 一、选 择 题(用 答 题 卡 答 题，答 案 依 次 填 在 21 3 0 答 题 号 内)21.可 以 设 置 为 V B程 序 运 行 启 动 对 象 的 是 21。工 程 文 件 任 意 一 个 窗 体 窗 体 模 块 中 的 Main过 程 标 准 模 块 中 的 Main过 程 A.B.C.D.22.假 设 要 引 用 列

19、表 框 L i s t l中 最 终 一 个 数 据 项 的 内 容，应 使 用 22。A.Listl.List(Listl.ListCount)B.Listl.List(Listl.ListCount-1)C.Listl.Listindex D.Listl.Text23.以 下 关 于 变 量 的 说 法 中，错 误 的 选 项 是 0 _ oA.在 不 同 窗 体 中 用 Public语 句 定 义 的 变 量 可 以 同 名 B.在 过 程 中 用 D im 语 句 声 明 的 变 量 都 是 局 部 变 量，过 程 运 行 完 毕 后 他 们 将 不 再 存 在 C.静 态 变 量 在

20、 过 程 运 行 完 毕 时 其 值 仍 保 存，以 供 再 次 运 行 该 过 程 时 使 用，因 此 它 不 是 局 部 变 量 D.在 窗 体 通 用 声 明 局 部 声 明 的 模 块 级 变 量，可 以 在 本 窗 体 内 的 全 部 过 程 中 使 用 24.对 应 数 学 表 达 式 57(30)+J y+ex-log 的 V B表 达 式 是 24。1 10A.Sin(30*3.14159/l80)+Abs(xA2+Sqr(y)+Exp(x)-Log(n)/Log(l0)B.Sin(30)+Abs(xA2+Sqr(y)+eAx-Log(n)/Log(l0)C.Sin(30*3.

21、14159/180)+Abs(xA2+Sqr(y)+Exp(x)-Log(x)-Log(n)D.Sin(30)+Abs(xA2+Sqr(y)+eAx-Log(n)25.以 下 关 于 I f 分 支 构 造 语 句 的 说 法 中，正 确 的 选 项 是 义 _。A.有 I f确 定 有 与 之 配 对 的 EkeB.有 I f确 定 有 与 之 配 对 的 ElselfC.有 I f确 定 有 与 之 配 对 的 End IfD.有 End I f确 定 有 与 之 配 对 的 If26.设 有 字 符 串 变 量 s,其 值 为“abed，可 将 s 的 值 替 换 为“aabed 的 语

22、 句 是 26_:A.Left(s,1)=aa”B.Mid(s,l,2)=aa”C.s=aa&Mid(s,Instr(s,t4at4)D s二 aa&Right(s,Len(s)-Instr(s,ua4 4)27.以 下 表 达 式 中，不 能 将 一 个 4 位 整 数 N 的 百 位 数 字 提 取 出 来 的 是 27。A.N100 Mod 10 B.Mid(CStr(N),2,l)C.(N Mod 1000)100 D.N10 Mod 10028.以 下 有 关 转 换 函 数 的 说 法 中，正 确 的 选 项 是 2 _。A.I n t和 C In t函 数 的 区 分 仅 在 于

23、 结 果 的 数 据 类 型 不 同 B.I n i和 F ix函 数 将 非 整 数 数 据 转 换 成 整 数，转 换 后 的 结 果 类 型 是 LongC.CInt 函 数 的 功 能 是 将 其 他 类 型 的 数 据 转 换 成 Integer 类 型 D.在 处 理 负 数 时，In t和 F ix函 数 的 结 果 是 一 样 的 29.以 下 有 关 数 组 的 说 法 中，错 误 的 选 项 是 0 _。A.用 ReDim语 句 重 定 义 动 态 数 组 时，其 下 标 的 上 下 界 可 以 使 用 赋 了 值 的 变 量 B.定 义 数 组 时，数 组 维 界 值 可

24、 以 不 是 整 数 C.定 义 数 组 时，数 组 每 一 维 的 上 界 值 必 需 大 于 下 界 值 D.定 义 数 组 时，数 组 维 界 值 可 以 是 负 数 30.以 下 关 于 自 定 义 函 数 的 说 法 中，错 误 的 选 项 是 辿 _。A.在 自 定 义 函 数 过 程 中 可 以 屡 次 给 函 数 名 赋 值 B.假 设 在 函 数 体 内 没 有 给 函 数 名 赋 值，则 该 函 数 无 返 回 值 C.函 数 定 义 时 假 设 没 有 说 明 函 数 名 的 类 型，则 该 函 数 的 返 回 值 为 变 体 类 型 D.假 设 用 C all语 句 调

25、 用 函 数，则 将 丢 弃 函 数 的 返 回 值 二、填 空 题(请 将 答 案 填 写 在 答 题 纸 的 相 应 答 题 号 内，每 个 答 案 只 占 一 行)1.执 行 下 面 程 序，单 击 窗 体 后，窗 体 上 显 示 的 第 一 行 内 容 是 1，第 三 行 内 容 是 2,最 终 一 行 内 容 是 3。Option ExplicitPrivate Sub Form_ClickDim x As Integer,y As Integer,sum As IntegerFor x=1 To 3For y=I To 2sum=sum+yIf sum2 Then Exit For

26、Next yPrint sum;xNextXPrint x;yEnd Sub2.执 行 下 面 程 序，单 击 C om m andl按 钮，则 窗 体 上 显 示 的 a(1.3)的 值 是 4,a(2,l)的 仅 是-5,a(2.2)的 值 是 6。Option ExplicitOption Base 1Private Sub Commandl_ClickDim a(3,3)As Integer,j As Integer,i As IntegerFor i=1 To 3For j=1 To 3a(i,j)=i*10+jNext jNext iCall JH(a)End SubPrivate

27、 Sub JH(x As Integer)Dim i As Integer,j As Integer,t As IntegerFor i=1 To 2For j=1 To 4-it=x(i,j)x(i,j)=x(4-i,4-j)x(4-i,4-j)=tNext jPrintNext iPrintEnd Sub3.执 行 下 面 的 程 序，单 击 Com m andl后 按 钮，在 T e x tl中 输 入“12323152”，则 在 窗 体 上 显 示 的 第 一 行 内 容 是 7,其 次 行 内 容 是 8,最 终 一 行 内 容 是 一 9。Option ExplicitOption

28、 Base 1Private Sub Commandl_ClickDim s As String,i As Integer,a As Integers=Textl.TextFor i=1 To LeiKs)ReDim Preserve a(i)a(i)=val(Mid(s,1,1)Next iCall Sub 1(a)End SubPrivate Sub Subl(a As Integer)Dim I As Integer,As Integer,k As Integeri=2Do Until i=UBound(a)k=i-lDo Until a(i-l)a(i)i=i+lLoopFor j=k

29、 To i-1Print a(j);Next jPrinti=i+lLoopEnd Sub4.执 行 下 面 的 程 序，单 击 Command1按 钮，则 在 窗 体 上 显 示 的 第 一 行 内 容 是-1(),最 终 一 行 是 1 1,共 显 示 了 12 行。Option ExplicitPrivate Sub Command 1 _ClickDim i As IntegerFor i=l To 6 Step 2Call Subl(i)Next iEnd SubPrivate Sub Subl(a As Integer)Static b As Integerb=b+lIf(a+b)

30、Mod 4=0 ThenPrint a;bElseCall Subl(a+1)End IfEnd Sub5.执 行 以 下 程 序，单 击 Command1按 钮，则 在 窗 体 上 显 示 的 第 一 行 内 容 是 一 13,第 二 行 显 示 的 是 14,最 终 一 行 是 一 15。Option ExplicitPrivate Sub Command l_ClickDim i As IntegerFor i=4 To 7Print Gray_Code(i)Next iEnd SubPrivate Function Gray_Code(ByVai x As Integer)As Str

31、ingDim i As Integer,d2b As StringDod2b=x Mod 2&d2bx=x2Loop Until x=0d2b=Right(000&d2b,4)For i=4 To 2 Step-1If Mid(d2b,i,l)=Mid(d2b,i-l,l)ThenMid(d2b,i,l)=0”ElseMid(d2b,i,l)=TEnd IfNext iGray_Code=d2bEnd Function6.本 程 序 用 于 验 证 西 西 弗 斯 串 数 学 黑 洞 123。验 证 过 程 是：对 于 任 意 一 个 位 数 不 限 的 自 然 数，依 次 统 计 出 这 个

32、 数 中 偶 数 数 字（数 字 0 被 看 作 偶 数 字）的 个 数，奇 数 字 的 个 数，总 位 数，将 偶 数 字 的 个 数 值、奇 数 字 的 个 数 值、总 位 数 值 拼 接 成 一 个 的 数：假 设 这 个 的 数 不 是 1 2 3,则 再 对 这 个 数 重 复 以 上 的“统 计 个 数、拼 数”操 作、如 此 经 过 假 设 干 次 操 作，必 能 得 到 数 123。例 如,假 设 初 始 数 是 3 5 9 6 2,第 一 次 统 计 个 数，偶 数 字 个 数 是 2,奇 数 字 个 数 是 3,总 位 数 是 5,拼 成 的 数 是 2 3 5,不 是 1

33、23；再 对 2 3 5统 计 个 数，其 中 偶 数 字 个 数 是 1,奇 数 字 个 数 是 2,拼 成 的 数 恰 是 123。请 完 善 程 序。Option ExplicitPrivate Sub Command 1 _ClickDim m As String,s As String,t AsStringm=Text 1.TextDot=Test(m)s=s&“&t16Loop Untilt=4t123u Text2.Text=Text 1.Text&sEnd SubPrivate Function T e s t(1 7)As StringDim i As Integer,x A

34、s Integer,y As IntegerFor i=1 To Len(s)If 18 Thenx=x+lElsey=y+iEnd IfNext iTest=x&y&Len(s)End Function7.下 面 程 序 的 功 能 是 检 查 表 达 式 中 的 括 号 是 否 匹 配。请 完 善 程 序。Option ExplicitPrivate Sub Command l_Click IfKHPP(Textl.Text)ThenText2.Text=表 达 式 正 确“ElseText2.Text=括 号 不 匹 配 判 断 表 达 式 中 括 号 是 否 匹 配 口 叵 区 End

35、 SubPrivate Function KHPP(s As String)AsBooleanDim i As Integer,p As String*1,LAs Integer,R As IntegerFor i=l To Len(s)19Select case pCaseL=L+1CaseIfLR Then 必 需 先 有 左 括 号，才 有 右 括 号 2()Else21End IfEnd SelectNext iIf 22 Then KHPP=TrueEnd Function8.本 程 序 的 功 能 是：找 出 满 足 以 下 条 件 的 n(2W nW 4)位 正 整 数。该 数

36、的 n 倍 乘 积 也 是 n位 数，且 这 两 个 n 位 数 合 起 来 看，是 由 1 9 之 间 的 不 同 数 字 组 成。例 如：四 位 数 1 3 6 8由 4位 不 同 数 字 组 成，其 4 倍 乘 积 5 4 7 2由 其 他 不 同 数 字 组 成，且 两 数 不 包 含 数 字 O o请 完 善 程 序。Option ExplicitOption Base 1Private Sub Command 1 _ClickDim n As Integer,i As Integer,j As LongFor i=12 To 2498n-23_j=l#*i*nIf Len(CStr

37、(j)=n and rep(I&j)ThenList 1.Additem i&n&“=&jEnd IfNext iEnd SubPrivate Function rep(st As String)As BooleanDim a As Integer,i As Integer,k As Integer,x As LonglfInstr(st,u0 4)0 Then 24x=Val(st)Doi=i+lReDim Preserve a(i)a(i)=x Mod 10 x=x10Loop Until x=0For i=1 To Ubound(a)-1For k=i+l To UBound(a)II

38、25 Then Exit FunctionNext kNext irep=TrueEnd Function9.下 面 程 序 的 功 能 是 比 较 三 个 不 同 进 制 数 的 大 小。请 完 善 程 序。(说 明：函 数 co n v用 于 把 8进 制 数 或 1 6进 制 数 转 换 为 1 0进 制 数，函 数 chan用 于 将 8 或 1 6进 制 数 的 数 字 转 换 为 1 0进 制 整 数)(注:“A”的 ASCII码 值 为 65)Option ExplicitPrivate Sub Command l_ClickDim a As String,b As String

39、,c As IntegerDim aq As Integer,bh As Integera=conv(a,8)bh=_ 26_If aqbh ThenIf 27 ThenLabel5.Caption=“a,b,c“Elself 叫 A c ThenLabel5.Caption=a,c,b”ElseLabel5.Caption=c,a,b”End IfElseIf bhc ThenLabel5.Caption=“c.b.aElseIf 28_ ThenLabel5.Caption=b,c,a”ElseLabel5.Caption=b,a,c”End IfEnd IfEnd SubPrivate Function conv(st As String,n As Integer)As IntegerDim i As Integer,k As Integer,p As IntegerFor i=Len(st)To 1 Step-1p=chan(Mid(st,i,l)conv=conv+p*nAk29Next iEnd FunctionPrivate Function chan(p As String)As IntegerIf p=A And pv=F Thenchan=_ _Elsechan=Val(p)End IfEnd Function