2010年3月计算机等级考试四级网络工程师笔试

Transcription

1 计 算 机 二 级 VB 经 典 预 测 题

2 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的 请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 (1) 下 列 叙 述 中 正 确 的 是 ( ) A) 循 环 队 列 是 队 列 的 一 种 链 式 存 储 结 构 B) 循 环 队 列 是 队 列 的 一 种 顺 序 存 储 结 构 C) 循 环 队 列 是 非 线 性 结 构 D) 循 环 队 列 是 一 种 逻 辑 结 构 解 析 队 列 的 存 储 表 示 有 两 种 : 一 种 是 基 于 数 组 的 存 储 表 示, 另 一 种 是 基 于 链 表 的 存 储 表 示 队 列 的 基 于 数 组 的 存 储 表 示 亦 称 为 顺 序 队 列, 它 是 利 用 一 个 一 维 数 组 作 为 队 列 元 素 的 存 储 结 构 为 了 充 分 地 利 用 数 组 的 存 储 空 间, 把 数 组 的 前 端 和 后 端 连 接 起 来, 形 成 一 个 环 形 的 表, 称 为 循 环 队 列 因 此 循 环 队 列 是 队 列 的 一 种 顺 序 存 储 结 构 队 列 不 管 采 用 链 式 存 储 结 构 还 是 顺 序 存 储 结 构, 它 都 是 线 性 结 构 循 环 队 列 作 为 队 列 的 特 殊 情 况, 它 也 是 线 性 结 构 循 环 队 列 是 在 队 列 的 基 础 上, 将 队 列 的 头 和 尾 接 到 一 起 形 成 一 个 环 状, 它 给 出 了 数 据 的 逻 辑 结 构 在 计 算 机 内 部 的 存 储 形 式, 因 此 是 一 种 存 储 结 构 答 案 :B (2) 下 列 叙 述 中 正 确 的 是 A) 栈 是 一 种 先 进 先 出 的 线 性 表 B) 队 列 是 一 种 后 进 先 出 的 线 性 表 C) 栈 与 队 列 都 是 非 线 性 结 构 D) 以 上 三 种 说 法 都 不 对 解 析 栈 是 一 种 后 进 先 出 (Last In First Out) 或 先 进 后 出 (First In Last Out) 的 线 性 表, 它 的 一 端 封 闭 ( 称 为 栈 底 ), 在 另 一 端 进 行 插 入 和 删 除 操 作, 允 许 插 入 和 删 除 的 一 端 称 为 栈 顶 队 列 (queue) 是 指 允 许 在 一 端 进 行 插 入 而 在 另 一 端 进 行 删 除 的 线 性 表 允 许 插 入 的 一 端 称 为 队 尾, 通 常 用 一 个 称 为 尾 指 针 (rear) 的 指 针 指 向 队 尾 元 素, 即 尾 指 针 总 是 指 向 最 后 被 插 入 的 元 素 ; 允 许 删 除 的 一 端 称 为 排 头 ( 也 称 为 队 头 ), 通 常 也 用 一 个 排 头 指 针 (front) 指 向 排 头 元 素 的 前 一 个 位 置 显 然, 在 队 列 这 种 数 据 结 构 中, 最 先 插 入 的 元 素 将 最 先 能 够 被 删 除, 最 后 插 入 的 元 素 最 后 才 能 被 删 除 因 此, 队 列 又 称 为 先 进 先 出 (First In First Out,FIFO) 或 后 进 后 出 (Last In Last Out,LILO) 的 线 性 表, 它 体 现 了 先 来 先 服 务 的 原 则 栈 与 队 列 都 是 线 性 结 构 答 案 :D (3) 一 棵 二 叉 树 共 有 25 个 结 点, 其 中 5 个 是 叶 子 结 点, 则 度 为 1 的 结 点 数 为 A)16 B)10 C)6 D)4 解 析 设 二 叉 树 结 点 数 为 n, 度 为 2 的 结 点 数 为 n2, 度 为 1 的 结 点 数 为 n1, 度 为 0( 即 叶 子 结 点 ) 的 结 点 数 为 n0 则 有 n=n2+n1+n0 另 外, 在 二 叉 树 中, 度 为 0 的 结 点 数 是 度 为 2 的 结 点 数 加 1, 因 此 有 n0=n2+1 此 题 中,n=25,n0=5, 则 n2=n0-1=5-1=4, 因 此 n1=n-n2-n0=25-4-5=16 答 案 :A (4) 在 下 列 模 式 中, 能 够 给 出 数 据 库 物 理 存 储 结 构 与 物 理 存 取 方 法 的 是 A) 外 模 式 B) 内 模 式 C) 概 念 模 式 D) 逻 辑 模 式 答 案 :B

3 (5) 在 满 足 实 体 完 整 性 约 束 的 条 件 下 A) 一 个 关 系 中 应 该 有 一 个 或 多 个 候 选 关 键 字 B) 一 个 关 系 中 只 能 有 一 个 候 选 关 键 字 C) 一 个 关 系 中 必 须 有 多 个 候 选 关 键 字 D) 一 个 关 系 中 可 以 没 有 候 选 关 键 字 答 案 :A (6) 有 三 个 关 系 R S 和 T 如 下 : R S T A B C A B C A B C a 1 2 a 1 2 b 2 1 b 2 1 d 2 1 c 3 1 c 3 1 则 由 关 系 R 和 S 得 到 关 系 T 的 操 作 是 A) 自 然 连 接 B) 并 C) 交 D) 差 (7) 软 件 生 命 周 期 中 的 活 动 不 包 括 A) 市 场 调 研 B) 需 求 分 析 C) 软 件 测 试 D) 软 件 维 护 解 析 通 常, 将 软 件 产 品 从 提 出 实 现 使 用 维 护 到 停 止 使 用 甚 至 退 役 的 过 程 称 为 软 件 生 命 周 期 任 何 一 个 软 件 产 品 或 软 件 系 统 都 要 经 历 软 件 定 义 软 件 开 发 软 件 维 护 直 至 被 淘 汰 这 样 一 个 全 过 程 因 此, 软 件 生 命 周 期 可 分 为 定 义 阶 段 开 发 阶 段 和 维 护 阶 段 定 义 阶 段 包 括 可 行 性 研 究 和 需 求 分 析 ; 开 发 阶 段 包 括 概 要 设 计 详 细 设 计 实 现 和 测 试 ; 维 护 阶 段 包 括 使 用 维 护 和 退 役 因 此 软 件 生 命 周 期 般 包 括 可 行 性 研 究 和 需 求 分 析 设 计 实 现 测 试 交 付 使 用 以 及 维 护 等 活 动 答 案 :A (8) 下 面 不 属 于 需 求 分 析 阶 段 任 务 的 是 A) 确 定 软 件 系 统 的 功 能 需 求 B) 确 定 软 件 系 统 的 性 能 需 求 C) 需 求 规 格 说 明 书 评 审 D) 制 定 软 件 集 成 测 试 计 划 解 析 需 求 分 析 阶 段 的 任 务 是 确 定 待 开 发 软 件 的 功 能 性 能 数 据 界 面 等 要 求, 从 而 确 定 系 统 的 逻 辑 模 型 需 求 分 析 阶 段 的 主 要 工 作 包 括 :1 需 求 获 取 : 确 定 对 目 标 系 统 的 各 方 面 需 求 ;2 需 求 分 析 : 对 获 取 的 需 求 进 行 分 析 和 综 合, 最 终 给 出 系 统 的 解 决 方 案 和 目 标 系 统 的 逻 辑 模 型 ;3 编 写 需 求 规 格 说 明 书 : 为 用 户 分 析 人 员 和 设 计 人 员 之 间 进 行 交 流 提 供 方 便 4 需 求 评 审 : 对 需 求 分 析 阶 段 的 工 作 进 行 复 审, 验 证 需 求 文 档 的 一 致 性 可 靠 性 完 善 性 和 有 效 性 软 件 测 试 属 于 软 件 生 命 周 期 中 的 软 件 开 发 阶 段, 不 属 于 需 求 分 析 阶 段 软 件 测 试 过 程 一 般 按 4 个 步 骤 进 行, 即 单 元 测 试 集 成 测 试 验 收 测 试 和 系 统 测 试 答 案 :D (9) 在 黑 盒 测 试 方 法 中, 设 计 测 试 用 例 的 主 要 根 据 是 A) 程 序 内 部 逻 辑 B) 程 序 外 部 功 能 C) 程 序 数 据 结 构 D) 程 序 流 程 图 解 析 黑 盒 测 试 也 称 为 功 能 测 试 或 数 据 驱 动 测 试 黑 盒 测 试 是 对 软 件 已 试 验 的 功 能 是 否 满 足 需 求 进 行 测 试 和 验 证, 它 主 要 根 据 需 求 规 格 说 明 所 规 定 的 功 能 来 设 计 测 试 用 例, 检 查 程 序 的 功 能 是 否 符

4 合 它 的 功 能 说 明, 它 不 考 虑 程 序 的 内 部 结 构 和 处 理 过 程 答 案 :B (10) 在 软 件 设 计 中 不 使 用 的 工 具 是 A) 系 统 结 构 图 B)PAD 图 C) 数 据 流 图 (DFD 图 ) D) 程 序 流 程 图 解 析 软 件 设 计 一 般 分 为 两 步 完 成, 分 别 是 概 要 设 计 和 详 细 设 计 系 统 结 构 图 是 概 要 设 计 阶 段 使 用 的 工 具, 而 详 细 设 计 ( 过 程 设 计 ) 常 见 的 工 具 有 : (1) 图 形 工 具 : 程 序 流 程 图 N-S 图 ( 盒 图 ) PAD(Problem Analysis Diagram, 问 题 分 析 图 ) (2) 表 格 工 具 : 判 定 表 (3) 语 言 工 具 :PDL( 过 程 设 计 语 言 ) 数 据 流 图 ( Data Flow Diagram,DFD) 是 需 求 分 析 阶 段 结 构 化 分 析 的 常 用 工 具 需 求 分 析 阶 段 其 他 常 用 的 结 构 化 分 析 工 具 还 有 数 据 字 典 (Data Dictionary,DD) 结 构 化 语 言 判 定 表 和 判 定 树 等 答 案 :C (11) 以 下 合 法 的 VB 变 量 名 是 A)case B)name10 C)t-name D)x*y 答 案 :B 解 析 变 量 命 名 规 则 :(1) 字 母 数 字 下 划 线 (2) 不 能 使 用 保 留 字 (3) 不 能 以 数 字 开 头 本 题 中,case 是 保 留 字,t-name 中 是 中 划 线, 不 是 下 划 线 x*y 中 的 * 不 是 字 母 也 不 是 数 字 也 不 是 下 划 线 (12) 设 x 是 小 于 10 的 非 负 数 对 此 叙 述, 以 下 正 确 的 VB 表 达 式 是 A)0 x<10 B)0<=x<10 C)x 0 And x<10 D)x>=0 Or x<=10 答 案 :C 解 析 x 是 小 于 10 的 非 负 数 即 x 大 于 等 于 0 并 且 小 于 10 A 选 项 和 B 选 项 是 数 学 的 描 述 方 式, 不 是 VB 的 描 述 方 式 x 大 于 等 于 0 并 且 小 于 10 中 的 并 且 要 使 用 And 而 不 是 Or( 或 者 ) (13 以 下 关 于 窗 体 的 叙 述 中, 错 误 的 是 A) 窗 体 的 Name 属 性 用 于 标 识 一 个 窗 体 B) 运 行 程 序 时, 改 变 窗 体 大 小, 能 够 触 发 窗 体 的 Resize 事 件 C) 窗 体 的 Enabled 属 性 为 False 时, 不 能 响 应 单 击 窗 体 的 事 件 D) 程 序 运 行 期 间, 可 以 改 变 Name 属 性 值 答 案 :D 解 析 Name 属 性 只 能 在 设 计 阶 段 通 过 属 性 窗 口 设 置, 属 于 只 读 属 性, 不 能 在 程 序 运 行 时 修 改 其 值 (14) 下 面 定 义 窗 体 级 变 量 a 的 语 句 中 错 误 的 是 A)Dim a% B)Private a% C)Private a As Integer D)Static a%

5 答 案 :D 解 析 Static 只 能 用 在 过 程 ( 窗 体 模 块 的 过 程 或 标 准 模 块 的 过 程 ) 内 部 声 明 静 态 变 量, 不 能 用 在 窗 体 模 块 或 标 准 模 块 的 通 用 段 (15) 表 达 式 Int(Rnd(0)*50) 所 产 生 的 随 机 数 范 围 是 A)(0,50) B)(1,50) C)(0,49) D)(1,49) 答 案 :C 解 析 因 为 Rnd 产 生 的 随 机 数 范 围 是 0~ ,Int 函 数 返 回 不 大 于 其 参 数 值 的 一 个 整 数, 例 如 Int(8.6) 返 回 8 而 不 是 9 Int(-8.6) 返 回 -9 而 不 是 -8 (16) 设 x=5, 执 行 语 句 Print x = x + 10, 窗 体 上 显 示 的 是 A)15 B)5 C)True D)False 答 案 :D 解 析 Print 使 用 方 式 为 :Print 输 出 列 表 在 语 句 Print x = x + 10 中,x = x + 10 是 一 个 表 达 式 而 不 是 一 条 语 句 作 为 表 达 式,x = x + 10 的 值 是 False, 因 为 在 该 表 达 式 中,= 作 为 关 系 运 算 符 使 用, 而 不 是 作 为 赋 值 运 算 符 使 用 此 处,= 左 边 的 x 是 5,= 右 边 的 值 是 15,= 两 边 的 值 不 同, 所 以 是 False 只 有 当 x = x + 10 作 为 语 句 时, 才 先 计 算 = 后 面 的 值, 然 后 把 计 算 的 值 作 为 = 左 边 的 变 量 的 值 (17) 设 有 如 下 数 组 声 明 语 句 : Dim arr(-2 To 2, 0 To 3) As Integer 该 数 组 所 包 含 的 数 组 元 素 个 数 是 A)20 B)16 C)15 D)12 答 案 :A 解 析 -2 To 2 指 的 是 ( 共 5),0 To 3 指 的 是 ( 共 4), 因 此 元 素 个 数 是 5 4=20 (18) 现 有 由 多 个 单 选 按 钮 构 成 的 控 件 数 组, 用 于 区 别 该 控 件 数 组 中 各 控 件 的 属 性 是 A)Name B)Index C)Caption D)Value 答 案 :B (19) 设 有 分 段 函 数 : 以 下 表 示 上 述 分 段 函 数 的 语 句 序 列 中 错 误 的 是 A) Select Case x B)If x < 0 Then Case Is < 0 y = 5 y = 5 ElseIf x <= 5 Then Case Is <= 5, Is > 0 y = 2 * x y = 2 * x Else Case Else y = x * x + 1

6 y = x * x + 1 End If End Select C)y = IIf(x < 0, 5, IIf(x <= 5, 2 * x, x * x + 1)) D)If x < 0 Then y = 5 If x <= 5 And x >= 0 Then y = 2 * x If x > 5 Then y = x * x + 1 答 案 :A 解 析 在 条 件 Case Is < 0 的 情 况 下,Case Is <= 5, Is > 0 是 错 误 的 在 条 件 Case Is < 0 的 情 况 下,Case Is <= 5, Is > 0 只 需 表 示 成 Case Is <= 5 即 可 (20) 设 程 序 中 有 如 下 语 句 : x = InputBox(" 输 入 ", " 数 据 ", 100) Print x 运 行 程 序, 执 行 上 述 语 句, 输 入 5 并 单 击 输 入 对 话 框 上 的 取 消 按 钮, 则 窗 体 上 输 出 A)0 B)5 C)100 D) 空 白 答 案 :D 解 析 InputBox 函 数 的 功 能 是 在 输 入 对 话 框 中 显 示 提 示 ( 此 处 为 输 入 ), 等 待 用 户 输 入 文 本 或 单 击 按 钮, 并 返 回 文 本 框 内 容 如 果 用 户 单 击 确 定 或 按 下 ENTER, 则 InputBox 函 数 返 回 文 本 框 中 的 内 容 如 果 用 户 单 击 取 消 按 钮, 则 函 数 返 回 一 个 零 长 度 字 符 串 ("") 本 题 要 注 意 的 是 InputBox 函 数 返 回 的 是 String 类 型 的 数 据, 由 于 返 回 零 长 度 字 符 串 (""), 所 以 在 窗 体 上 输 出 空 白 而 不 是 0 (21) 现 有 如 下 一 段 程 序 : Option Base 1 Private Sub Command1_Click() Dim a a = Array(3, 5, 7, 9) x = 1 For i = 4 To 1 Step -1 s = s + a(i) * x x = x * 10 Next Print s 执 行 程 序, 单 击 Command1 命 令 按 钮, 执 行 上 述 事 件 过 程, 输 出 结 果 是 A)9753 B)3579 C)35 D)79

7 答 案 :B 解 析 因 为 有 Option Base 1 语 句, 因 此 a(1)=3, a(2)=5, a(3)=7, (4)=9 i x a(i) s = s + a(i) * x s = * 1= s = * 10= s = * 100= s = * 1000=3579 (22) 设 有 一 个 命 令 按 钮 Command1 的 事 件 过 程 以 及 一 个 函 数 过 程, 程 序 如 下 : Option Base 1 Private Sub Command1_Click() Static x As Integer x = f(x + 5) Cls Print x Private Function f(x As Integer) As Integer f = x + x End Function 连 续 单 击 命 令 按 钮 3 次, 第 3 次 单 击 命 令 按 钮 后, 窗 体 上 显 示 的 计 算 结 果 是 A)10 B)30 C)60 D)70 答 案 :D 解 析 Static 在 过 程 级 别 中 使 用, 用 于 声 明 变 量 并 分 配 存 储 空 间 在 整 个 代 码 运 行 期 间 都 能 保 留 使 用 Static 语 句 声 明 的 变 量 的 值 本 题 中,x 为 Static 类 型 的 变 量, 其 初 值 为 0 第 一 次 单 击 按 钮, x=f(5), 调 用 Function 过 程, 执 行 f=5+5,function 过 程 返 回 值 为 10, 所 以 x=10 第 二 次 单 击 按 钮 时,x=f(10+5), 调 用 Function 过 程, 执 行 f=15+15,function 过 程 返 回 值 为 30, 所 以 x=30 第 三 次 单 击 按 钮 时,x=f(30+5), 调 用 Function 过 程, 执 行 f=35+35,function 过 程 返 回 值 为 70, 所 以 x=70 窗 体 上 显 示 70 (23) 以 下 关 于 菜 单 设 计 的 叙 述 中 错 误 的 是 A) 各 菜 单 项 可 以 构 成 控 件 数 组 B) 每 个 菜 单 项 可 以 看 成 是 一 个 控 件 C) 设 计 菜 单 时, 菜 单 项 的 有 效 未 选, 即, 表 示 该 菜 单 项 不 显 示 D) 菜 单 项 只 响 应 单 击 事 件 答 案 :C 解 析 表 示 该 菜 单 项 不 显 示, 应 该 是, 而 不 是 (24) 以 下 关 于 多 窗 体 的 叙 述 中, 正 确 的 是 A) 任 何 时 刻, 只 有 一 个 当 前 窗 体 B) 向 一 个 工 程 添 加 多 个 窗 体, 存 盘 后 生 成 一 个 窗 体 文 件 C) 打 开 一 个 窗 体 时, 其 他 窗 体 自 动 关 闭 D) 只 有 第 一 个 建 立 的 窗 体 才 是 启 动 窗 体

8 答 案 :A 解 析 如 果 工 程 中 有 多 个 窗 体, 存 盘 时 每 个 窗 体 对 应 一 个 窗 体 文 件 所 以 B 错 误 打 开 一 个 窗 体, 其 他 窗 体 不 会 自 动 关 闭, 只 是 成 为 非 活 动 窗 体 所 以 C 错 误 VB 默 认 第 一 个 窗 体 是 启 动 窗 体, 但 可 以 通 过 工 程 属 性 设 置 其 他 窗 体 为 启 动 窗 体 所 以 D 错 误 (25) 窗 体 上 有 一 个 名 称 为 CommonDialog1 的 通 用 对 话 框, 一 个 名 称 为 Command1 的 命 令 按 钮, 并 有 如 下 事 件 过 程 : Private Sub Command1_Click() CommonDialog1.DefaultExt="doc" CommonDialog1.FileName="VB.txt" CommonDialog1.Filter = "All(*.*) *.* Word *.Doc " CommonDialog1.FilterIndex = 1 CommonDialog1.ShowSave 运 行 上 述 程 序, 如 下 叙 述 中 正 确 的 是 A) 打 开 的 对 话 框 中 文 件 保 存 类 型 框 中 显 示 All(*.*) B) 实 现 保 存 文 件 的 操 作, 文 件 名 是 VB.txt C)DefaultExt 属 性 FileName 属 性 所 指 明 的 文 件 类 型 不 一 致, 程 序 出 错 D) 对 话 框 的 Filter 属 性 没 有 指 出 txt 类 型, 程 序 运 行 出 错 答 案 :A 解 析 注 意, 通 用 对 话 框 的 FilterIndex 属 性 取 值 从 1 开 始, 不 是 从 0 开 始 所 以 对 于 语 句 CommonDialog1.Filter = "All(*.*) *.* Word *.Doc " 1 2 在 上 图 中,FilterIndex 属 性,All(*.*) 为 1,Word 为 2

9 (26) 设 程 序 中 有 如 下 数 组 定 义 和 过 程 调 用 语 句 : Dim a(10) As Integer... Call p(a) 如 下 过 程 定 义 中, 正 确 的 是 A)Private Sub p(a As Integer) B)Private Sub p(a( ) As Integer) C)Private Sub p(a(10) As Integer) D)Private Sub p(a(n) As Integer) 答 案 :B 解 析 定 义 过 程 时, 如 果 形 参 为 数 组, 无 需 指 明 数 组 的 长 度, 但 必 须 把 数 组 的 标 志 ( 就 是 一 对 圆 括 号 ) 写 出 所 以 C 和 D 均 错 误,B 正 确 A 选 项 因 为 在 定 义 过 程 时 形 参 不 是 数 组, 所 以 是 错 误 的 (27) 若 要 获 得 组 合 框 中 输 入 的 数 据, 可 使 用 的 属 性 是 A)ListIndex B)Caption C)Text D)List 答 案 :C 解 析 组 合 框 是 由 一 个 文 本 框 和 列 表 框 组 合 而 成, 要 获 得 组 合 框 中 输 入 的 数 据 ( 即 文 本 框 中 输 入 的 数 据 ), 只 需 使 用 组 合 框 的 Text 属 性 即 可 (28) 在 窗 体 上 画 两 个 名 称 分 别 为 Text1 Text2 的 文 本 框,Text1 的 属 性 为 DataBase, 如 图 所 示 现 有 如 下 事 件 过 程 : Private Sub Text1_Change() Text2.Text = Mid(Text1, 1, 5) 运 行 程 序, 在 文 本 框 Text1 中 原 有 字 符 之 前 输 入 a,text2 中 显 示 的 是 A)DataA B)DataB C)aData D)aBase 答 案 :C 解 析 在 文 本 框 Text1 中 原 有 字 符 之 前 输 入 a, 此 时 文 本 框 Text1 的 内 容 变 为 adatabase 对 于 文 本 框 的 Change 事 件 而 言, 只 要 文 本 框 的 内 容 发 生 改 变, 即 触 发 该 事 件 对 于 Mid(Text1, 1, 5) 而 言, 其 功 能 是 从 第 1 个 位 置 开 始, 截 取 5 个 字 符 Text1 的 值 是 字 符 串 adatabase, 第 1 个 位 置 是 字 符 a, 从 a 开 始 截 取 5 个, 所 以 结 果 是 adata (29) 有 如 下 程 序 : Option Base 1 Private Sub Command1_Click() Dim arr(10) arr = Array(10, 35, 28, 90, 54, 68, 72, 90) For Each a In arr If a > 50 Then Sum = Sum + a End If

10 Next a 运 行 上 述 程 序 时 出 现 错 误, 错 误 之 处 是 A) 数 组 定 义 语 句 不 对, 应 改 为 Dim arr B) 没 有 指 明 For 循 环 的 终 值 C) 应 在 For 语 句 之 前 增 加 Sum = 0 D)Next a 应 改 为 Next 答 案 :A 解 析 Array 函 数 的 功 能 是 为 一 维 数 组 初 始 化 在 使 用 该 函 数 时, 要 求 = 左 边 的 数 组 arr 是 下 面 的 三 种 形 式 之 一 : (1)arr 不 声 明 直 接 使 用, 即 arr 为 Variant 类 型 的 变 量 (2) 采 用 Dim arr 的 声 明 形 式 (3) 采 用 Dim arr() 的 声 明 形 式 (30) 要 求 产 生 10 个 随 机 整 数, 存 放 在 数 组 arr 中 从 键 盘 输 入 要 删 除 的 数 组 元 素 的 下 标, 将 该 元 素 中 的 数 据 删 除, 后 面 元 素 中 的 数 据 依 次 前 移, 并 显 示 删 除 后 剩 余 的 数 据 现 有 如 下 程 序 : Option Base 1 Private Sub Command1_Click() Dim arr(10) As Integer For i = 1 To 10 ' 循 环 1 arr(i) = Int(Rnd * 100) Print arr(i); Next Print X = InputBox(" 输 入 1-10 的 一 个 整 数 :") For i = X + 1 To 10 ' 循 环 2 arr(i - 1) = arr(i) Next For i = 1 To 10 ' 循 环 3 Print arr(i); Next 程 序 运 行 后 发 现 显 示 的 结 果 不 正 确 应 该 进 行 的 修 改 是 A) 产 生 随 机 数 时 不 使 用 Int 函 数 B) 循 环 2 的 初 值 应 为 i = x C) 数 组 定 义 改 为 Dim a(11) As Integer D) 循 环 3 的 循 环 终 值 应 改 为 9 答 案 :D 解 析 删 除 一 个 元 素 后, 数 组 中 只 有 9 个 元 素 由 于 有 Option Base 1, 数 组 下 标 的 下 界 从 1 开 始, 所 以 最 后 一 个 元 素 的 下 标 是 9, 而 不 是 10 (31) 使 用 驱 动 器 列 表 框 Drive1 目 录 列 表 框 Dir1 文 件 列 表 框 File1 时, 需 要 设 置 控 件 的 同 步, 以 下 能 够 正 确 设 置 两 个 控 件 同 步 的 命 令 是 A)Dir1.Path = Drive1.Path B)File1.Path = Dir1.Path C)File1.Path = Drive1.Path D)Drive1.Drive = Dir1.Path 答 案 :B 解 析 在 程 序 运 行 时, 驱 动 器 列 表 框 (DriveListBox) 的 Drive 属 性 用 来 设 置 或 返 回 选 择 的 驱

11 动 器 ( 缺 省 值 是 当 前 驱 动 器 ), 目 录 列 表 框 (DirListBox) 的 Path 属 性 用 来 设 置 或 返 回 所 选 择 的 目 录 ( 缺 省 值 是 当 前 目 录 ), 文 件 列 表 框 (FileListBox) 的 Path 属 性 用 来 设 置 或 返 回 其 当 前 的 目 录 ( 缺 省 值 是 当 前 路 径 ), 首 先 A 和 C 可 以 排 除, 因 为 驱 动 器 列 表 框 没 有 Path 属 性, 所 以 Drive1.Path 的 使 用 是 错 误 的 驱 动 器 列 表 框 的 Drive 属 性, 用 来 设 置 或 返 回 所 选 择 的 驱 动 器 名 Drive 属 性 只 能 用 程 序 代 码 设 置, 不 能 通 过 属 性 窗 口 设 置 其 格 式 为 : 驱 动 器 列 表 框 名 称.Drive [ = 驱 动 器 名 ] 这 里 的 驱 动 器 名 是 指 定 的 驱 动 器, 如 果 省 略, 则 Drive 属 性 是 当 前 驱 动 器 如 果 所 选 择 的 驱 动 器 在 当 前 系 统 中 不 存 在, 则 产 生 错 误 每 次 重 新 设 置 驱 动 器 列 表 框 的 Drive 属 性 时, 都 将 引 发 Change 事 件 驱 动 器 列 表 框 与 目 录 列 表 框 有 着 密 切 联 系 在 一 般 情 况 下, 改 变 驱 动 器 列 表 框 中 的 驱 动 器 名 后, 目 录 列 表 框 中 的 目 录 应 当 随 之 变 为 该 驱 动 器 上 的 目 录, 也 就 是 使 驱 动 器 列 表 框 和 目 录 列 表 框 产 生 同 步 (Synchronize) 效 果 这 可 以 通 过 一 个 简 单 的 语 句 来 实 现 当 改 变 驱 动 器 列 表 框 的 Drive 属 性 时, 将 产 生 Change 事 件 当 Drive 属 性 改 变 时,Drive_Change 事 件 过 程 就 发 生 反 应 因 此, 只 要 把 Drive1.Drive 的 属 性 值 赋 给 Dir1.Path, 就 可 产 生 同 步 效 果 即 : Private Sub Drive1_Change() Dir1.Path = Drive1.Drive 这 样, 每 当 改 变 驱 动 器 列 表 框 的 Drive 属 性 时, 将 产 生 Change 事 件, 目 录 列 表 框 中 的 目 录 变 为 该 驱 动 器 的 目 录 综 合 上 面 的 分 析, 选 项 D 是 错 误 的 在 实 际 应 用 中, 驱 动 器 列 表 框 目 录 列 表 框 和 文 件 列 表 框 往 往 需 要 同 步 操 作, 这 可 以 通 过 Path 属 性 的 改 变 引 发 Change 事 件 来 实 现 例 如 : Private Sub Dir1_Change() File1.Path = Dir1.Path 该 事 件 过 程 使 窗 体 上 的 目 录 列 表 框 Dir1 和 文 件 列 表 框 File1 产 生 同 步 因 为 目 录 列 表 框 Path 属 性 的 改 变 将 产 生 Change 事 件, 所 以 在 Dir1_Change 事 件 过 程 中, 把 Dir1.Path 赋 给 File1.Path, 就 可 以 产 生 同 步 因 此 选 项 B 是 正 确 的 (32) 以 下 关 于 弹 出 式 菜 单 的 叙 述 中, 错 误 的 是 A) 一 个 窗 体 只 能 有 一 个 弹 出 式 菜 单 B) 弹 出 式 菜 单 在 菜 单 编 辑 器 中 建 立 C) 弹 出 式 菜 单 的 菜 单 名 ( 主 菜 单 项 ) 的 可 见 属 性 通 常 设 置 为 False D) 弹 出 式 菜 单 通 过 窗 体 的 PopupMenu 方 法 显 示 答 案 :A 解 析 要 使 用 弹 出 式 菜 单, 首 先 必 须 通 过 菜 单 编 辑 器 建 立 菜 单, 该 菜 单 必 须 包 含 主 菜 单 项 和 子 菜 单 项, 而 且 主 菜 单 的 可 见 属 性 必 须 设 置 为 False, 即 主 菜 单 必 须 在 程 序 运 行 时 不 可 见, 然 后 通 过 PopupMenu 方 法 进 行 显 示 可 以 建 立 多 个 弹 出 式 菜 单 综 合 上 面 的 分 析,A 是 错 误 的 (33) 有 如 下 程 序 : Private Type stu X As String

12 Y As Integer End Type Private Sub Command1_Click() Dim a As stu a.x = "ABCD" a.y = Print a 程 序 运 行 时 出 现 错 误 错 误 的 原 因 是 A)Type 定 义 语 句 没 有 放 在 标 准 模 块 中 B) 变 量 声 明 语 句 有 错 C) 赋 值 语 句 不 对 D) 输 出 语 句 Print 不 对 答 案 :D 解 析 对 于 Print 方 法, 其 使 用 格 式 如 下 : 对 象 名.Print [ 表 达 式 列 表 ] 其 中, 表 达 式 列 表 要 求 是 字 符 串 表 达 式 或 数 值 表 达 式 对 于 自 定 义 数 据 类 型 的 变 量 a, 不 能 直 接 打 印 该 变 量, 必 须 指 出 是 要 打 印 该 变 量 的 哪 个 成 员, 即 形 如 a.x 或 a.y 的 方 式 (34) 在 窗 体 上 画 两 个 名 称 分 别 为 Text1 Text2 的 文 本 框, 一 个 名 称 为 Label1 的 标 签, 窗 体 外 观 如 图 a 所 示 要 求 当 改 变 任 一 个 文 本 框 的 内 容, 就 会 将 该 文 本 框 的 内 容 显 示 在 标 签 中, 如 图 b 所 示 实 现 上 述 功 能 的 程 序 如 下 : 图 a 图 b Private Sub Text1_Change() Call ShowText(Text1) Private Sub Text2_Change() Call ShowText(Text2) Private Sub ShowText(T As TextBox) Label1.Caption = " 文 本 框 中 的 内 容 是 :" & T.Text 关 于 上 述 程 序, 以 下 叙 述 中 错 误 的 是 A)ShowText 过 程 的 参 数 类 型 可 以 是 Control B)ShowText 过 程 的 参 数 类 型 可 以 是 Variant C) 两 个 过 程 调 用 语 句 有 错, 应 分 别 改 为 Call ShowText(Text1.Text) Call ShowText(Text2.Text) D)ShowText 过 程 中 的 T 是 控 件 变 量 答 案 :C 解 析 此 题 可 以 使 用 排 除 法 Text1 等 价 于 Text1.Text,Text2 等 价 于 Text2.Text, 所 以 选 项 C

13 是 错 误 的 (35) 设 有 打 开 文 件 的 语 句 如 下 : Open "text.dat" For Random As #1 要 求 把 变 量 a 中 的 数 据 保 存 到 该 文 件 中, 应 该 使 用 的 语 句 是 A)Input #1, a B)Write #1, a C)Put #1,, a D)Get #1,, a 答 案 :C 解 析 对 于 随 机 文 件 的 写 操 作, 使 用 Put 语 句, 其 使 用 格 式 如 下 : Put [#] 文 件 号, [ 记 录 号 ], 变 量 名 其 中 记 录 号 可 以 省 略, 但 记 录 号 后 面 的 那 个 逗 号 不 能 省 略 A 选 项 : 用 于 使 用 For Input 方 式 打 开 的 顺 序 文 件, 读 取 文 件 操 作 D 选 项 : 用 于 读 取 操 作, 而 不 是 保 存 B 选 项 : 用 于 使 用 For Outputt 方 式 或 Append 方 式 打 开 的 顺 序 文 件 的 写 操 作 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 l 至 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 (1) 在 长 度 为 n 的 顺 序 存 储 的 线 性 表 中 删 除 一 个 元 素, 最 坏 情 况 下 需 要 移 动 表 中 的 元 素 个 数 为 1 解 析 线 性 表 采 用 顺 序 存 储 结 构 时, 如 果 删 除 运 行 在 线 性 表 的 末 尾 进 行, 即 删 除 第 n 个 元 素, 则 不 需 要 移 动 表 中 的 元 素 ( 这 是 最 好 的 情 况 ); 如 果 要 删 除 线 性 表 中 的 第 1 个 元 素, 则 从 第 2 个 元 素 开 始 直 到 最 后 一 个 元 素 ( 第 n 个 元 素 ), 一 共 n-1 个 元 素, 必 须 依 次 向 前 移 动 一 个 位 置 ( 这 是 最 坏 的 情 况 ); 一 般 情 况 下, 要 删 除 第 i(1 i n) 个 元 素 时, 则 要 从 第 i+1 个 元 素 开 始, 直 到 第 n 个 元 素 之 间 共 n-i 个 元 素 依 次 向 前 移 动 一 个 位 置 ; 在 平 均 情 况 下, 要 在 线 性 表 中 删 除 一 个 元 素, 需 要 移 动 表 中 一 半 的 元 素 答 案 :n-1 (2) 设 循 环 队 列 的 存 储 空 间 为 Q(1:30), 初 始 状 态 为 front=rear=30, 现 经 过 一 系 列 入 队 与 退 队 运 算 后,front=16,rear=15, 则 循 环 队 列 中 有 2 个 元 素 解 析 当 front<rear 时, 循 环 队 列 中 元 素 的 个 数 为 rear-front, 当 front>rear 时, 循 环 队 列 中 元 素 的 个 数 为 N(N 为 循 环 队 列 容 量 )- front + rear 此 题 中 front=16 > rear=15, 因 此 该 循 环 队 列 中 共 有 =29 个 元 素 答 案 :29 (3) 数 据 库 管 理 系 统 提 供 的 数 据 语 言 中, 负 责 数 据 的 增 删 改 和 查 询 的 是 3 解 析 数 据 库 管 理 系 统 一 般 提 供 下 列 几 种 数 据 语 言 (data language), 分 别 是 : 1 数 据 定 义 语 言 (Data Definition Language,DDL): 负 责 数 据 的 模 式 定 义 和 数 据 的 物 理 存 取 构 建 2 数 据 操 纵 语 言 (Data Manipulation Language,DML): 负 责 数 据 的 操 纵, 包 括 查 询 及 增 加 删 除 修 改 等 操 作 3 数 据 控 制 语 言 (Data Control Language,DCL): 负 责 数 据 完 整 性 安 全 性 的 定 义 与 检 查 以 及 并 发 控 制 故 障 恢 复 等 功 能, 包 括 系 统 初 始 程 序 文 件 读 / 写 存 取 路 径 管 理 程 序 缓 冲 区 管 理 程 序 安 全 性 控 制 程 序 完 整 性 检 查 程 序 并 发 控 制 程 序 事 务 管 理 程 序 运 行 日 志 管 理 程 序 以 及 数 据 库 恢

14 复 程 序 等 答 案 : 数 据 操 纵 语 言 或 DML (4) 在 将 E-R 图 转 换 到 关 系 模 式 时, 实 体 和 联 系 都 可 以 表 示 成 4 答 案 : 关 系 (5) 常 见 的 软 件 工 程 方 法 有 结 构 化 方 法 和 面 向 对 象 方 法, 类 继 承 以 及 多 态 性 等 概 念 属 于 5 答 案 : 面 向 对 象 方 法 (6) 下 面 的 事 件 过 程 执 行 时, 可 以 把 Text1 文 本 框 中 的 内 容 写 到 文 件 file1.txt 中 去 请 填 空 Private Sub Command1_Click() Open "file1.txt" For 6 As #1 Print 7, Text1.Text Close #1 解 析 Open 语 句 格 式 为 :Open 文 件 名 For 打 开 方 式 As 文 件 号 其 中, 打 开 方 式 可 以 是 Input Output Random 等 Input 方 式 是 把 顺 序 文 件 中 的 内 容 读 到 程 序 中,Output 方 式 是 把 程 序 中 的 数 据 写 到 顺 序 文 件 中 Random 方 式 用 于 打 开 随 机 文 件 Print 语 句 格 式 为 :Print 文 件 号, 变 量 列 表 其 功 能 是 把 变 量 列 表 中 的 所 有 变 量 的 值 写 到 由 文 件 号 指 定 的 文 件 中 本 题 中, 要 求 把 文 本 框 的 内 容 (Text1.Text) 写 到 文 件 file1.txt 中, 因 此 打 开 方 式 应 该 为 Output, 所 以 6 应 该 填 入 Output 由 于 已 经 由 Open 语 句 将 顺 序 文 件 file1.txt 和 文 件 号 ( 此 处 为 1) 进 行 了 关 联, 所 以 7 应 该 填 入 #1 答 案 : 6 Output 7 #1 考 试 误 区 注 意 : 语 句 Print #1, Text1.Text 中 Print 与 数 字 1 之 间 的 # 不 能 省 略, 不 能 写 成 Print 1, Text1.Text, 否 则, 就 变 成 了 在 窗 体 上 输 出 数 字 1 和 文 本 框 的 内 容 但 是,Open 语 句 中 As 子 句 后 面 的 # 则 可 以 省 略 (7) 设 窗 体 上 有 一 个 名 称 为 Label1 的 标 签, 程 序 运 行 时, 单 击 鼠 标 左 键, 再 移 动 鼠 标, 鼠 标 的 位 置 坐 标 会 实 时 地 显 示 在 Label1 标 签 中 ; 单 击 鼠 标 右 键 则 停 止 实 时 显 示, 并 将 标 签 中 内 容 清 除 下 面 的 程 序 可 实 现 这 一 功 能, 请 填 空 Dim down As Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case 8 Case 1 down = True

15 Case 2 End Select down = False Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If 9 Then Else End If 10 = "X=" & X & " Y=" & Y Label1.Caption = "" 解 析 首 先 注 意 到 窗 体 的 通 用 段 定 义 了 一 个 模 块 级 的 变 量 down, 类 型 为 Boolean, 因 此 该 变 量 可 以 被 窗 体 模 块 中 的 所 有 过 程 使 用 答 案 : 8 Button 9 down = True 或 down 10 Label1.Caption 或 Label1 (8) 窗 体 上 有 List1 List2 两 个 列 表 框, 程 序 运 行 时, 在 两 个 列 表 框 中 分 别 选 中 1 个 项 目, 如 图 a 所 示, 单 击 名 称 为 Command1 的 交 换 按 钮, 则 把 选 中 的 项 目 互 换, 互 换 后 的 位 置 不 限, 如 图 b 所 示 下 面 的 程 序 可 实 现 这 一 功 能, 请 填 空 图 a 交 换 前 图 b 交 换 后 Private Sub Command1_Click() If List1.Text = "" Or List2.Text = "" Then MsgBox " 请 选 择 交 换 的 物 品!" Else List1.AddItem List2.Text List2.RemoveItem List1.RemoveItem List1.ListIndex

16 End If 答 案 : 11 List2.ListIndex 12 List2.AddItem List1.Text 解 析 列 表 框 的 RemoveItem 方 法 的 功 能 是 删 除 被 选 中 的 列 表 项, 该 方 法 后 面 的 参 数 是 一 个 整 数 值, 该 整 数 值 是 被 选 中 的 列 表 项 的 索 引 值 ( 取 值 0~ListCount-1), 被 选 中 的 列 表 框 的 索 引 值 用 ListIndex 代 表 列 表 框 的 AddItem 方 法 的 功 能 是 把 指 定 的 内 容 添 加 到 列 表 框 中, 该 方 法 的 格 式 如 下 : AddItem 要 添 加 的 内 容, [Index] 在 vb 中, 使 用 属 性 时, 总 是 要 指 明 该 属 性 是 哪 个 对 象 的 属 性, 所 以 11 要 填 List2.ListIndex 程 序 中,List1.AddItem List2.Text 的 功 能 是 把 列 表 框 List2 中 被 选 中 的 列 表 项 的 内 容 ( 用 List2.Text 代 表 ) 添 加 到 列 表 框 1 中, 然 后 删 除 列 表 框 2 中 被 选 中 的 这 项 ( 选 中 的 这 项 的 索 引 值 用 ListIndex 代 表 ), 所 以 11 要 填 List2.ListIndex 12 要 填 入 的 是 List2.AddItem List1.Text, 其 功 能 是 把 列 表 框 1 中 选 中 的 列 表 框 ( 该 列 表 项 的 内 容 用 List1.Text 代 表 ) 先 添 加 到 列 表 框 2 中, 然 后 使 用 语 句 List1.RemoveItem List1.ListIndex 把 列 表 框 1 中 被 选 中 的 列 表 项 删 除 (9) 设 窗 体 上 有 Text1 文 本 框 和 Command1 命 令 按 钮, 并 有 以 下 程 序 : Private Sub Command1_Click() temp$ = "" For k = 1 To Len(Text1) Next k ch$ = Mid(Text1, k, 1) If Not found(temp, ch) Then End If temp = temp & 13 Text1 = 14 Private Function found(str As String, ch As String) As Boolean For k = 1 To Len(str) Next k If ch = Mid(str, k, 1) Then End If found = False found = 15 Exit Function

17 End Function 运 行 时, 在 文 本 框 中 输 入 若 干 英 文 字 母, 然 后 单 击 命 令 按 钮, 则 可 以 删 去 文 本 框 中 所 有 重 复 的 字 母 例 如, 若 文 本 框 中 原 有 字 符 串 为 abcddbbc, 则 单 击 命 令 按 钮 后, 文 本 框 中 字 符 串 为 abcd 其 中 函 数 found 的 功 能 是 判 断 字 符 串 str 中 是 否 有 字 符 ch, 若 有, 函 数 返 回 True, 否 则 返 回 False 请 填 空 答 案 : 13 ch 14 temp 15 True

18 参 考 答 案 一 选 择 题 ( 每 小 题 2 分, 共 70 分 ) (1)D (2)C (3)B (4)A (5)C (6)D (7)A (8)D (9)B (10)A (11)B (12)C (13)B (14)D (15)A (16)B (17)D (18)D (19)C (20)B (21)B (22)C (23)A (24)A (25)C (26)D (27)A (28)A (29)C (30)B (31)C (32)B (33)A (34)A (35)B 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 l 至 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 1 线 性 结 构 2 n 3 结 构 化 4 数 据 库 管 理 系 统 5 关 系 6 AutoSize 7 Result * x 8 m 9 t 10 m<40 或 m<= For Append As #1 14 "end"

19 15 ct, nt