精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com D. 以 上 三 个 都 是 (11) 在 窗 体 ( 名 称 为 Form1) 上 画 一 个 名 称 为 Text1 的 文 本 框 和 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写

Transcription

1 更 多 内 容 请 查 看 精 品 文 库 网 年 计 算 机 二 级 考 试 必 备 历 年 真 题 演 练 05 年 一 选 择 题 ((1)~(35) 每 小 题 2 分, 共 70 分 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的, 请 将 正 确 选 项 涂 写 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 (1) 数 据 的 存 储 结 构 是 指 ( ) A. 存 储 在 外 存 中 的 数 据 B. 数 据 所 占 的 存 储 空 间 量 C. 数 据 在 计 算 机 中 的 顺 序 存 储 方 式 D. 数 据 的 逻 辑 结 构 在 计 算 机 中 的 表 示 (2) 下 列 关 于 栈 的 描 述 中 错 误 的 是 ( ) A. 栈 是 先 进 后 出 的 线 性 表 B. 栈 只 能 顺 序 存 储 C. 栈 具 有 记 忆 作 用 D. 对 栈 的 插 入 与 删 除 操 作 中, 不 需 要 改 变 栈 底 指 针 (3) 对 于 长 度 为 n 的 线 性 表, 在 最 坏 情 况 下, 下 列 各 排 序 法 所 对 应 的 比 较 次 数 中 正 确 的 是 ( ) A. 冒 泡 排 序 为 n/2 B. 冒 泡 排 序 为 n C. 快 速 排 序 为 n D. 快 速 排 序 为 n(n-1)/2 (4) 对 长 度 为 n 的 线 性 表 进 行 顺 序 查 找, 在 最 坏 情 况 下 所 需 要 的 比 较 次 数 为 ( ) A.log2n B.n/2 C.n D.n+1 (5) 下 列 对 于 线 性 链 表 的 描 述 中 正 确 的 是 ( ) A. 存 储 空 间 不 一 定 是 连 续, 且 各 元 素 的 存 储 顺 序 是 任 意 的 B. 存 储 空 间 不 一 定 是 连 续, 且 前 件 元 素 一 定 存 储 在 后 件 元 素 的 前 面 C. 存 储 空 间 必 须 连 续, 且 前 件 元 素 一 定 存 储 在 后 件 元 素 的 前 面 D. 存 储 空 间 必 须 连 续, 且 各 元 素 的 存 储 顺 序 是 任 意 的 (6) 下 列 对 于 软 件 测 试 的 描 述 中 正 确 的 是 ( ) A. 软 件 测 试 的 目 的 是 证 明 程 序 是 否 正 确 B. 软 件 测 试 的 目 的 是 使 程 序 运 行 结 果 正 确 C. 软 件 测 试 的 目 的 是 尽 可 能 多 地 发 现 程 序 中 的 错 误 D. 软 件 测 试 的 目 的 是 使 程 序 符 合 结 构 化 原 则 (7) 为 了 使 模 块 尽 可 能 独 立, 要 求 ( ) A. 模 块 的 内 聚 程 度 要 尽 量 高, 且 各 模 块 间 的 耦 合 程 度 要 尽 量 强 B. 模 块 的 内 聚 程 度 要 尽 量 高, 且 各 模 块 间 的 耦 合 程 度 要 尽 量 弱 C. 模 块 的 内 聚 程 度 要 尽 量 低, 且 各 模 块 间 的 耦 合 程 度 要 尽 量 弱 D. 模 块 的 内 聚 程 度 要 尽 量 低, 且 各 模 块 间 的 耦 合 程 度 要 尽 量 强 (8) 下 列 描 述 中 正 确 的 是 ( ) A. 程 序 就 是 软 件 B. 软 件 开 发 不 受 计 算 机 系 统 的 限 制 C. 软 件 既 是 逻 辑 实 体, 又 是 物 理 实 体 D. 软 件 是 程 序 数 据 与 相 关 文 档 的 集 合 (9) 数 据 独 立 性 是 数 据 库 技 术 的 重 要 特 点 之 一 所 谓 数 据 独 立 性 是 指 ( ) A. 数 据 与 程 序 独 立 存 放 B. 不 同 的 数 据 被 存 放 在 不 同 的 文 件 中 C. 不 同 的 数 据 只 能 被 对 应 的 应 用 程 序 所 使 用 D. 以 上 三 种 说 法 都 不 对 (10) 用 树 形 结 构 表 示 实 体 之 间 联 系 的 模 型 是 ( ) A. 关 系 模 型 B. 网 状 模 型 C. 层 次 模 型 本 文 来 自 精 品 文 库 网

2 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com D. 以 上 三 个 都 是 (11) 在 窗 体 ( 名 称 为 Form1) 上 画 一 个 名 称 为 Text1 的 文 本 框 和 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 一 个 事 件 过 程 程 序 运 行 后, 如 果 在 文 本 框 中 输 入 一 个 字 符, 则 把 命 令 按 钮 的 标 题 设 置 为 计 算 机 等 级 考 试 以 下 能 实 现 上 述 操 作 的 事 件 过 程 是 ( ) A.Private Sub Text1_Change() Command1.Caption = " 计 算 机 等 级 考 试 " B.Private Sub Command1_ Click () Caption = " 计 算 机 等 级 考 试 " C.Private Sub Form1_ Click () Text1.Caption = " 计 算 机 等 级 考 试 " D.Private Sub Command1_ Click () Text1.Text = " 计 算 机 等 级 考 试 " (12) 设 a=5,b=4,c=3,d=2 下 列 表 达 式 的 值 是 ( ) 3 > 2 * b Or a = c And b <> c Or c > d A.1 B.True C.False D.2 (13) 设 a = "MicrosoftVisualBasic", 则 以 下 使 变 量 b 的 值 为 VisualBasic 的 语 句 是 ( ) A.b = Left(a, 10) B. 该 文 章 转 载 自 无 忧 考 网 : = Mid(a, 10) C.b = Right(a, 10) D.b = Mid(a, 11, 10) (14) 假 定 有 如 下 的 窗 体 事 件 过 程 : Private Sub Form_Click() a$ = "Microsoft Visual Basic" b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 程 序 运 行 后, 单 击 窗 体, 则 在 弹 出 的 信 息 框 的 标 题 栏 中 显 示 的 信 息 是 ( ) A.Microsoft Visual B.Microsoft C.Basic D.5 (15) 设 a = "a",b = "b",c = "c",d = "d", 执 行 语 句 x=iif((a D., A, B ) 后,x 的 值 为 ( ) A. a B. b

3 更 多 内 容 请 查 看 精 品 文 库 网 C. B D. A (16) 为 了 使 命 令 按 钮 ( 名 称 为 Command1) 右 移 200, 应 使 用 的 语 句 是 ( ) A.Command1.Move -200 B.Command1.Move 200 C.Command1.Left = Command1.Left D.Command1.Left = Command1.Left (17) 在 窗 体 上 画 一 个 文 本 框, 然 后 编 写 如 下 事 件 过 程 : Private Sub Form_Click() x = InputBox(" 请 输 入 一 个 整 数 ") Print x + Text1.Text 程 序 运 行 时, 在 文 本 框 中 输 入 456, 然 后 单 击 窗 体, 在 输 入 对 话 框 中 输 入 123, 单 击 确 定 按 钮 后, 在 窗 体 上 显 示 的 内 容 为 ( ) A.123 B.456 C.479 D (18) 在 窗 体 上 画 一 个 文 本 框 和 一 个 计 时 器 控 件, 名 称 分 别 为 Text1 和 Timer1, 在 属 性 窗 口 中 把 计 时 器 的 Interval 属 性 设 置 为 1000,Enabled 属 性 设 置 为 False 程 序 运 行 后, 如 果 单 击 命 令 按 钮, 则 每 隔 一 秒 钟 在 文 本 框 中 显 示 一 次 当 前 的 时 间 以 下 是 实 现 上 述 操 作 的 程 序 : Timer1.( ) Private Sub Timer1_Timer() Text1.Text = Time 在 下 划 线 处 应 填 入 的 内 容 是 ( ) A.Enabled = True B.Enabled = False C.Visible = True D.Visible = False (19) 假 定 在 图 片 框 Picture1 中 装 入 了 一 个 图 形, 为 了 清 除 该 图 形 ( 不 删 除 图 片 框 ), 应 采 用 的 正 确 方 法 是 ( ) A. 选 择 图 片 框, 然 后 按 Del 键 B. 执 行 语 句 Picture1.Picture = LoadPicture ("") C. 执 行 语 句 Picture1.Picture ="" D. 选 择 图 片 框, 在 属 性 窗 口 中 选 择 Picture 属 性 条, 然 后 按 回 车 键 (20) 在 窗 体 上 画 一 个 名 称 为 List1 的 列 表 框, 一 个 名 称 为 Label1 的 标 签, 列 表 框 中 显 示 若 干 个 项 目 当 单 击 列 表 框 中 的 某 个 项 目 时, 在 标 签 中 显 示 被 选 中 项 目 的 名 称 下 列 能 正 确 实 现 上 述 操 作 的 程 序 是 : A.Private Sub List1_Click() Label1.Caption = List1.ListIndex B.Private Sub List1_Click()

4 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com Label1.Name=List1.ListIndex C.Private Sub List1_Click() Label1.Name=List1.Text D.Private Sub List1_Click() Label1.Caption =List1.Text (21) 在 窗 体 上 画 一 个 命 令 按 钮, 其 名 称 为 Comma 该 文 章 转 载 自 无 忧 考 网 : 然 后 编 写 如 下 事 件 过 程 : Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i <= 4 Then x = x + 1 Else x = x + 2 Next i Print x 程 序 运 行 后, 单 击 命 令 按 钮, 其 输 出 结 果 为 ( ) A.9 B.6 12 D.15 (22) 在 窗 体 上 画 一 个 名 称 为 Command1 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 : c = ABCD For n= 1 To 4 Print ( ) Next 程 序 运 行 后, 单 击 命 令 按 钮, 要 求 在 窗 体 上 显 示 如 下 内 容 D CD BCD ABCD 则 在 ( ) 处 填 入 的 内 容 为 A. Left(c,n) B. Right(c,n) Mid(c,n,1)

5 更 多 内 容 请 查 看 精 品 文 库 网 D. Mid(c,n,n) (23) 执 行 以 下 程 序 段 Dim i As Integer, x As Integer x = 0 For i = 20 To 1 Step -2 x = x + i \ 5 Next Print x 后,x 的 值 为 ( ) A.16 B.17 C.18 D.19 (24) 在 Visual Basic 工 程 中, 可 以 作 为 启 动 对 象 的 程 序 是 ( ) A. 任 何 窗 体 或 标 准 模 块 B. 任 何 窗 体 或 过 程 C.Sub Main 过 程 或 其 他 任 何 模 块 D. Sub Main 过 程 或 任 何 窗 体 (25) 假 定 建 立 了 一 个 名 为 Command1 的 命 令 按 钮 数 组, 则 以 下 说 法 中 错 误 的 是 ( ) A. 数 组 中 每 个 命 令 按 钮 的 名 称 (Name 属 性 ) 均 为 Command1 B. 数 组 中 每 个 命 令 按 钮 的 标 题 (Caption 属 性 ) 都 一 样 C. 数 组 中 所 有 命 令 按 钮 可 以 使 用 同 一 个 事 件 过 程 D. 用 名 称 Command1( 下 标 ) 可 以 访 问 数 组 中 的 每 个 命 令 按 钮 (26) 把 窗 体 的 KeyPreview 属 性 设 置 为 True, 然 后 编 写 如 下 事 件 过 程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii) KeyAscii = Asc(UCase(ch)) Print Chr(KeyAscii + 2) 程 序 运 行 后, 按 键 盘 上 的 A 键, 则 在 窗 体 上 显 示 的 内 容 是 ( ) A.A B.B C.C D.D (27) 在 窗 体 上 画 一 个 命 令 按 钮 和 一 个 文 本 框, 名 称 分 别 为 Command1 和 Text1, 然 后 编 写 如 下 程 序 : a=inputbox( 请 输 入 日 期 (1~31) ) t= 旅 游 景 点 : _ & IIf ( a > 0 And a <= 10, 长 城, ) _ & IIf ( a >10 And a <= 20, 故 宫, ) _ & IIf ( a > 20 And a <= 31, 颐 和 园, ) Text1.Text = t

6 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com 程 序 运 行 后, 如 果 从 键 盘 上 输 入 16, 则 在 文 本 框 显 示 的 内 容 是 ( ) A. 旅 游 景 点 : 长 城 故 宫 B. 旅 游 景 点 : 长 城 颐 和 园 C. 旅 游 景 点 : 颐 和 园 D. 旅 游 景 点 : 故 宫 (28) 在 窗 体 上 画 一 个 名 称 为 Label1 的 标 签, 然 后 编 写 如 下 事 件 过 程 : Private Sub Form_Click() Dim arr(10, 10) As Integer D 该 文 章 转 载 自 无 忧 考 网 : i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i Label1.Caption = Str(arr(2, 2) + arr(3, 3)) 程 序 运 行 后, 单 击 窗 体, 在 标 签 中 显 示 的 内 容 是 ( ) A.12 B D.15 (29) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 通 用 过 程 和 命 令 按 钮 的 事 件 过 程 : Private Function fun(byval m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End Function Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s 程 序 运 行 后, 单 击 命 令 按 钮, 在 窗 体 上 显 示 的 是 ( ) A.6 B.7 C.8

7 更 多 内 容 请 查 看 精 品 文 库 网 D.9 (30) 阅 读 程 序 : Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) 程 序 运 行 后, 单 击 窗 体, 输 入 结 果 为 ( ) A.21 B.13 C.8 D.25 (31) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 程 序 : Option Base 1 Dim c As Integer, d As Integer d = 0 c = 6 x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c Next Print d 程 序 运 行 后, 如 果 单 击 命 令 按 钮, 则 在 窗 体 上 输 出 的 内 容 为 ( ) A. 10 B. 16 C.12 D. 20

8 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com (32) 设 有 如 下 程 序 : Dim c As Integer, d As Integer c = 4 d = InputBox(" 请 输 入 一 个 整 数 ") Do While d > 0 If d > c Then c = c + 1 d = InputBox(" 请 输 入 一 个 整 数 ") Loop Print c + d 程 序 运 行 后, 单 击 命 令 按 钮, 如 果 在 输 入 对 话 框 中 依 次 输 入 , 则 输 出 结 果 是 ( ) A.12 B D.9 (33) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮 和 一 个 名 称 为 Text1 的 文 本 框, 在 文 本 框 中 输 入 以 下 字 符 串 :Microsoft Visu 该 文 章 转 载 自 无 忧 考 网 : Basic Programming 然 后 编 写 如 下 事 件 过 程 : Open "d:\temp\outf.txt" For Output As #1 For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If c >= "A" And c <= "Z" Then Print #1, LCase( Next i Close 程 序 运 行 后, 单 击 命 令 按 钮, 文 件 outf.txt 中 的 内 容 是 ( ) A.MVBP B.mvbp C.M D.m V v B b P p (34) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 程 序 : Dim SW As Boolean

9 更 多 内 容 请 查 看 精 品 文 库 网 Function func(x As Integer) As Integer If X < 20 Then Y = X Else Y = 20 + X func = Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = False Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = True Dim intnum As Integer intnum = InputBox("") If SW Then Print func(intnum) 程 序 运 行 后, 单 击 命 令 按 钮, 将 显 示 一 个 输 入 对 话 框, 如 果 在 输 入 对 话 框 中 输 入 25, 则 程 序 的 执 行 结 果 为 ( ) A. 输 出 0 B. 输 出 25 输 出 45 D. 无 任 何 输 出 (35) 设 有 如 下 通 用 过 程 : Public Sub Fun(a() As Integer, x As Integer) For i = 1 To 5 x = x + a(i) Next 在 窗 体 上 画 一 个 名 称 为 Text1 的 文 本 框 和 一 个 名 称 为 Command1 的 命 令 按 钮 然 后 编 写 如 下 的 事 件 过 程 : Dim arr(5) As Integer, n As Integer For i = 1 To 5 arr(i) = i + i Next Fun arr, n Text1.Text = Str(n) 程 序 运 行 后, 单 击 命 令 按 钮, 则 在 文 本 框 中 显 示 的 内 容 是 ( ) A.30

10 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com B.25 C.20 D.15 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 1 ~ 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 (1) 某 二 叉 树 中 度 为 2 的 结 点 有 18 个, 则 该 二 叉 树 中 有 1 个 叶 子 结 点 (2) 在 面 向 对 象 方 法 中, 类 的 实 例 称 为 2 (3) 诊 断 和 改 正 程 序 中 错 误 的 工 作 通 常 称 为 3 (4) 在 关 系 数 据 库 中, 把 数 据 表 示 成 二 维 表, 每 一 个 二 维 表 称 为 4 (5) 问 题 处 理 方 案 的 正 确 而 完 整 的 描 述 称 为 5 (6) 以 下 语 句 输 出 结 果 是 6 Print Int( * ) / 100 (7) 在 窗 体 上 画 一 个 文 本 框 和 一 个 图 片 框, 然 后 编 写 如 下 两 个 事 件 过 程 : Private Sub Form_ 该 文 章 转 载 自 无 忧 考 网 : Text1.Text = "VB 程 序 设 计 " Private Sub Text1_Change() Picture1.Print "VB Programming" 程 序 运 行 后, 单 击 窗 体, 则 在 文 本 框 中 显 示 的 内 容 是 7, 而 在 图 片 框 中 显 示 的 内 容 是 8 (8) 阅 读 下 面 的 程 序 : Private Sub Form_Click() Dim Check As Boolean, Counter As Integer Check = True Counter = 5 Do Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do Loop Loop Until Check = False Print Counter 程 序 运 行 后, 单 击 窗 体, 输 出 结 果 为 9 (9) 设 有 如 下 程 序 : Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do

11 更 多 内 容 请 查 看 精 品 文 库 网 s = s + n n = n - 1 Loop While n > 0 Print s 以 上 程 序 的 功 能 是 10 程 序 运 行 后, 单 击 窗 体, 输 出 结 果 为 11 (10) 设 有 如 下 程 序 : Option Base 1 Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = 12 For i = 2 To 8 If arr1(i) < Min Then 13 Next Print " 最 小 值 是 :"; Min 以 上 程 序 的 功 能 是 : 用 Array 函 数 建 立 一 个 含 有 8 个 元 素 的 数 组, 然 后 查 找 并 输 出 该 数 组 中 各 元 素 的 最 小 值 请 填 空 (11) 在 名 称 为 Form1 的 窗 体 上 画 一 个 文 本 框, 其 名 称 为 Text1, 在 属 性 窗 口 中 把 该 文 本 框 的 MultiLine 属 性 设 置 为 True, 然 后 编 写 如 下 的 事 件 过 程 : Private Sub Form_Click() Open "d:\test\smtext1.txt" For Input As #1 Do While Not 14 Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$ Close #1 Open "d:\test\smtext2.txt" For Output As #1 Print #1, 15 Close #1 上 述 程 序 的 功 能 是, 把 磁 盘 文 件 smtext1.txt 的 内 容 读 到 内 存 并 在 文 本 框 中 显 示 出 来, 然 后 把 该 文 本 框 中 的 内 容 存 入 磁 盘 文 件 smtext2.txt 请 填 空 2005 年 4 月 全 国 计 算 机 等 级 考 试 二 级 VB 语 言 笔 试 答 案 参 考 答 案 : 选 择 题 : DBDCA CBDDC ABBCD CDABD

12 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com ABCDB CDBBA CDDDA 填 空 题 : 对 象 3 程 序 调 试 该 文 章 转 载 自 无 忧 考 网 : 5 算 法 VB 程 序 设 计 8 VB Programming 求 1-8 的 和 arr1(1) 13 min=arr1(i) 14 EOF(1) 15 text1.text( 或 whole$) [ 结 束 ] 4 关 系 该 文 章 转 载 自 无 忧 考 网 : 07 年 4 月 二 级 VB 语 言 笔 试 试 题 及 答 案 发 布 时 间 :11-04 页 数 :7 页 上 一 篇 :06 年 四 月 全 国 等 级 考 试 二 级 VB 语 言 考 前 密 卷 ( 一 ) 下 一 篇 :02 年 9 月 二 级 VB 语 言 笔 试 试 题 及 答 案 年 4 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 Visual Basic 语 言 程 序 设 计 一 选 择 题 ( 第 小 题 2 分, 共 70 分 ) 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的 请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分

13 更 多 内 容 请 查 看 精 品 文 库 网 (1) 下 列 叙 述 中 正 确 的 是 (B) A) 算 法 的 效 率 只 与 问 题 的 规 模 有 关, 而 与 数 据 的 存 储 结 构 无 关 B) 算 法 的 时 间 复 杂 度 是 指 执 行 算 法 所 需 要 的 计 算 工 作 量 C) 数 据 的 逻 辑 结 构 与 存 储 结 构 是 一 一 对 应 的 D) 算 法 的 时 间 复 杂 度 与 空 间 复 杂 度 一 定 相 关 (2) 在 结 构 化 程 序 设 计 中, 模 块 划 分 的 原 则 是 (D) A) 各 模 块 应 包 括 尽 量 多 的 功 能 B) 各 模 块 的 规 模 应 尽 量 大 C) 各 模 块 之 间 的 联 系 应 尽 量 紧 密 D) 模 块 内 具 有 高 内 聚 度 模 块 间 具 有 低 耦 合 度 (3) 下 列 叙 述 中 正 确 的 是 (A) A) 软 件 测 试 的 主 要 目 的 是 发 现 程 序 中 的 错 误 B) 软 件 测 试 的 主 要 目 的 是 确 定 程 序 中 错 误 的 位 置 C) 为 了 提 高 软 件 测 试 的 效 率, 最 好 由 程 序 编 制 者 自 己 来 完 成 软 件 的 测 试 工 作 D) 软 件 测 试 是 证 明 软 件 没 有 错 误 (4) 下 面 选 项 中 不 属 于 面 向 对 象 程 序 设 计 特 征 的 是 (C) A) 继 承 性 B) 多 态 性 C) 类 比 性 D) 封 装 性 (5) 下 列 对 队 列 的 叙 述 正 确 的 是 (D) A) 队 列 属 于 非 线 性 表 B) 队 列 按 先 进 后 出 原 则 组 织 数 据 C) 队 列 在 队 尾 删 除 数 据 D) 队 列 按 先 进 先 出 原 则 组 织 数 据 (6) 对 下 列 二 叉 树 (C) A B C D E F X Y 进 行 前 序 遍 历 的 结 果 为 A)DYBEAFCZX B)YDEBFZXCA C)ABDYECFXZ Z

14 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com D)ABCDEFXYZ (7) 某 二 叉 树 中 有 n 个 度 为 2 的 结 点, 则 该 二 叉 树 中 的 叶 子 结 点 数 为 (A) A)n+1 B)n-1 C)2n D)n/2 (8) 在 下 列 关 系 运 算 中, 不 改 变 关 系 表 中 的 属 性 个 数 但 能 减 少 元 组 个 数 的 是 (B) A) 并 B) 交 C) 投 影 D) 笛 卡 儿 乘 积 (9) 在 E R 图 中, 用 来 表 示 实 体 之 间 联 系 的 图 形 是 (C) A) 矩 形 B) 椭 圆 形 C) 菱 形 D) 平 行 四 边 形 (10) 下 列 叙 述 中 错 误 的 是 (A) A) 在 数 据 库 系 统 中, 数 据 的 物 理 结 构 必 须 与 逻 辑 结 构 一 致 B) 数 据 库 技 术 的 根 本 目 标 是 解 决 数 据 共 享 问 题 C) 数 据 库 技 术 是 指 己 有 数 据 管 理 系 统 的 基 础 上 建 立 数 据 库 D) 数 据 库 系 统 需 要 操 作 系 统 的 支 持 (11) 下 面 可 以 正 确 定 义 2 个 整 形 变 量 和 1 个 字 符 串 变 量 的 语 句 的 是 (D) A)Dim n,m AS Interger,s AS String B)Dim a%,b$,c AS String C)Dim a AS Integer,b,c AS String D)Dim x%,y AS Integer,z AS String (12) 下 列 表 述 中 不 能 判 断 x 是 否 为 偶 数 的 是 (D) A)x/2=Int(x/2) B)x Mod 2=0 C)Fix(x/2)=x/2 D)x\2=0 13) 设 在 名 称 为 Myform 的 窗 体 上 只 有 1 个 名 称 为 C1 的 命 令 按 钮, 下 面 叙 述 中 正 确 的 是 (B) A) 窗 体 的 Click 事 件 过 程 的 过 程 名 是 Myform_Click B) 命 令 按 钮 的 Click 事 件 过 程 名 是 C1_Click C) 命 令 按 钮 的 Click 事 件 过 程 的 过 程 名 是 Command1_Click

15 更 多 内 容 请 查 看 精 品 文 库 网 (14) 设 窗 体 上 有 1 个 滚 动 条, 要 求 单 击 滚 动 条 右 端 的 按 钮 一 次, 滚 动 条 移 动 一 定 的 刻 度 值, 决 定 此 刻 度 的 属 性 是 (C) A)Max B)Min C)SmallChange D)LargeChang (15)1 个 二 维 数 组 可 以 存 放 1 个 矩 形. 在 程 序 开 始 有 语 句 Option Base 0, 则 下 面 定 义 的 数 组 中 正 好 可 以 存 放 1 个 4*3 矩 阵 ( 即 只 有 12 个 元 素 ) 的 是 (B) A)Dim a(-2 To 0,2) AS Integer B)Dim a(3,2) AS Ingeger C)Dim a(4,3)as Ingeger D)Dim a(-1 To -4,-1 To -3)AS Ingeger (16) 若 设 置 了 文 本 框 的 属 性 PasswordChar= $, 则 运 行 程 序 时 向 文 本 框 中 输 入 8 个 任 意 字 符 后, 文 本 框 中 显 示 的 是 (A) A)8 个 $ B)1 个 $ C)8 个 * D) 无 任 何 内 容 (17) 设 在 窗 体 上 有 1 个 名 称 为 Combo1 的 组 合 框, 含 有 5 个 项 目, 要 删 除 最 后 一 项, 正 确 的 语 句 是 (B) A)Combo1.RemoveItem Combo1.Text B) Combo1.RemoveItem4 C) Combo1.RemoveItem Combo1.ListCount D) Combo1.RemoveItem5 (18) 工 程 中 有 2 个 窗 体, 名 称 分 别 为 Form1.Form2,Form1 为 启 动 窗 体, 该 窗 体 上 有 命 令 按 钮 Command1, 要 求 程 序 运 行 后 单 击 该 命 令 按 钮 时 显 示 Form2, 则 按 钮 的 Click 事 件 过 程 应 该 是 (A) A)Private Sub Command1_Click( ) B) Private Sub Command1_Click( ) Form2.Show Form2.Visible C) Private Sub Command1_Click( ) D)Private Sub Command1_Click( ) Load Form2 Form2.Load (19) 若 在 某 窗 体 模 块 中 有 如 下 事 件 过 程 (D) Private Sub Command1_Click(Index AS Integer) 则 以 下 叙 述 中 正 确 的 是 A) 此 事 件 过 程 与 不 带 参 数 的 事 件 过 程 没 有 区 别 B) 有 1 个 名 称 为 Command1 的 窗 体, 单 击 此 窗 体 则 执 行 此 事 件 过 程 C) 有 1 个 名 称 为 Command1 的 空 件 数 组, 数 组 中 有 多 个 不 同 类 型 控 件 D) 有 1 个 名 称 为 Command1 的 空 件 数 组, 数 组 中 有 多 个 相 同 类 型 控 件

16 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com (20) 以 下 循 环 语 句 中 在 任 何 情 况 下 都 至 少 执 行 一 次 循 环 体 的 是 (C) A)Do While < 条 件 > B)While < 条 件 > 循 环 体 循 环 体 Loop Wend C)Do D)Do Until < 条 件 > 循 环 体 循 环 体 Loop Until < 条 件 > Loop (21) 在 窗 体 上 有 1 个 名 为 Cd1 的 通 用 对 话 框, 为 了 在 运 行 程 序 时 打 开 保 存 文 件 对 话 框, 则 在 程 序 总 应 使 用 的 语 句 是 (A) A)Cd1.Action=2 B)Cd1.Action=1 C)Cd1.ShowSave=Ture D)Cd1.ShowSave=0 (22) 下 面 关 于 菜 单 的 叙 述 中 错 误 的 是 (B) A) 各 级 菜 单 中 的 所 有 菜 单 项 的 名 称 必 须 唯 一 B) 同 一 子 菜 单 中 的 菜 单 项 名 称 必 须 唯 一, 但 不 同 子 菜 单 中 的 菜 单 项 名 称 可 以 相 同 C) 弹 出 式 菜 单 也 用 菜 单 编 辑 器 编 辑 (23) 已 知 有 下 面 的 过 程 (D) Private Sub proc1(a As Integer,b As String,Optional x As Boolean) 正 确 调 用 此 过 程 的 语 句 是 A)Call procl(5) B)Call proc1 5, abc,false C)proc1(12, abc,true) D)proc1 5, abc (24) 在 窗 体 上 有 一 个 文 件 名 称 为 Text1 的 文 本 框 和 1 个 名 称 为 Command1 的 命 令 按 钮, 要 求 在 程 序 执 行 时, 每 单 击 命 令 按 钮 一 次, 文 本 框 向 右 移 动 一 定 距 离 下 面 能 够 正 确 实 现 上 述 功 能 的 程 序 是 (C) A) B) Text1.Left=100 T ext1.left= Text1.Left-100 C) D) Text1.Move.Text.Left+100 Text1.Move.Text.Left (25) 某 人 创 建 了 1 个 工 程, 其 中 的 窗 体 名 称 为 Form1; 之 后 又 添 加 了 1 个 名 为 Form2 的 窗 体, 并 希 望 程 序 执 行 时 先 显 示 Form2 窗 体, 那 么, 他 需 要 做 的 工 作 是 (A) A) 在 工 程 属 性 对 话 框 中 把 启 动 对 象 设 置 为 Form2 B) 在 Form1 的 Load 事 件 过 程 中 加 入 语 句 Load Form2

17 更 多 内 容 请 查 看 精 品 文 库 网 C) 在 Form2 的 Load 事 件 过 程 中 加 入 语 句 Form2.Show D) 在 Form2 的 TabIndex 属 性 设 置 为 1, 把 Form1 的 TabIndex 属 性 设 置 为 2 (26) 窗 体 上 有 1 个 名 称 为 Text1 的 文 本 框 和 1 个 名 称 为 Command1 的 命 令 按 钮 要 求 程 序 运 行 时, 单 击 命 令 按 钮, 就 可 以 把 文 本 框 中 的 内 容 写 到 文 件 out.txt 中, 每 次 写 入 的 内 容 附 加 到 文 件 原 有 内 容 之 后 下 面 能 够 实 现 上 述 功 能 的 程 序 是 (C) A) B) Open out.txt For Inpit As#1 Open out.txt For Outpit As#1 Print#1,Text1.Text Print#1,Text1.Text Close#1 Close#1 C) D) Open out.txt For Append As#1 Open out.txt For Random As#1 Print#1,Text1.Text Print#1,Text1.Text Close#1 Close#1 (27) 为 计 算 的 值, 某 人 编 程 如 下 k=1 s=0 While k<=99 k=k+2 : s=s+k Wend Print s 在 调 试 时 发 现 运 行 结 果 有 错 误, 需 要 修 改 下 列 错 误 原 因 和 修 改 方 案 中 正 确 的 是 (D) A)While Wend 循 环 语 句 错 误, 应 改 为 For k=1 To 99 Next k B) 循 环 条 件 错 误, 应 改 为 Whlie k<99 C) 循 环 前 的 赋 值 语 句 k=1 错 误, 应 改 为 k=0 D) 循 环 中 两 条 赋 值 语 句 的 顺 序 错 误, 应 改 为 s=s+k : (29) 在 窗 体 上 有 1 个 名 称 为 CommonDialog1 的 通 用 对 话 框 和 1 个 名 称 为 Command1 的 命 令 按 钮, 以 及 其 他 一 些 控 件 要 求 在 程 序 运 行 时, 单 击 Command1 按 钮, 则 显 示 打 开 文 件 对 话 框, 并 在 选 择 或 输 入 了 1 个 文 件 名 后, 就 可 以 打 开 该 文 件 以 下 是 Command1_Click 事 件 过 程 的 两 种 算 法 算 法 1: CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As#1 算 法 2: CommonDialog1.ShowOpen IfCommonDialog1.FileName<> Then Open CommonDialog1.FileName For Input As#1

18 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com 下 面 关 于 这 两 种 算 法 的 叙 述 中 正 确 的 是 (B) A) 显 示 打 开 文 件 对 话 框 后 若 未 选 择 或 输 入 任 何 文 件 名, 则 算 法 2 会 出 错, 算 法 1 不 会 B) 显 示 打 开 文 件 对 话 框 后 若 未 选 择 或 输 入 任 何 文 件 名, 则 算 法 1 会 出 错, 算 法 2 不 会 C) 两 种 算 法 的 执 行 结 果 完 全 一 样 D) 算 法 1 允 许 输 入 的 文 件 名 中 含 有 空 格, 而 算 法 2 不 允 许 (30) 窗 体 上 有 1 个 名 称 为 List 的 列 表 框, 其 中 已 经 输 入 了 若 干 个 项 目 ( 如 图 所 示 ): 还 有 2 个 文 本 框, 名 称 分 别 为 Text1 Text2, 1 个 名 称 为 Command1 的 命 令 按 钮, 并 有 以 下 程 序 Dim str As String, s As String, k As Integer s=text1 Str= For k=list1.listcount-1 to 0 Step-1 If InStr(List.List(k),s)>0 then str=str&list.list(k)& Next k If str= Then Text2= 没 有 匹 配 的 项 目 Else Text2=str 程 序 运 行 时, 在 Text1 中 输 入 京, 单 击 命 令 按 钮, 则 在 Text2 中 显 示 的 内 容 是 (C) A) 京 B) 北 京 南 京 C) 南 京 D) 没 有 匹 配 的 项 目 (31) 在 窗 体 上 画 1 一 个 名 称 为 Command1 的 命 令 按 钮, 并 编 写 以 下 程 序 Print fun( ABCDEFG ) Function fun(st As String) As String stlen=len(st) temp= For k fun=temp End Function 程 序 运 行 时, 单 击 命 令 按 钮, 则 窗 体 上 显 示 的 是 (B) A)ABCDEFG B)AGBFCE

19 更 多 内 容 请 查 看 精 品 文 库 网 C)GFEDCBA D)AGBFCED (32) 在 窗 体 上 先 后 画 2 个 图 片 框, 名 称 分 别 为 Picture1 和 banana,banana 中 添 加 了 香 蕉 图 片 ( 见 图 1), 且 将 banana.dragmode 属 性 设 置 为 1 要 求 程 序 运 行 时, 可 以 用 鼠 标 把 banana 拖 拽 到 Picture1 中 ( 见 图 2) 能 实 现 此 功 能 的 事 件 过 程 是 (C) A) Priate Sub Form_DragDrop(Source As Control,X As Single,Y As Single banana.move Picture1.Left+X,Picture1.Top+Y) B)Private Sub banana _DragDrop(Source As Control,X As Single,Y As Single ) Source.Move Picture1.Left+X.Picture1.Top+Y C) B)Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single ) Source.Move Picture1.Left+X.Picture1.Top+Y D) B)Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single ) banana.move banana.left+x, banana.top+y (33) 在 窗 体 上 画 1 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 Option Base 1 Pribate Sub Command1_Click() Dim a(5.5) As Integer For i=1 To 5 a(i,j)*5\10 Next j Next i S=0 For i=1 To 5 S=s+a(i,i) Next i Print s 程 序 运 行 后, 单 击 命 令 按 钮, 输 出 结 果 是 (A) A) 15 B)13 C)11 D)9 (34) 在 窗 体 上 从 左 到 右 有 Text1 Text2 两 个 文 本 框 ( 见 图 ), 要 求 程 序 运 行 时, 在 Text1 中 输 入 1 个 分 数 后 按 回 车 键, 则 判 断 分 数 的 合 法 性, 若 分 数 为 0~100 中 的 1 个 数, 周 围 光 标 移 到 Text2 中 ; 否 则 光 标 不 动, 并 弹 出 对 话 框 显 示 分 数 错, 下 面 程 序 中 正 确 的 是 (D) A)Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回 车 符 的 ACSII 码 是 13

20 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com a=val(text1) If a>=0 or a<=100 Then Text2.SetFocus Else Text1. SetFocus ; MsgBox( 分 数 错 ) B) Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回 车 符 的 ACSII 码 是 13 a=val(text1) If a>=0 And a<=100 Then Text1.SetFocus Else Text2. SetFocus ; MsgBox( 分 数 错 ) C) Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回 车 符 的 ACSII 码 是 13 a=val(text1) If a<0 And a>100 Then Text2.SetFocus Else Text1. SetFocus ; MsgBox( 分 数 错 ) D) Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回 车 符 的 ACSII 码 是 13 a=val(text1) If a>=0 And a<=100 Then Text2.SetFocus Else Text1. SetFocus ; MsgBox( 分 数 错 ) (35) 在 窗 体 上 画 2 个 命 令 按 钮, 名 称 分 别 为 Command1 command2, 并 编 写 如 下 程 序 Const n=5,m=4 Dim a(m,n) K=1

21 更 多 内 容 请 查 看 精 品 文 库 网 For i=1 To m For j=1 To n a(i,j)=k k=k+1 Next j Next i Private Sub Command2_Click() Summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then Summ=summ+a(i,j) Else If j=i Or j=n Then Summ=summ+a(i,j) Next j Next i Print summ 过 程 Command1_Click() 的 作 用 是 二 维 数 组 a 中 存 放 1 个 m 行 n 列 的 矩 阵 ; 过 程 Command2_Click() 的 作 用 是 (A) A) 计 算 矩 阵 外 围 一 圈 元 素 的 累 加 和 B) 计 算 矩 阵 除 外 一 圈 以 外 的 所 有 元 素 的 累 加 和 C) 计 算 矩 阵 第 1 列 和 最 后 一 列 元 素 的 累 加 和 D) 计 算 矩 阵 第 1 行 和 最 后 一 行 元 素 的 累 加 和 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 一 个 空 的 正 确 答 案 写 在 答 题 纸 上 [1]~[15] 序 号 的 横 线 上, 答 在 试 卷 上, 答 在 试 卷 上 不 得 分, 注 意 : 以 命 令 关 键 字 填 空 的 必 须 写 完 整 (1) 在 深 度 为 7 的 满 二 叉 树 中, 度 为 2 的 结 点 个 数 为 63 (2) 软 件 测 试 分 为 白 箱 ( 盒 ) 测 试 和 黑 箱 ( 盒 ) 测 试, 等 价 类 划 分 法 属 于 黑 箱 ( 或 黑 盒 ) 测 试 (3) 在 数 据 库 系 统 中, 实 现 各 种 数 据 管 理 功 能 的 核 心 软 件 称 为 数 据 库 管 理 系 统 (DBMS) (4) 软 件 生 命 周 期 可 分 为 多 个 阶 段, 一 般 分 为 定 义 阶 段 开 发 阶 段 和 维 护 阶 段 编 码 和 测 试 属 于 开 发 阶 段 (5) 在 结 构 化 分 析 使 用 的 数 据 流 图 (DFD) 中, 利 用 数 据 字 典 对 其 中 的 图 形 元 素 进 行 确 切 解 释 (6) n 最 大 的 n 请 填 空 Private Sub Command1 Click()

22 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com Dim s,m,n AS Integer m=val(inputbox( 请 输 入 一 个 大 于 100 的 整 数 )) n= 0 s=0 Do While s N=n+1 S=s+n*n Loop Print 满 足 不 等 式 的 最 大 n 是 n-1 (7) 下 面 程 序 的 功 能 是 把 文 件 file11.txt 中 重 复 字 符 去 掉 后 ( 即 若 有 多 个 字 符 相 同, 则 只 保 留 1 个 ) 写 入 文 件 file2.txt 请 填 空 Private Sub Command1 Click() Dim inchar AS String,temp AS String,outchar AS String Outchar= Open= file1.txt For Input AS #1 Open= file2.txt For Output AS #2 n=lof( 1 ) inchar=input$(n,1) For k=1 To n temp=mid(inchar,k,1) If InStr(outchar,temp)= 0 Then outchar=outchar & temp Next k print #2, outchar close #2 close #1 (8) 在 窗 体 上 先 画 1 个 名 为 Text1 的 文 本 框 和 平 个 名 为 Label1 的 标 签, 再 画 1 个 名 为 OP1 的 有 4 个 单 选 按 钮 数 组, 其 Index 属 性 按 季 度 顺 序 为 0 3( 见 图 1) 在 文 件 sales.txt 中 按 月 份 顺 序 存 有 某 企 业 某 年 12 个 月 的 销 售 额 要 求 在 程 序 执 行 时, 鼠 标 单 击 1 个 单 选 按 钮, 则 Text1 中 显 示 相 应 季 度 的 销 售 总 额, 并 把 相 应 的 文 字 显 示 在 标 签 上 图 2 是 单 击 第 3 季 度 单 选 按 钮 产 生 的 结 果 请 填 空 Dim sales(12) As Long Private Sub Form Load() open sales.txt For Input AS #1 For k=1 To 12 Input #1,sales(k) Next k Close #1

23 更 多 内 容 请 查 看 精 品 文 库 网 Private Sub Op1_Click (Index, AS Integer) Dim sum AS Long,k AS Ingeger,month AS Ingeger sum=0 month=index* 3 For k=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1.Caption=Opl(Index). Caption & 销 售 总 额 : Text1=sum (9) 某 人 编 写 如 下 函 数 来 判 断 a 是 否 为 素 数, 若 是, 则 函 数 返 回 True; 否 则 返 回 False Function Prime(a As Integer)AS Boolean Dim k As Interger,isprime AS Boolean If a<2 Then isprime=false Else isprime=true k=2 Do While k If a Mod k=0 Then isprime=false ELSE k=k+1 End IF LOOP prime=isprime End Function 在 测 试 时 发 现 有 1 个 非 素 数 也 被 判 断 为 素 数, 这 个 错 判 的 数 是 年 4 月 全 国 计 算 机 等 级 考 试 二 级 VB 语 言 笔 试 试 题 答 案 选 择 题 : 1-10 cdacd cabaa ddbcd abadc bbdca cddbc bcada

24 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com 填 空 : 63 黑 盒 测 试 DBMS 开 发 阶 段 数 据 词 典 0 N-1 #2 1 0 outchar op1_click 3 caption 4 07 年 9 月 全 国 计 算 机 二 级 VB 笔 试 含 答 案 引 用 地 址 : [ 复 制 超 文 本 复 制 ] 返 回 金 牌 计 算 机 二 级.. 关 闭 窗 口 dxjzsyt 发 表 于 : : 一 个 家 具 系 无 赖 的 自 白 [ 东 大 传 说 ] 那 个 女 孩 [ 紫 金 之 巅 ] 二 食 堂 中 锅 菜 [ 军 理 工 FOREVER] 蝴 蝶 [ 大 学 生 社 区 ] 逝 去 童 年, 沾 染 尘 埃 [ 雨 中 情 - 雨 花 台...] 19 路 公 交 车 ( 版 里 好 久 没 人..[ 南 农 之 浦 口 风 云 ] 你! 就 要 毕 业 了...[ 九 中 情 ] 徐 武 老 师 是 九 中 的 君 子 [ 江 苏 经 贸 学 院 论..] 如 果 我 们 分 手 了, 你 会 怎 样..[ 倾 城 晓 庄 ] 今 年 夏 天 2007 年 9 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 Visual Basic 语 言 程 序 设 计 ( 考 试 时 间 90 分 钟, 满 分 100 分 ) 一 选 择 题 ( 每 小 题 2 分, 共 70 分 ) 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的 请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 (1) 软 件 是 指 A) 程 序 B) 程 序 和 文 档 C) 算 法 加 数 据 结 构 D) 程 序 数 据 与 相 关 文 档 的 完 整 集 合 (2) 软 件 调 试 的 目 的 是 A) 发 现 错 误 B) 改 正 错 误 C) 改 善 软 件 的 性 能 D) 验 证 软 件 的 正 确 性 (3) 在 面 向 对 象 方 法 中, 实 现 信 息 隐 蔽 是 依 靠 A) 对 象 的 继 承 B) 对 象 的 多 态 C) 对 象 的 封 装 D) 对 象 的 分 类 (4) 下 列 叙 述 中, 不 符 合 良 好 程 序 设 计 风 格 要 求 的 是 A) 程 序 的 效 率 第 一, 清 晰 第 二 B) 程 序 的 可 读 性 好 C) 程 序 中 要 有 必 要 的 注 释 D) 输 入 数 据 前 要 有 提 示 信 息 (5) 下 列 叙 述 中 正 确 的 是 A) 程 序 执 行 的 效 率 与 数 据 的 存 储 结 构 密 切 相 关 B) 程 序 执 行 的 效 率 只 取 决 于 程 序 的 控 制 结 构

25 更 多 内 容 请 查 看 精 品 文 库 网 C) 程 序 执 行 的 效 率 只 取 决 于 所 处 理 的 数 据 量 D) 以 上 三 种 说 法 都 不 对 (6) 下 列 叙 述 中 正 确 的 是 A) 数 据 的 逻 辑 结 构 与 存 储 结 构 必 定 是 一 一 对 应 的 B) 由 于 计 算 机 存 储 空 间 是 向 量 式 的 存 储 结 构, 因 此, 数 据 的 存 储 结 构 一 定 是 线 性 结 构 C) 程 序 设 计 语 言 中 的 数 组 一 般 是 顺 序 存 储 结 构, 因 此, 利 用 数 组 只 能 处 理 线 性 结 构 D) 以 上 三 种 说 法 都 不 对 (7) 冒 泡 排 序 在 最 坏 情 况 下 的 比 较 次 数 是 A)n(n+1)/2 B)nlog2 n C)n(n-1)/2 D)n/2 (8) 一 棵 二 叉 树 中 共 有 70 个 叶 子 结 点 与 80 个 度 为 1 的 结 点, 则 该 二 叉 树 中 的 总 结 点 数 为 A)219 B)221 C)229 D)231 (9) 下 列 叙 述 中 正 确 的 是 A) 数 据 库 系 统 是 一 个 独 立 的 系 统, 不 需 要 操 作 系 统 的 支 持 B) 数 据 库 技 术 的 根 本 目 标 是 要 解 决 数 据 的 共 享 问 题 C) 数 据 库 管 理 系 统 就 是 数 据 库 系 统 D) 以 上 三 种 说 法 都 不 对 (10) 下 列 叙 述 中 正 确 的 是 A) 为 了 建 立 一 个 关 系, 首 先 要 构 造 数 据 的 逻 辑 关 系 B) 表 示 关 系 的 二 维 表 中 各 元 组 的 每 一 个 分 量 还 可 以 分 成 若 干 数 据 项 C) 一 个 关 系 的 属 性 名 表 称 为 关 系 模 式 D) 一 个 关 系 可 以 包 括 多 个 二 维 表 (11) 要 使 一 个 文 本 框 可 以 显 示 多 行 文 本, 应 设 置 为 True 的 属 性 是 A)Enabled B)MultiLine C)MasLenfth D)Width (12) 在 窗 体 上 有 一 个 名 为 Text1 的 文 本 框 当 光 标 在 文 本 框 中 时, 如 果 按 下 字 母 键 A, 则 被 调 用 的 事 件 过 程 是 A)Form_KeyPress() B)Text1_LostFocus() C)Text1_Click() D)Test1_Change() (13) 设 在 窗 体 上 有 一 个 名 称 为 Command1 的 命 令 按 钮 和 一 个 名 称 为 Text1 的 文 本 框 要 求 单 击 Command1 按 钮 时 可 把 光 标 移 到 文 本 框 中 下 面 正 确 的 事 件 过 程 是 A) B)Private Sub Text1.GotFocus Command1.GotFocus EndSub C) D)Private Sub Text1.SetFocus Command1.SetFocus (14) 执 行 以 下 程 序 后 输 出 的 是 Ch$= AABCDEFGH Print Mid(Righ(ch$,6),Len(left(ch$,4)),2) A)CDEFGH B)ABCD C)FG D)AB (15) 设 在 窗 体 Form1 上 有 一 个 列 表 框 List1, 其 中 有 若 干 个 项 目 要 求 单 击 列 表 框 中 某 一 项 时, 把 该 项 显 示 在 窗 体 上, 正 确 的 事 件 过 程 是 A)Prvate Sub List1_Click() B)Private Sub Form1_Click()

26 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com Print List1.Text Print List1.Text C)Private Sub List1_Click() D)Private Sub Form1_Click() Print Form1.Text List1.Print List1.Text (16) 若 窗 体 上 的 图 片 框 中 有 一 个 命 令 按 钮, 则 此 按 钮 的 Left 属 性 是 指 A) 按 钮 左 端 到 窗 体 左 端 的 距 离 B) 按 钮 左 端 到 图 片 框 左 端 的 距 离 C) 按 钮 中 心 点 到 窗 体 左 端 的 距 离 D) 按 钮 中 心 点 到 图 片 框 左 端 的 距 离 (17) 为 使 程 序 运 行 时 通 用 对 话 框 CD1 上 显 示 的 标 题 为 对 话 框 窗 口, 若 通 过 程 序 设 置 该 标 题, 则 应 使 用 的 语 句 是 A)CD1.DialogTitle= 对 话 框 窗 口 B)CD1.Action= 对 话 框 窗 口 C)CD1.FileName= 对 话 框 窗 口 D)CD1.Filter= 对 话 框 窗 口 (18) 在 窗 体 上 有 如 右 图 所 示 的 控 件, 各 控 件 的 名 称 与 其 标 题 相 同, 并 有 如 下 程 序 : Private Sub Form_Load() Command2.Enabled=False Check1.value=1 刚 运 行 程 序 时, 看 到 的 窗 体 外 观 是 : (19) 设 在 窗 体 中 有 一 个 名 称 为 List1 的 列 表 框, 其 中 有 若 干 个 项 目 ( 如 图 ) 要 求 选 中 某 一 项 后 单 击 Command1 按 钮, 就 删 除 选 中 的 项, 则 正 确 的 事 件 过 程 是 A) List1.Clear B) List1.Clear List1.ListIndex C) List1.Removeltem List1.ListIndex D) List1.Removeltem (20) 某 人 设 计 了 如 下 程 序 用 来 计 算 并 输 出 7!(7 的 阶 乘 ) t=0 For k=7 To 2 Step -1 t=t*k Next Print t 执 行 程 序 时, 发 现 结 果 是 错 误 的, 下 面 的 修 改 方 案 中 能 够 得 到 正 确 结 构 的 是 A) 把 t=0 改 为 t=1

27 更 多 内 容 请 查 看 精 品 文 库 网 B) 把 For k = 7 To 2 Step -1 改 为 For k =7 To 1 Step -1 C) 把 For k = 7 To 2 Stip-1 改 为 Fork=1 To 7 D) 把 Next 改 为 Nexi k (21) 若 窗 体 中 已 经 有 若 干 个 不 同 的 单 选 按 钮, 要 把 它 们 改 为 一 个 单 选 按 钮 数 组, 在 属 性 窗 口 中 需 要 且 只 需 要 进 行 的 操 作 是 A) 把 所 有 单 选 按 钮 的 Index 属 性 改 为 相 同 值 B) 把 所 有 单 选 按 钮 的 Index 属 性 改 为 连 续 的 不 同 值 C) 把 所 有 单 选 按 钮 的 Caption 属 性 值 改 为 相 同 D) 把 所 有 单 选 按 钮 的 名 称 改 为 相 同, 且 把 它 们 的 Index 属 性 改 为 连 续 的 不 同 值 (22) 窗 体 上 有 文 本 框 Text1 和 一 个 菜 单, 菜 单 标 题 名 称 如 表, 结 构 见 图 要 求 程 序 执 行 时 单 击 保 存 菜 单 项, 则 把 其 标 题 显 示 在 Text1 文 本 框 中 下 面 可 实 现 此 功 能 的 事 件 过 程 是 : 标 题 名 称 文 件 file 新 建 new 保 存 save A)Private Sub save_click() B)Private Sub save_click() Text1.Text=file.save.Caption Text1.Text=save.Caption C)Private Sub file_click() D)Private Sub file_click() Text1.Text=file.save.Caption Text1.Text=save.Caption (23) 某 人 在 窗 体 上 画 了 一 个 名 称 为 Timer1 的 计 时 器 和 一 个 名 称 为 Lab 的 属 性 设 置 为 Enabled=True, Interval=0, 并 编 程 如 下 希 望 在 每 2 秒 在 标 签 上 显 示 一 次 系 统 当 前 时 间 Private Sub Timer1_Timer() Label1.Caption=Time$ 在 程 序 执 行 时 发 现 未 能 实 现 上 述 目 的, 那 么, 他 应 做 的 修 改 是 A) 通 过 属 性 窗 口 把 计 时 器 的 Interval 属 性 设 置 为 2000 B) 通 过 属 性 窗 口 把 计 时 器 的 Enabled 属 生 设 置 为 False C) 把 事 件 过 程 中 的 Label1.Caption=Time$ 语 句 改 为 Timer1.Interval=Tims$ D) 把 事 件 过 程 中 的 Label1.Caption=Time$ 语 句 改 为 Label1.Caption=Timer1.Time (24) 形 状 控 件 的 Shape 属 性 有 6 种 取 值, 分 别 代 表 6 种 几 何 图 形 下 列 不 属 于 这 6 种 几 何 图 形 的 是 (25) 下 面 关 于 文 件 的 叙 述 中 错 误 的 是 A) 随 机 文 件 中 各 条 记 录 的 长 度 是 相 同 的 ] B) 打 开 随 机 文 件 时 采 用 的 文 件 存 取 方 式 应 该 是 Random C) 向 随 机 文 件 中 写 数 据 应 使 用 语 句 Print# 文 件 号 D) 打 开 随 机 文 件 与 打 开 顺 序 文 件 一 样, 都 使 用 Open 语 句 (26) 设 窗 体 上 有 一 个 图 片 框 Picture1, 要 在 程 序 运 行 期 间 装 入 当 前 文 件 夹 下 的 图 形 文 件 File1.jpg, 能 实 现 此 功 能 的 语 句 是 A)Picture1.Picture= Flie1.jpg B)Picture1.Picture=LoadPicture( File1.jpg ) C) LoadPicture( File1.jpg ) D)Call LoadPicture( File1.jpg )

28 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com (27) 下 面 程 序 执 行 时, 在 窗 体 上 显 示 的 是 Dim a(10) For k = 1 To 10 a(k) = 11 k Next k Print a(a(3)\a(7) Mod a(5)) A)3 B)5 C)7 (28) 为 达 到 把 a b 中 的 值 交 换 后 输 出 的 目 的, 某 人 编 程 如 下 : a% = 10:b% = 20 Call swap(a,b) Print a,b Private Sub swap(byval a As Integer,ByVal b As Integer) c= a:a=b:b=c 在 运 行 时 发 现 输 出 结 果 错 了, 需 要 修 改 下 面 列 出 的 错 误 原 因 和 修 改 方 案 中 正 确 的 是 A) 调 用 swap 过 程 的 语 句 错 误, 应 改 为 Call swap a,b B) 输 出 语 句 错 误, 应 改 为 :Print a, b C) 过 程 的 形 式 参 数 有 错, 应 改 为 :swap(byref a As Integer,ByRef b As Integer) D)swap 中 3 条 赋 值 语 句 的 顺 序 是 错 误 的, 应 改 为 a=b:b=c:c=a (29) 有 如 下 函 数 : Function fun(a As Integer,n As Integer) As Integer Dim m As Integer While a >=n a=a-n m= m+1 Wend fun=m End Function 该 函 数 的 返 回 值 是 A)a 乘 以 n 的 乘 积 B)a 加 n 的 和 C)a 减 n 的 差 D)a 除 以 n 的 商 ( 不 含 小 数 部 分 ) (30) 下 面 程 序 的 输 出 结 果 是 ch$= ABCDEF proc ch Print ch Private Sub proc(ch As String) S= For k=len(ch) To 1 Step-1

29 更 多 内 容 请 查 看 精 品 文 库 网 s=s&mid(ch,k,1) Next k ch=s A)ABCDEF B)FEDCBA C)A D)F (31) 某 人 编 写 了 一 个 能 够 返 回 数 组 a 中 10 个 数 中 最 大 数 的 函 数 过 程, 代 码 如 下 : Function Maxvalue(a() As Integer) As Integer Dim max% max=1 For k = 2 To 10 If a(k)>a(max) Then max = k Next k Maxvalue = max End Function 程 序 运 行 时, 发 现 函 数 过 程 的 返 回 值 是 错 的, 需 要 修 改, 下 面 的 修 改 方 案 中 正 确 的 是 A) 语 句 max = 1 应 改 为 max = a(1) B) 语 句 For k = 2 To 10 应 改 为 For k = 1 To 10 C)If 语 句 中 的 条 件 a(k)>a(max) 应 改 为 a(k)>max D) 语 句 Maxvalue = max 应 改 为 Maxvalue = a(max) (32) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 并 编 写 以 下 程 序 : Dim n%,b,t t = 1:b = 1:n = 2 Do b = b*n t = t + b n = n +1 Loop Until n>9 Print t 此 程 序 计 算 并 输 出 一 个 表 达 式 的 值, 该 表 达 式 是 A)9! B)10! C)1!+2!+ +9! D)1!+2!+ +10! (33) 有 一 个 名 称 为 Form1 的 窗 体, 上 面 没 有 控 件, 设 有 以 下 程 序 ( 其 中 方 法 Pset(X,Y) 的 功 能 是 在 坐 标 X, Y 处 画 一 个 点 ): Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) cmdmave = True Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single) If cmdmave Then Form1.Pset(X,Y)

30 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single) cmdmave = False 此 程 序 的 功 能 是 A) 每 按 下 鼠 标 键 一 次, 在 鼠 标 所 指 位 置 画 一 个 点 B) 按 下 鼠 标 键, 则 在 鼠 标 所 指 位 置 画 一 个 点 ; 放 开 鼠 标 键, 则 此 点 消 失 C) 不 按 鼠 标 键 而 拖 动 鼠 标, 则 沿 鼠 标 拖 动 的 轨 迹 画 一 条 线 D) 按 下 鼠 标 键 并 拖 动 鼠 标, 则 沿 鼠 标 拖 动 的 轨 迹 画 一 条 线, 放 开 鼠 标 键 则 结 束 画 线 (34) 某 人 设 计 了 下 面 的 函 数 fun, 功 能 是 返 回 参 数 a 中 数 值 的 位 数 Function fun(a As Integer) As Integer Dim n% n = 1 While a \ 10 >= 0 n = n + 1 a = a \ 10 Wend fun = n End Function 在 调 用 该 函 数 时 发 现 返 回 的 结 果 不 正 确, 函 数 需 要 修 改, 下 面 的 修 改 方 案 中 正 确 的 是 A) 把 语 句 n = 1 改 为 n = 0 B) 把 循 环 条 件 a \ 10 >= 0 改 为 a \ 10 > 0 C) 把 语 句 a = a \ 10 改 为 a = a Mod 10 D) 把 语 句 fun = n 改 为 fun = a (35) 在 窗 体 上 有 一 个 名 称 为 Check1 的 复 选 框 数 组 ( 含 4 个 复 选 框 ), 还 有 一 个 名 称 为 Text1 的 文 本 框, 初 始 内 容 为 空 程 序 运 行 时, 单 击 任 何 复 选 框, 则 把 所 有 选 中 的 复 选 框 后 面 的 方 字 罗 列 在 文 本 框 中 ( 见 图 ) 下 面 能 实 现 此 功 能 的 事 件 过 程 是 A)Private Sub Check1_Click(Indes As Integer) Text1.Text ="" For k = 0 To 3 If Check1(k).value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " ' 双 引 号 中 是 空 格 Next k B)Private Sub Check1_Click(Index As Integer) For k = 0 To 3 If Check1(k).value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " ' 双 引 号 中 是 空 格 Next k

31 更 多 内 容 请 查 看 精 品 文 库 网 C)Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).value = 1 Then Text1.Text = Text1.Text & Check1(Index).Caption & " " ' 双 引 号 中 是 空 格 Next k D)Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " ' 双 引 号 中 是 空 格 Exit For Next k 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 [1]~[15] 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 (1) 软 件 需 求 规 格 说 明 书 应 具 有 完 整 性, 无 岐 义 性 正 确 性 可 验 证 性 可 修 改 性 等 特 征, 其 中 最 重 要 的 是 1 (2) 在 两 种 基 本 测 试 方 法 中, 2 测 试 的 原 则 之 一 是 保 证 所 测 模 块 中 每 一 个 独 立 路 径 至 少 执 行 一 次 (3) 线 性 表 的 存 储 结 构 主 要 分 为 顺 序 存 储 结 构 和 链 式 存 储 结 构 队 列 是 一 种 特 殊 的 线 性 表, 循 环 队 列 是 队 列 的 3 存 储 结 构 (4) 对 下 列 二 叉 树 进 行 中 序 遍 历 的 结 果 为 4 (5) 在 E-R 图 中, 矩 形 表 示 5 (6) 窗 体 上 有 一 个 组 合 框, 其 中 已 输 入 了 若 干 个 项 目 程 序 运 行 时, 单 击 其 中 一 项, 即 可 把 该 项 与 最 上 面 的 一 项 交 换 例 如 : 单 击 图 1 中 的 重 庆, 则 与 北 京 交 换, 得 到 图 2 的 结 果 下 面 是 可 实 现 此 功 能 的 程 序, 请 填 空 Private Sub Combo1_Click() Dim temp temp = Combo1.Text [6] = Combo1.List(0) Combo1.List(0) = temp (7) 设 窗 体 上 有 一 个 名 称 为 HScroIII 的 水 平 滚 动 条, 要 求 当 滚 动 块 移 动 位 置 后, 能 够 在 窗 体 上 输 出 移 动 的 距 离 ( 即 新 位 置 与 原 位 置 的 刻 度 值 之 差, 向 右 移 动 为 正 数, 向 左 移 动 为 负 数 ) 下 面 是 可 实 现 此 功 能 的 程 序, 请 填 写 Dim [7] As Integer

32 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com Private Sub Form_Load() pos=hscroiii.value Private Sub HScroIII_Change() Print [8] -pos pos=hscroiii.value (8) 设 窗 体 上 有 一 个 名 称 为 CD1 的 通 用 对 话 框, 一 个 名 称 为 Text1 的 文 本 框 和 一 个 名 称 为 Command1 的 命 令 按 钮 程 序 执 行 时, 单 击 Command1 按 钮, 则 显 示 打 开 文 件 对 话 框, 操 作 者 从 中 选 择 一 个 文 本 文 件, 并 单 击 对 话 框 上 的 打 开 按 钮 后, 则 可 打 开 该 文 本 文 件, 并 读 入 一 行 文 本, 显 示 在 Text1 中 下 面 是 实 现 此 功 能 的 事 件 过 程, 请 填 空 CD1.Filter =" 文 本 文 件 1*.txt(Word 文 档 )*.doc" CD1.Filterinder = 1 CD1.ShowOpen If CD1.FileName<>""Then Open [9] For Input As #1 Line Input #1,ch$ Close #1 Text1.Text = [10] (9) 下 面 的 程 序 执 行 时, 可 以 从 键 盘 输 入 一 个 正 整 数, 然 后 把 该 数 的 每 位 数 字 按 逆 序 输 出 例 如 : 输 入 7685, 则 输 出 5867, 输 入 1000, 则 输 出 0001 请 填 空 Dim x As Integer x=inputbox( 请 输 入 一 个 正 整 数 ) While x> [11] Print x Mod 10; x=x\10 Wend Print [12] (10) 有 如 图 所 示 的 窗 体 程 序 执 行 时 先 在 Text1 文 本 框 中 输 入 编 号, 当 焦 点 试 图 离 开 Text1 时, 程 序 检 查 编 号 的 合 法 性, 若 编 号 合 法, 则 焦 点 可 以 离 开 Text1 文 本 框 ; 否 则, 显 示 相 应 错 误 信 息, 并 自 动 选 中 错 误 的 字 符, 且 焦 点 不 能 离 开 Text1 文 本 框 ( 见 图 ) 合 法 编 号 的 组 成 是 : 前 2 个 字 符 是 大 写 英 文 字 母, 第 3 个 字 符 是 -, 后 面 是 数 字 字 符 ( 至 少 1 个 ) 下 面 程 序 可 实 现 此 功 能, 请 填 空 Private Sub Text1_Lostfocus() Dim k%,n% n=len( [13] )

33 更 多 内 容 请 查 看 精 品 文 库 网 For k=1 to if (n>3,n,4) c=mid(text1. Text,k,1) Select Case k Case 1,2 If c<"a" Or c>"z" Then MsgBox(" 第 "&k&" 个 字 符 必 须 是 大 写 字 母!") SetPosition k Exit For Case 3 If c<>"-" Then MsgBox(" 第 "&k&" 个 字 符 必 须 是 字 符 "'"-"'") SetPosition k Exit For Case Else If c<"0" Or c>"9" Then MsgBox(" 第 "&k&" 个 字 符 必 须 是 数 字!") SetPosition k Exit For End Select Next k Private Sub SetPosition(pos As Integer) Text1.SelStart=pos-1 Text.SelLength= [14] Text1. [15] 2007 年 9 月 全 国 计 算 机 等 级 考 试 二 级 VB 参 考 答 案 一 选 择 题 1-5 DBCAA 6-10 CCABA BDCCA BAACA DBABC BDCDB DCDBA 二 填 空 题 1 无 歧 义 性 2 白 盒 测 试

34 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com 3 顺 序 4 ACBDFEHGP 5 实 体 集 6 Combol1.List(Combol1.ListIndex) 7 pos 8 HScroll1.value 9 CD1.FileName 10 ch x 13 Text1.Text SetFocus 2004 年 9 月 全 国 计 算 机 等 级 考 试 二 级 VB 语 言 笔 试 试 题 及 答 案 计 算 机 二 级 考 试 免 费 试 听 课 程 收 藏 本 页 2004/12/15 保 存 本 文 一 选 择 题 ((1)~(20) 每 小 题 2 分,(21)~(30) 每 小 题 3 分, 共 70 分 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的, 请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 (1) 设 窗 体 上 有 一 个 文 本 框, 名 称 为 text1, 程 序 运 行 后, 要 求 该 文 本 框 只 能 显 示 信 息, 不 能 接 受 输 入 的 信 息, 以 下 能 实 现 该 操 作 的 语 句 是 A.Text1.MaxLength=0 B.Text1.Enabled=Flase C.Text1.Visible=Flase D.Text1.Width=0 (2) 以 下 能 在 窗 体 Form1 的 标 题 栏 中 显 示 VisualBasic 窗 体 " 的 语 句 是 A.Form1.Name="VisualBasic 窗 体 " B.Form1.Title="VisualBasic 窗 体 " C.Form1.Caption="VisualBasic 窗 体 " D.Form1.Text="VisualBasic 窗 体 (3) 在 窗 体 上 画 一 个 名 称 为 Text1 的 文 本 框, 然 后 画 一 个 名 称 为 HScroll1 的 滚 动 条, 其 Min 和 Max 属 性 分 别 为 0 和 100 程 序 运 行 后, 如 果 移 动 滚 动 框, 则 在 文 本 框 中 显 示 滚 动 条 的 当 前 值, 如 图 所 示 以 下 能 实 现 上 述 操 作 的 程 序 段 是 A.Private Sub Hscroll1_Change() Text1.Text=HScroll1.Value B.Private Sub Hscroll1_Click() Text1.Text=HScroll1.Value C.Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Caption D.Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Caption

35 更 多 内 容 请 查 看 精 品 文 库 网 (4) 设 菜 单 中 有 一 个 菜 单 项 为 "Open" 若 要 为 该 菜 单 命 令 设 置 访 问 键, 即 按 下 Alt 及 字 母 O 时, 能 够 执 行 "Open" 命 令, 则 在 菜 单 编 辑 器 中 设 置 Open" 命 令 的 方 式 是 A. 把 Caption 属 性 设 置 为 &Open B. 把 Caption 属 性 设 置 为 O&pen C. 把 Name 属 性 设 置 为 &Open D. 把 Name 属 性 设 置 为 O&pen (5) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 : x=inputbox("input") Select Case x Case 1,3 Print " 分 支 1" Case Is >4 Print " 分 支 2" Case Else Print "Else 分 支 " End Select 程 序 运 行 后, 如 果 在 输 入 对 话 框 中 输 入 2, 则 窗 体 上 显 示 的 是 A. 分 支 1 B. 分 支 2 C.Else 分 支 D. 程 序 出 错 (6) 以 下 关 于 MsgBox 的 叙 述 中, 错 误 的 是 A.MsgBox 函 数 返 回 一 个 整 数 B. 通 过 MsgBox 函 数 可 以 设 置 信 息 框 中 图 标 和 按 钮 的 类 型 C.MsgBox 语 句 没 有 返 回 值 D.MsgBox 函 数 的 第 二 个 参 数 是 一 个 整 数, 该 参 数 只 能 确 定 对 话 框 中 显 示 的 按 钮 数 量 (7) 在 窗 体 上 画 一 个 名 称 为 Timer1 的 计 时 器 控 件, 要 求 每 隔 0.5 秒 发 生 一 次 计 时 器 事 件, 则 以 下 正 确 的 属 性 设 置 语 句 是 A.Timer1.Interval=0.5 B.Timer1.Interval=5 C.Timer.Interval=50 D.Timer1.Interval=500 (8) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 : Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y

36 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com 程 序 运 行 后, 连 续 三 次 单 击 Command1 按 钮 后, 窗 体 上 显 示 的 是 A.4 2 B C D.4 6 (9) 以 下 关 于 多 重 窗 体 程 序 的 叙 述 中, 错 误 的 是 A. 用 Hide 方 法 不 但 可 以 隐 藏 窗 体, 而 且 能 清 除 内 存 中 的 窗 体 B. 在 多 重 窗 体 程 序 中, 各 窗 体 的 菜 单 是 彼 此 独 立 的 C. 在 多 重 窗 体 程 序 中, 可 以 根 据 需 要 指 定 启 动 窗 体 D. 对 于 多 重 窗 体 程 序, 需 要 单 独 保 存 每 个 窗 体 (10) 以 下 关 于 文 件 的 叙 述 中, 错 误 的 是 A. 顺 序 文 件 中 的 记 录 一 个 接 一 个 地 顺 序 存 放 B. 随 机 文 件 中 记 录 的 长 度 是 随 机 的 C. 执 行 打 开 文 件 的 命 令 后, 自 动 生 成 一 个 文 件 指 针 D.LOF 函 数 返 回 给 文 件 分 配 的 字 节 数 (11) 以 下 叙 述 中 错 误 的 是 A. 事 件 过 程 是 响 应 特 定 事 件 的 一 段 程 序 B. 不 同 的 对 象 可 以 具 有 相 同 名 称 的 方 法 C. 对 象 的 方 法 是 执 行 指 定 操 作 的 过 程 D. 对 象 事 件 的 名 称 可 以 由 编 程 者 指 定 (12) 以 下 合 法 的 Visual Basic 标 识 符 是 A.ForLoop B.Const C.9abc D.a#x (13) 当 一 个 复 选 框 被 选 中 时, 它 的 Value 属 性 的 值 是 A.3 B.2 C.1 D.0 (14) 表 达 式 5 Mod 3+3\5*2 的 值 是 A.0 B.2 C.4 D.6 (15) 设 x=4,y=8,z=7, 以 下 表 达 式 的 值 是 x z)or z A.1 B.-1 C.True D.False (16) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 :

37 更 多 内 容 请 查 看 精 品 文 库 网 a$="visualbasic" Print String(3,a$) 程 序 运 行 后, 单 击 命 令 按 钮, 在 窗 体 上 显 示 的 内 容 是 A.VVV B.Vis C.sic D.11 (17) 设 有 如 下 程 序 段 : x=2 For i=1 To 10 Step 2 x=x+i Next 运 行 以 上 程 序 后,x 的 值 是 A.26 B.27 C.38 D.57 (18) 以 下 叙 述 中 错 误 的 是 A. 在 KeyPress 事 件 过 程 中 不 能 识 别 键 盘 的 按 下 与 释 放 B. 在 KeyPress 事 件 过 程 中 不 能 识 别 回 车 键 C. 在 KeyDown 和 KeyUp 事 件 过 程 中, 将 键 盘 输 入 的 "A" 和 "a" 视 作 相 同 的 字 母 D. 在 KeyDown 和 KeyUp 事 件 过 程 中, 从 大 键 盘 上 输 入 的 "1" 和 从 右 侧 小 键 盘 上 输 入 的 "1" 被 视 作 不 同 的 字 符 (19) 执 行 如 下 两 条 语 句, 窗 体 上 显 示 的 是 a= Print Format(a,"$00,00.00") A.0, B.$9.86 C.9.86 D.$0, (20) 在 窗 体 上 画 一 个 名 称 为 CommandDialog1 的 通 用 对 话 框, 一 个 名 称 为 Command1 的 命 令 按 钮 然 后 编 写 如 下 事 件 过 程 : CommonDialog1.FileName ="" CommonDialog1.Filter="All file *.* (*.Do C. *.Doc (*.Txt) *.Txt" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="VBTest" CommonDialog1.Action=1 对 于 这 个 程 序, 以 下 叙 述 中 错 误 的 是 A. 该 对 话 框 被 设 置 为 打 开 对 话 框 B. 在 该 对 话 框 中 指 定 的 默 认 文 件 名 为 空 C. 该 对 话 框 的 标 题 为 VBTest

38 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com D. 在 该 对 话 框 中 指 定 的 默 认 文 件 类 型 为 文 本 文 件 (*.Txt) 转 贴 于 : 计 算 机 二 级 考 试 _ 考 试 大 21) 设 一 个 工 程 由 两 个 窗 体 组 成, 其 名 称 分 别 为 Form1 和 Form2, 在 Form1 上 有 一 个 名 称 为 Command1 的 命 令 按 钮 窗 体 Form1 的 程 序 代 码 如 下 : Dim a As Integer a=10 Call g(form2,a) Private Sub g(f As Form,x As Integer) y=iif(x>10,100,-100) f,show f.caption=y 运 行 以 上 程 序, 正 确 的 结 果 是 A.Form1 的 Caption 属 性 值 为 100 B.Form2 的 Caption 属 性 值 为 -100 C.Form1 的 Caption 属 性 值 为 -100 D.Form2 的 Caption 属 性 值 为 100 (22) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 并 编 写 如 下 程 序 : Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,y Private Sub f1(byref x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 程 序 运 行 后, 单 击 命 令 按 钮, 在 窗 体 上 显 示 的 内 容 是 A.10 5 B.12 5 C.10 7 D.12 7 (23) 设 有 如 下 程 序 Option Base 1 Dim a(10)as Integer Dim n As Integer n=inputbox(" 输 入 数 据 ") If n<10 Then

39 更 多 内 容 请 查 看 精 品 文 库 网 Call GetArray(a,n) Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)as Integer j=0 For i=1 To n b(i)=cint(rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) Next Print j 以 下 叙 述 中 错 误 的 是 A. 数 组 b 中 的 偶 数 被 保 存 在 数 组 c 中 B. 程 序 运 行 结 束 后, 在 窗 体 上 显 示 的 是 c 数 组 中 元 素 的 个 数 C.GetArray 过 程 的 参 数 n 是 按 值 传 送 的 D. 如 果 输 入 的 数 据 大 于 10, 则 窗 体 上 不 显 示 任 何 显 示 (24) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 : Option Base 1 Dim a a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i)= a(i)+i-1 Next Print a(3) 程 序 运 行 后, 单 击 命 令 按 钮, 则 在 窗 体 上 显 示 的 内 容 是 A.4 B.5 C.6 D.7 (25) 阅 读 程 序 Option Base 1 Private Sub Form_Click() Dim arr,sum Sum = 0 arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3 = arr(i)\3 Then Sum = Sum + arr(i)

40 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com Next i Print Sum 程 序 运 行 后, 单 击 窗 体, 输 出 结 果 为 A.13 B.14 C.27 D.15 (26) 在 窗 体 上 画 一 个 名 称 为 File1 的 文 件 列 表 框, 并 编 写 如 下 程 序 : Private Sub File1_DblClick() x=shell(file1.filename,1) 以 下 关 于 该 程 序 的 叙 述 中, 错 误 的 是 A.x 没 有 实 际 作 用, 因 此 可 以 将 该 语 句 写 为 :Call Shell(File1,FileName,1) B. 双 击 文 件 列 表 框 中 的 文 件, 将 触 发 该 事 件 过 程 C. 要 执 行 的 文 件 的 名 字 通 过 File1.FileName 指 定 D.File1 中 显 示 的 是 当 前 驱 动 器 当 前 目 录 下 的 文 件 (27) 在 窗 体 上 画 一 个 名 称 为 Label1 标 题 为 VisualBasic 考 试 的 标 签, 两 个 名 称 分 别 为 Command1 和 Command2 标 题 分 别 为 开 始 和 停 止 的 命 令 按 钮, 然 后 画 一 个 名 称 为 Timer1 的 计 时 器 控 件, 并 把 其 Interval 属 性 设 置 为 500, 如 图 所 示 编 写 如 下 程 序 : Private Sub Form_Load() Timer1.Enabled=False Timer1.Enabled=True Private Sub Command2_Click() Timer1.Enabled=False Private Sub Timer1_Timer() If Label1.Left Label1.Left = Label1.Left + 20 Else Label1.Left=0 程 序 运 行 后 单 击 开 始 按 钮, 标 签 在 窗 体 中 移 动 对 于 这 个 程 序, 以 下 叙 述 中 错 误 的 是 A. 标 签 的 移 动 方 向 为 自 右 向 左 B. 单 击 停 止 按 钮 后 再 单 击 开 始 按 钮, 标 签 从 停 止 的 位 置 继 续 移 动 C. 当 标 签 全 部 移 出 窗 体 后, 将 从 窗 体 的 另 一 端 出 现 并 重 新 移 动 D. 标 签 按 指 定 的 时 间 间 隔 移 动

41 更 多 内 容 请 查 看 精 品 文 库 网 (28) 执 行 以 下 程 序 段 a$="abbacddcba" For i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=right(a,i) z=ucase(x & Y & z) Next i Print z 输 出 结 果 为 A.ABA B.BBABBA C.ABBABA D.AABAAB (29) 在 窗 体 上 画 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 程 序 : Option Base 1 Dim a As Variant a=array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum = sum+a(i) Next i x=sum/5 For i =1 To 5 If a(i)>x Then Print a(i); Next i 程 序 运 行 后, 单 击 命 令 按 钮, 在 窗 体 上 显 示 的 内 容 是 A.1 2 B C D.4 5 (30) 假 定 一 个 工 程 由 一 个 窗 体 文 件 Form1 和 两 个 标 准 模 块 文 件 Model1 及 Model2 组 成 Model1 代 码 如 下 : Public x As Integer Public y As Integer Sub S1() x =1 S2 Sub S2() y=10 Form1.Show

42 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com End Show Model2 的 代 码 如 下 : Sub Main() S1 其 中 Sub Main 被 设 置 为 启 动 过 程 程 序 运 行 后, 各 模 块 的 执 行 顺 序 是 A.Form1 Model1 Model2 B.Model1 Model2 Form1 C.Model2 Model1 Form1 D.Model2 Form1 Model1 转 贴 于 : 计 算 机 二 级 考 试 _ 考 试 大 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 1 ~ 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 (1) 设 有 如 下 程 序 段 : a$="beijingshanghai" b$=mid(a$,instr(a$,"g")+1) 执 行 上 面 的 程 序 段 后, 变 量 b$ 的 值 为 1 (2) 以 下 程 序 段 的 输 出 结 果 是 2 num =0 While num<=2 num = num + 1 Wend Print num (3) 窗 体 上 有 一 个 名 称 为 List1 的 列 表 框, 一 个 名 称 为 Text1 的 文 本 框, 一 个 名 称 为 Label1 Caption 属 性 为 Sum 的 标 签, 一 个 名 称 为 Command1 标 题 为 计 算 的 命 令 按 钮 程 序 运 行 后, 将 把 1~100 之 间 能 够 被 7 整 除 的 数 添 加 到 列 表 框 中 如 果 单 击 计 算 按 钮, 则 对 List1 中 的 数 进 行 累 加 求 和, 并 在 文 本 框 中 显 示 计 算 结 果, 如 图 所 示 以 下 是 实 现 上 述 功 能 的 程 序, 请 填 空 Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then 3 Next Sum = 0 For i = 0 To 4 Sum = Sum + 5 Next Text1.Text = Sum (4) 本 程 序 的 功 能 是 利 用 随 机 数 函 数 模 拟 投 币, 方 法 是 : 每 次 随 机 产 生 一 个 0 或 1 的 整 数, 相 当 于 一 次 投 币, 1 代 表 正 面,0 代 表 反 面 在 窗 体 上 有 三 个 文 本 框, 名 称 分 别 是 Text1 Text2 Text3, 分 别 用 于 显 示 用 户 输 入 投 币 总 次 数 出 现 正 面 的 次 数 和 出 现 反 面 的 次 数, 如 图 所 示 程 序 运 行 后, 在 文 本 框 Text1 中 输 入 总 次 数, 然 后 单 击 开 始 按 钮, 按 照 输 入 的 次 数 模 拟 投 币, 分 别 统 计 出 现 正 面 反 面 的 次 数, 并 显 示 结 果 以 下 是 实

43 更 多 内 容 请 查 看 精 品 文 库 网 现 上 述 功 能 的 程 序, 请 填 空 Randomize n = CInt(Text1.Text) n1 = 0 n2 = 0 For I = 1 To 6 r = Int(Rnd*2) If r = 7 Then n1 = n1 + 1 Else n2 = n2 + 1 Next Text2.Text = n1 Text3.Text = n2 (5) 阅 读 程 序 : Option Base 1 Private Sub Form_Click() Dim a(3)as Integer Print " 输 入 的 数 据 是 :"; For i = 1 To 3 a(i)=inputbox(" 输 入 数 据 ") Print a(i); Next Print If a(1) t = a(1) a(1)= a(2) a(2)= 8 If a(2)>a(3)then m = a(2) ElseIf a(1)>a(3)then m = 9 Else m = 10 Print " 中 间 数 是 :";m 程 序 运 行 后, 单 击 窗 体, 在 输 入 对 话 框 中 分 别 输 入 三 个 整 数, 程 序 将 输 出 三 个 数 中 的 中 间 数, 如 图 所 示 请 填 空 (6) 在 窗 体 上 画 一 个 名 称 为 Command1, 标 题 为 计 算 的 命 令 按 钮, 再 画 7 个 标 签, 其 中 5 个 标 签 组 成 名

44 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com 称 为 Label1 的 控 件 数 组 ; 名 称 为 Label2 的 标 签 用 于 显 示 计 算 结 果, 其 Caption 属 性 的 初 始 值 为 空 ; 标 签 Label3 的 标 题 为 计 算 结 果 运 行 程 序 时 会 自 动 生 成 5 个 随 机 数, 分 别 显 示 在 标 签 控 件 数 组 的 各 个 标 签 中, 如 图 所 示 单 击 计 算 按 钮, 则 将 标 签 数 组 各 元 素 的 值 累 加, 然 后 计 算 结 果 显 示 在 Label2 请 填 空 Sum = 0 For i = 0 To 4 Sum = Sum + 11 Next 12 = Sum (7) 在 窗 体 上 画 两 个 名 称 分 别 为 Command1 和 Command2 标 题 分 别 为 初 始 化 和 求 和 的 命 令 按 钮 程 序 运 行 后, 如 果 单 击 初 始 化 命 令 按 钮, 则 对 数 组 a 的 各 元 素 赋 值 ; 如 果 单 击 求 和 命 令 按 钮, 则 求 出 数 组 a 的 各 元 素 之 和, 并 在 文 本 框 中 显 示 出 来, 如 图 所 示 请 填 空 Option Base 1 Dim a(3,2)as Integer For i = 1 To 3 For j = 1 To 2 13 = i + j Next j Next i Private Sub Command2_Click() For j = 1 To 3 For i = 1 To 2 s = s + 14 Next i Next j Text1.Text = 15 转 贴 于 : 计 算 机 二 级 考 试 _ 考 试 大 2004 年 9 月 全 国 计 算 机 等 级 考 试 二 级 VB 语 言 笔 试 试 题 答 案 一 选 择 题 ((1) (20) 每 小 题 2 分,(21) (30) 每 小 题 2 分, 共 70 分 ) (1) B (2) C (3) A (4) A (5) C (6) D (7) D (8) B (9) A (10) B (11) D (12) A (13) C (14) C (15) D (16) A (17) B (18) B (19) D (20) D (21) B (22) D (23) C (24) B (25) C

45 更 多 内 容 请 查 看 精 品 文 库 网 (26) A (27) A (28) B (29) D (30) C 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 1 "Shanghai" list1.additem i 4 list1.listcount-1 5 list1.list(i) 6 n t 9 a(3) 10 a(1) 11 label1(i).caption 12 label2.caption 13 a(i,j) 14 a(j,i) 15 s 转 贴 于 : 计 算 机 二 级 考 试 _ 考 试 大 VV06 年 9 月 二 级 VB 语 言 笔 试 试 题 及 答 案 发 布 时 间 :11-04 页 数 :5 页 上 一 篇 :06 年 四 月 全 国 等 级 考 试 二 级 VB 语 言 考 前 密 卷 ( 一 ) 下 一 篇 :02 年 9 月 二 级 VB 语 言 笔 试 试 题 及 答 案

46 精 品 库 我 们 的 都 是 精 品 _www.jingpinwenku.com (1) 下 列 选 项 中 不 符 合 良 好 程 序 设 计 风 格 的 是 ( ) A. 源 程 序 要 文 档 化 B. 数 据 说 明 的 次 序 要 规 范 化 C. 避 免 滥 用 goto 语 句 D. 模 块 设 计 要 保 证 高 耦 合 高 内 聚 (2) 从 工 程 管 理 角 度, 软 件 设 计 一 般 分 为 两 步 完 成, 它 们 是 ( ) A. 概 要 设 计 与 详 细 设 计 B. 数 据 设 计 与 接 口 设 计 C. 软 件 结 构 设 计 与 数 据 设 计 D. 过 程 设 计 与 数 据 设 计 (3) 下 列 选 项 中 不 属 于 软 件 生 命 周 期 开 发 阶 段 任 务 的 是 ( ) A. 软 件 测 试 B. 概 要 设 计 C. 软 件 维 护 D. 详 细 设 计 (4) 在 数 据 库 系 统 中, 用 户 所 见 的 数 据 模 式 为 ( ) A. 概 念 模 式 B. 外 模 式 C. 内 模 式 D. 物 理 模 式 (5) 数 据 库 设 计 的 四 个 阶 段 是 : 需 求 分 析 概 念 设 计 逻 辑 设 计 和 ( ) A. 编 码 设 计 B. 测 试 阶 段 C. 运 行 阶 段 D. 物 理 设 计 (6) 设 有 如 下 三 个 关 系 表 : 下 列 操 作 中 正 确 的 是 ( ) (7) 下 列 叙 述 中 正 确 的 是 ( ) A. 一 个 算 法 的 空 间 复 杂 度 大, 则 其 空 间 复 杂 度 也 必 定 大 B. 一 个 算 法 的 空 间 复 杂 度 大, 则 其 时 间 复 杂 度 必 定 小 C. 一 个 算 法 的 时 间 复 杂 度 大, 则 其 空 间 复 杂 度 必 定 小 D. 上 述 三 种 说 法 都 不 对 (8) 在 长 度 为 64 的 有 序 线 性 表 中 进 行 顺 序 查 找, 最 坏 情 况 下 需 要 比 较 的 次 数 为 ( ) A.63 B.64 C.6 D.7 (9) 数 据 库 技 术 的 根 本 目 标 是 要 解 决 数 据 的 ( ) A. 存 储 问 题 B. 共 享 问 题 C. 安 全 问 题 D. 保 护 问 题 (10) 对 下 列 二 叉 树 : 进 行 中 序 遍 历 的 结 果 是 ( )

47 更 多 内 容 请 查 看 精 品 文 库 网 A.ACBDFEG B.ACBDFGE C.ABDCGEF D.FCADBEG (11) 以 下 叙 述 中 正 确 的 是 ( ) A. 窗 体 的 Name 属 性 指 定 窗 体 的 名 称, 用 来 标 识 一 个 窗 体 B. 窗 体 的 Name 属 性 值 是 显 示 在 窗 体 标 题 栏 中 文 本 C. 可 以 在 运 行 期 间 改 变 窗 体 的 Name 属 性 的 值 D. 窗 体 的 Name 属 性 值 可 以 为 空 (12) 以 下 叙 述 中 错 误 的 是 ( ) A. 打 开 一 个 工 程 文 件 时, 系 统 自 动 装 入 与 该 工 程 有 关 的 窗 体 文 件 B. 保 存 Visual Basic 程 序 时, 应 分 别 保 存 窗 体 文 件 及 工 程 文 件 C.Visual Basic 应 用 程 序 只 能 以 解 释 方 式 执 行 D. 窗 体 文 件 包 含 该 窗 体 及 其 控 件 的 属 性 (13) 设 a=2,b=3,c=4, 下 列 表 达 式 的 值 是 ( ) Not a <= c Or 4*c = b^2 And b <> a+c A.-1 B.1 C.True D.False (14) 没 有 如 下 的 用 户 定 义 类 型 : Type Student number As String name As String A) ge AS Integer End Type 则 以 下 正 确 引 用 该 类 型 成 员 的 代 码 是 ( ) A.Student. name= 李 明 B.Dim s As Student C.Dim s As Type Student D.Dim s As Type S.name= 李 明 s.name= 李 明 15) 设 a=5,b=6,c=7,d=8, 执 行 下 列 语 句 后, X 的 值 为 ( ) X=IIf((a>b)And(c>d),10,20) A.10 B.20 C.True D.False (16) 执 行 以 下 程 序 段 后, 变 量 c$ 的 值 为 ( ) A)$= Visual Bassic Programming B)$= Quick e$=b$&u Case(Mid$(a$,7,6))&Right$(a$,12) A.Visual Basic Programming B.Quick Basic programming C.Quick Basic Programming