Microsoft Word - 扉页.doc

( 二 级 Visual Basic 语 言 程 序 设 计 ) 全 国 计 算 机 等 级 考 试 命 题 研 究 中 心

内 容 提 要 本 书 紧 扣 国 家 教 育 部 考 试 中 心 2004 年 制 定 的 最 新 全 国 计 算 机 等 级 考 试 大 纲, 在 深 入 研 究 近 几 年 全 国 计 算 机 等 级 考 试 真 题 的 基 础 上 编 写 而 成 本 书 的 编 写 特 点 是 10+3, 即 包 含 10 套 冲 刺 模 拟 全 真 试 卷 和 近 两 年 的 考 试 真 题 每 套 习 题 都 配 有 详 细 的 答 案 及 其 分 析 本 书 适 用 于 参 加 全 国 计 算 机 等 级 考 试 ( 二 级 Visual Basic 语 言 程 序 设 计 ) 的 人 员 考 前 训 练 使 用, 也 可 作 为 广 大 计 算 机 初 学 者 及 大 中 专 院 校 师 生 的 参 考 书 为 了 使 考 生 了 解 最 新 的 考 试 内 容, 本 书 特 别 提 供 了 2002 年 9 月 2003 年 4 月 和 9 月 全 国 计 算 机 等 级 考 试 笔 试 试 卷 本 册 特 别 附 赠 2004 年 4 月 最 新 真 题 及 答 案 分 析 图 书 在 版 编 目 (CIP) 数 据 二 级 Visual Basic 语 言 程 序 设 计 / 全 国 计 算 机 等 级 考 试 命 题 研 究 中 心 编. 西 安 : 西 北 工 业 大 学 出 版 社, 2004.6 ( 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 ) ISBN 7-5612-1679-3 Ⅰ. 二 Ⅱ. 全 Ⅲ.BASIC 语 言 程 序 设 计 水 平 考 试 习 题 Ⅳ.TP312-44 中 国 版 本 图 书 馆 CIP 数 据 核 字 (2004) 第 003238 号 出 版 发 行 : 西 北 工 业 大 学 出 版 社 通 信 地 址 : 西 安 市 友 谊 西 路 127 号 邮 编 :710072 电 话 :029-88493844 网 址 :www.nwpup.com 印 刷 者 : 兴 平 市 印 刷 厂 开 本 :787 mm 1 092 mm 1/8 印 张 :99 字 数 :2 656 千 字 版 次 :2004 年 7 月 第 2 版 2004 年 7 月 第 1 次 印 刷 定 价 :92.00 元 ( 共 9 册, 每 册 10.00 元 )

前 言 国 家 教 育 部 考 试 中 心 组 织 的 全 国 计 算 机 等 级 考 试 是 国 内 规 模 最 大 应 试 人 数 最 多 的 计 算 机 水 平 考 试 为 了 使 更 多 的 应 试 者 熟 悉 各 种 题 型 的 命 题 方 式, 掌 握 解 题 技 巧, 能 在 短 时 间 内 进 行 有 效 的 复 习 并 突 破 过 关, 我 们 在 对 近 几 年 来 全 国 计 算 机 等 级 考 试 真 题 深 入 研 究 的 基 础 上, 特 别 组 织 和 编 写 了 本 套 丛 书 本 套 丛 书 题 型 分 配 与 真 题 一 致, 力 求 从 深 度 和 广 度 上 反 映 考 试 的 难 度 和 水 平 这 些 试 题 都 是 多 年 从 事 全 国 计 算 机 等 级 考 试 辅 导 的 指 导 教 师 的 经 验 积 累, 且 在 历 届 辅 导 班 中 实 际 使 用 过 多 次, 并 取 得 了 明 显 了 效 果 为 了 便 于 考 生 在 做 题 的 过 程 中 掌 握 知 识 点, 本 书 对 每 套 模 拟 试 卷 都 给 出 了 参 考 答 案 和 详 细 的 分 析, 希 望 考 生 通 过 分 析 部 分 内 容 的 学 习, 能 达 到 举 一 反 三 的 目 的, 花 最 少 的 精 力 取 得 最 佳 的 复 习 效 果 本 套 丛 书 适 用 于 准 备 参 加 全 国 计 算 机 等 级 考 试 ( 二 级 ~ 三 级 ) 的 人 员 考 前 训 练 使 用, 也 可 作 为 广 大 计 算 机 初 学 者 及 大 中 专 院 校 师 生 的 参 考 书 衷 心 希 望 本 套 丛 书 能 够 为 您 顺 利 通 过 计 算 机 等 级 考 试 助 一 臂 之 力 本 套 丛 书 由 以 下 9 册 组 成 : 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 二 级 C 语 言 程 序 设 计 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 二 级 QBASIC 语 言 程 序 设 计 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 二 级 FoxBASE+ 语 言 程 序 设 计 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 二 级 Visual FoxPro 语 言 程 序 设 计 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 二 级 Visual Basic 语 言 程 序 设 计 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 三 级 信 息 管 理 技 术 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 三 级 数 据 库 技 术 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 三 级 网 络 技 术 全 国 计 算 机 等 级 考 试 实 战 冲 刺 全 真 模 拟 试 卷 三 级 PC 技 术 由 于 编 者 水 平 所 限, 不 足 之 处 在 所 难 免, 恳 请 广 大 读 者 将 本 套 教 材 的 使 用 情 况 及 各 种 意 见 建 议 及 时 反 馈 给 我 们, 以 便 我 们 在 今 后 的 工 作 中, 不 断 地 改 进 和 完 善 全 国 计 算 机 等 级 考 试 命 题 研 究 中 心

目 录 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 一 )(Visual Basic 语 言 程 序 设 计 )...1 参 考 答 案 及 分 析...9 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 二 )(Visual Basic 语 言 程 序 设 计 )...13 参 考 答 案 及 分 析...21 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 三 )(Visual Basic 语 言 程 序 设 计 )...25 参 考 答 案 及 分 析...33 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 四 )(Visual Basic 语 言 程 序 设 计 )...37 参 考 答 案 及 分 析...45 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 五 )(Visual Basic 语 言 程 序 设 计 )...49 参 考 答 案 及 分 析...57 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 六 )(Visual Basic 语 言 程 序 设 计 )...61 参 考 答 案 及 分 析...72 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 七 )(Visual Basic 语 言 程 序 设 计 )...77 参 考 答 案 及 分 析...85 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 八 )(Visual Basic 语 言 程 序 设 计 )...89 参 考 答 案 及 分 析...97 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 九 )(Visual Basic 语 言 程 序 设 计 )...101 参 考 答 案 及 分 析...109 全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 十 )(Visual Basic 语 言 程 序 设 计 )...113 参 考 答 案 及 分 析...124 2002 年 9 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 (Visual Basic 语 言 程 序 设 计 )...129 参 考 答 案 及 分 析...140 2003 年 4 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 (Visual Basic 语 言 程 序 设 计 )...145 参 考 答 案 及 分 析...156 2003 年 9 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 (Visual Basic 语 言 程 序 设 计 )...161 参 考 答 案 及 分 析...169 2004 年 4 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 (Visual Basic 语 言 程 序 设 计 )...173 参 考 答 案 及 分 析...183 上 机 考 试 真 题...186 参 考 答 案 及 分 析...188

全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 一 ) (Visual Basic 语 言 程 序 设 计 ) ( 考 试 时 间 90 分 钟, 满 分 100 分 ) 一 选 择 题 ( 每 小 题 2 分, 共 70 分 ) 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 答 案 是 正 确 的, 请 将 正 确 选 项 涂 写 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 1.( ) 操 作 可 以 打 开 属 性 窗 口 A) 单 击 鼠 标 右 键 按 钮 B) 执 行 视 图 菜 单 中 的 属 性 窗 口 命 令 C) 双 击 代 码 窗 口 D) 双 击 任 何 一 个 对 象 2.( ) 不 是 Visual Basic 具 有 的 特 点 A) 程 序 接 口 B) 动 态 数 据 交 换 C) 对 象 的 链 接 与 嵌 入 D) 双 项 编 程 3. 在 属 性 窗 口 中, 属 性 按 ( ) 两 种 方 式 排 列 A) 字 母 顺 序 和 分 类 B) 文 件 大 小 和 名 称 C) 日 期 和 时 间 D) 事 件 和 对 象 4. 下 列 程 序 段 的 执 行 结 果 为 ( ) Dim M (10) For i=0 To 10 M (I)=2*I Next i Print M (M(3)) A)12 B)6 C)0 D)4 5. 单 击 命 令 按 钮 时, 下 列 程 序 代 码 的 执 行 结 果 为 ( ) Public Sub Procl (n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 Private Sub Command1_Click ( ) Dim x As Integer,y As Integer x=12:y=34 Call Procl (x,y) Print x;y 1

A)12 34 B)2 34 C)2 3 D)12 3 6. 某 关 键 字 是 窗 体 的 通 用 称 呼, 在 某 一 时 刻, 它 代 表 当 前 窗 体 这 个 关 键 字 是 ( ) A)Sub B)End C)Exit D)Me 7.( ) 文 件 是 VB 工 程 中 可 选 的 文 件 A) 工 程 B) 窗 体 C) 窗 体 的 二 进 制 D) 资 源 8. 表 达 式 Left("how are you",3) 的 值 是 ( ) A)how B)are C)you D)how are you 9. 表 达 式 Abs(-5)+Len("ABCDE") 的 值 是 ( ) A)5ABCDE B)-5ABCDE C)10 D)0 10. 设 用 复 制 粘 贴 的 方 法 建 立 了 一 个 命 令 按 钮 数 组 Command1, 以 下 对 该 数 组 的 说 法 错 误 的 是 ( ) A) 命 令 按 钮 的 所 有 Caption 属 性 都 是 Command 1 B) 在 代 码 中 访 问 任 意 一 个 命 令 按 钮 只 需 使 用 名 称 Command 1 C) 命 令 按 钮 的 大 小 都 相 同 D) 命 令 按 钮 共 享 相 同 的 事 件 过 程 11. 下 列 程 序 段 的 执 行 结 果 为 ( ) K=0 For i=1 To 3 A=I^I^K Print A; Next I A)1 1 1 B)1 4 9 C)0 0 0 D)1 2 3 12. 表 达 式 Right("Beijing",4) 的 值 是 ( ) A)Beij B)jing C)eiji D)ijin 13. 语 句 Dim arr(-3 to 5,2 to 6)As Integer 定 义 的 数 组 元 素 有 ( ) A)45 个 B)40 个 C)11 个 D)54 个 14. 指 定 在 第 20 行 第 10 列 作 为 下 一 个 打 印 页 的 起 始 位 置 所 用 的 定 位 语 句 是 ( ) A)Locate 10,20 B)Locate 20,10 C)Line 10,Column 20 D)Position 20,10 15. 有 如 下 程 序 : DEF fna(a,b,c)=(a+b*b)*c a=3:b=5:c=7 abc=fna(c,a,b) Print abc End 程 序 运 行 后, 输 出 的 结 果 是 ( ) 2

A)98 B)96 C)80 D)196 16. 过 程 中 的 变 量 值 对 过 程 来 说 是 ( ) 的 A) 公 有 B) 全 局 C) 局 部 D) 不 变 17. 用 类 型 说 明 符 放 在 变 量 名 的 尾 部, 可 以 定 义 变 量 的 类 型 用 ( ) 符 号 说 明 的 变 量 是 单 精 度 类 型 A)% B)& C)! D) 不 变 18. 数 学 式 (2a + 3b)Cosp 的 VB 6.0 中 的 表 达 式 为 ( ) A) ((2*a+3*b)*Cos(p) B)Abs((2a +3b)*Cos(p)) C)Abs((2*a + 3*b)*Cos(p)) D)Abs((2*a + 3*b)*Cosp) 19. 能 被 对 象 所 识 别 的 动 作 与 对 象 可 执 行 的 动 作 分 别 称 为 对 象 的 ( ) A) 方 法 事 件 B) 事 件 方 法 C) 事 件 属 性 D) 过 程 属 性 20. 要 把 名 称 为 List1 的 列 表 框 中 当 前 选 中 的 一 项 删 除, 应 执 行 ( ) 语 句 A)List1.Clear B)List1.Delete List1.ListIndex C)List1.Remove List1.ListIndex D)List1.Clear List1.ListIndex 21. 在 文 件 列 表 框 中, 要 使 它 能 够 显 示 隐 藏 文 件, 应 使 它 的 ( ) 属 性 为 True A)Archive B)Normal C)Hidden D)System 22. 窗 体 的 Name 属 性 为 Frm1, 在 窗 体 模 块 通 用 声 明 处 和 过 程 Sub1 中 分 别 用 Public x As Integer, Dim x As Integer 声 明 了 两 个 同 名 变 量 x, 则 在 过 程 Sub1 中 要 访 问 全 局 变 量 x, 可 采 用 ( ) A)Frm1.x B)Form.x C)Form1.x D)x 23. 由 系 统 触 发 的 事 件 有 ( ) A)DragD, Click, DblClick B)MouseDown, MouseUp, MouseMove C)Initialize, Load, Timer D)KeyPress, KeyDown, KeyUp 24. 有 如 下 程 序 : a=0 For j=1 To 20 Step 2 a=a+j\5 Next j Print a End 运 行 后, 输 出 的 结 果 是 ( ) A)12 B)16 C)40 D)100 25. 有 如 下 程 序 : For m=1 To 4 a=0 For j=1 To 5 a=1 For k=1 To 6 a=a+3 Next k 3

Next j Next m Print a End 程 序 运 行 后, 输 出 的 结 果 是 ( ) A)18 B)19 C)91 D)432 26. 有 如 下 程 序 : a$="1223458764" d$=left$(a $,1) For i=2 To Len(a $) z$=mid$(a $,i,1) If z$>d$ Then d$=z$ Next i Print d$ End 程 序 运 行 后, 输 出 的 结 果 是 ( ) A)1 B)7 C)4 D)8 27. 有 如 下 程 序 : For m=3 To 1 Step-1 x$=string$(m,"@") Print m;x$ Next m End 程 序 运 行 时 输 出 的 结 果 是 ( ) A)1 @ B)1 @ 2 @ @ 2 @ 3 @ @@ 3 @ C)3 @ D)3 @ @ @ 2 @@ 2 @ @ 1 @@ @ 1 @ 28. 有 如 下 程 序 : score = Asc("A")+1 Select Case score Case Is<60 a$ = "D" Case 60 To 69 a$ = "C" Case 80 To 89 4

a$ = "B" Case Else a$ = "A" End Select MsgBox a$ 程 序 运 行 后, 消 息 对 话 框 中 显 示 的 内 容 为 ( ) A)A B)B C)C D)D 29. 在 窗 体 中 添 加 一 个 命 令 按 钮 和 一 个 文 本 框, 并 编 写 如 下 程 序 代 码 : For a = 1 To 5 y = 1 For c = 1 To 6 x = x + 1 y = y + 1 Next c Next a Text1.Text = y 程 序 运 行 后, 单 击 命 令 按 钮, 文 本 框 中 的 值 为 ( ) A)61 B)60 C)36 D)6 30. 下 面 程 序 运 行 后 输 出 的 结 果 是 ( ) Private Sub Convert(y As Integer) k = y y = 1 For j = 1 To k y = y * j Next j Dim s As Integer Sum = 3 Call Convert(Sum + 1) Print Sum A)1 B)4 C)3 D)120 31. 程 序 代 码 如 下, 当 单 击 窗 体 上 的 Command1 控 件 时, 窗 体 上 显 示 的 结 果 是 ( ) Option Base1 5

Dim i As Integer Dim x(3,3) As Integer For i = 1 To 3 For j = 1 To 3 x(i, j) = (i 1)*3+j Next j Next I A)1 5 9 B)1 4 7 C)3 5 7 D)3 6 9 32. 在 窗 体 上 放 置 一 个 Label 控 件, 一 个 Command1 和 一 个 Timer1 控 件, 如 图 1 所 示 预 将 计 算 机 系 统 时 间 ( 一 秒 刷 新 一 次 ) 显 示 在 窗 体 上 图 1 Private Sub Form_Load() Timer1.Interval =( ) Private Sub Timer1_Timer() Label1.Caption = Now End 时 间 间 隔 Timer1.Interval 为 ( ) A)1 B)100 C)1000 D)0 33. 为 了 使 文 本 框 同 时 具 有 水 平 和 垂 直 滚 动 条, 应 先 把 MultiLine 属 性 设 置 为 True, 然 后 再 把 ScrollBars 属 性 设 置 为 ( ) A)0 B)1 C)2 D)3 34. 执 行 下 面 的 程 序 段 后,b 的 值 为 ( ) a = 11: b = 4 a = a + b: a =a-1 b = a +2 Print b A)4 B)11 C)16 D)18 6

35. 假 定 有 如 下 的 Sub 过 程 : Sub Sub1(x As Single,y As Single) t = x x = t/y y = t Mod y 在 窗 体 上 画 一 个 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 : Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a;b 程 序 运 行 后, 单 击 命 令 按 钮, 输 出 结 果 为 ( ) A)5 4 B)1 1 C)1.2 5.4 D)1.25 1 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 1 ~ 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 1. 下 列 Visual Basic 表 达 式 有 错 误, 其 正 确 的 形 式 是 1 [(x + y)]+z 80-5(c+d) 2. 以 下 程 序 实 现 每 次 单 击 按 钮 Command1 时, 标 签 在 窗 体 Form1 上 向 右 移 动 100 缇, 当 标 签 移 动 出 窗 体 右 边 界 时, 再 次 单 击 按 钮 标 签 将 回 到 窗 体 的 左 边 界 Private Sub Command1_Click( ) If Label1.Left>Form1.Scale Width Then 2 Else 3 End If 3. 不 可 以 给 4 级 菜 单 设 置 快 捷 键 4. 下 面 程 序 运 行 后, 输 出 的 结 果 如 图 2 所 示 请 将 下 面 程 序 补 充 完 整 图 2 7

x = "*********" For i = 1 To 4 Print Tab(10 5 ); Left(x, i * 2-1) Next i For i = 0 To 2 Print Tab(7 6 ); Left(x, 5 - i * 2) Next i 5. 下 列 程 序 完 成 的 功 能 是 找 出 某 数 各 位 的 数 字 的 阶 乘 相 加 之 和 等 于 该 数, 阶 乘 由 Function 过 程 计 算 阅 读 下 面 程 序 并 补 充 完 整 For k = 1 To 10000 a = Ltrim(Str(k)) n = 0 For i = 7 p = Val(Mid(a, i, 1)) n = 8 Next i If n = k Then Print k Next k Function fact(x) If x<=1 Then fact = 1 Else fact = 9 End If End Function 6. 在 对 象 的 KeyDown 和 KeyUp 事 件 过 程 中, 当 参 数 Shift 的 值 为 1,2,4 时, 分 别 表 示 用 户 按 下 了 10 11 和 12 键 7. 以 下 程 序 在 文 本 框 Text1 中 输 入 任 一 字 符 串, 并 按 相 反 的 次 序 显 示 在 文 本 框 Text2 中 Private Sub Command1_Click( ) Dim N As String,C As String,D As String N=Text1.Text M= 13 For I=M To 1 Step-1 C=Mid(N,I,1) D=D& 14 8

Next I 15 =D 参 考 答 案 及 分 析 一 选 择 题 1. 答 案 B) 分 析 按 下 F4 键, 在 对 象 上 单 击 右 键, 从 弹 出 的 快 捷 菜 单 中 选 择 属 性 窗 口 选 取 项, 单 击 工 具 栏 上 的 属 性 窗 口 按 钮 和 执 行 视 图 菜 单 中 的 属 性 窗 口 都 能 打 开 属 性 窗 口 2. 答 案 D) 分 析 VB6.0 具 备 应 用 程 序 接 口 (API) 动 态 数 据 交 换 (DDE) 对 象 的 链 接 与 嵌 入 (OLE) 和 动 态 链 接 库 (DLL) 等 特 性 3. 答 案 A) 分 析 在 属 性 窗 口 中, 属 性 按 两 种 方 式 排 列 : 按 字 母 顺 序 排 列 和 按 分 类 排 列 4. 答 案 A) 分 析 M(3)=2*3=6,M(M(3))=M(6)=2*6=12 5. 答 案 C) 分 析 变 量 的 地 址 和 被 调 用 过 程 中 的 地 址 是 相 同 的 即 通 用 过 程 中 的 操 作 修 改 了 参 数 的 值, 同 时 也 修 改 了 传 送 给 过 程 的 变 量 的 值 因 此 实 参 x 和 y 的 值 分 别 为 2 和 3 6. 答 案 D) 分 析 Me 关 键 字 是 窗 体 的 通 用 称 呼, 在 某 一 时 刻, 它 代 表 当 前 窗 体 7. 答 案 D) 分 析 VB 工 程 包 含 的 文 件, 只 有 工 程 窗 体 和 窗 体 的 二 进 制 文 件 是 必 需 的, 其 他 类 模 块 标 准 模 块 资 源 文 件 等, 都 是 可 选 的 8. 答 案 A) 分 析 Left$( 字 符 串,n) 表 示 取 字 符 串 左 部 的 n 个 字 符 9. 答 案 C) 分 析 Abs(x) 返 回 自 变 量 的 绝 对 值, 而 Len( 字 符 串 ) 用 于 测 试 字 符 串 的 长 度 10. 答 案 B) 分 析 控 件 数 组 的 每 个 元 素 共 享 名 称 属 性, 而 其 中 的 各 个 元 素 的 区 分 由 索 引 即 下 标 来 决 定 11. 答 案 A) 分 析 同 级 运 算 符, 从 左 到 右 计 算, 因 为 K=0, 任 何 数 的 零 次 幂 都 为 1 12. 答 案 B) 分 析 Right$( 字 符 串,n) 表 示 取 字 符 串 右 部 的 n 个 字 符 13. 答 案 A) 分 析 -3 至 5 即 为 9 行,2 至 6 即 为 5 列,5*9=45 14. 答 案 B) 9

分 析 LOCATE n, m 表 示 定 位 在 第 n 行 第 m 列 15. 答 案 C) 分 析 abc=fna(c,a,b)=(c+a*a)*b=(7+3*3)*5=80 16. 答 案 C) 分 析 在 过 程 内 部 用 Dim 语 句 声 明 的 变 量, 只 有 在 该 过 程 执 行 时 才 存 在, 过 程 一 结 束, 该 变 量 的 值 也 就 消 失 了 此 外, 过 程 中 的 变 量 值 对 过 程 来 说 是 局 部 的, 也 就 是 说, 无 法 在 一 个 过 程 中 访 问 另 一 个 过 程 中 的 变 量 基 于 这 些 特 点, 在 不 同 过 程 中 就 可 使 用 相 同 的 变 量 名, 而 不 必 担 心 有 什 么 冲 突 和 意 想 不 到 的 变 故 17. 答 案 C) 分 析 在 VB 中 定 义 变 量 时, 可 采 用 Dim 等 语 句 来 进 行 显 示 说 明, 也 可 以 通 过 在 变 量 名 后 加 一 个 用 于 规 定 变 量 类 型 的 说 明 字 符 来 规 定 变 量 的 类 型, 这 种 方 法 称 为 隐 式 说 明 字 符 与 变 量 类 型 的 对 应 关 系 可 参 看 表 1 18. 答 案 C) 表 1 隐 式 说 明 的 字 符 与 类 型 说 明 字 符 示 例 类 型 % A% A 是 整 型 变 量 & A& A 是 长 整 型 变 量! A! A 是 单 精 度 变 量 # A# A 是 双 精 度 变 量 @ A@ A 是 货 币 型 变 量 $ A$ A 是 字 符 型 变 量 分 析 把 代 数 表 达 式 写 成 VB 格 式 的 形 式, 要 用 算 术 运 算 符 和 内 部 函 数 来 实 现 初 学 者 易 搞 混 淆 的 有 : 把 2*a 写 成 2a, 用 Cosp 表 示 Cos(p) 19. 答 案 B) 分 析 对 象 具 有 一 定 的 特 征, 称 之 为 属 性,VB 中 对 象 的 属 性 都 有 固 定 的 名 称 ; 对 象 能 够 对 外 界 的 刺 激 产 生 响 应, 这 种 对 象 能 够 响 应 的 刺 激 称 之 为 事 件,VB 中 的 事 件 也 有 规 定 好 了 的 名 称 ; 对 象 具 有 一 定 的 功 能 ( 即 能 够 执 行 一 定 的 操 作 ), 对 象 的 功 能 称 为 方 法 20. 答 案 C) 分 析 执 行 列 表 框 的 Clear 属 性 可 把 列 表 框 中 的 所 有 选 项 清 除,Clear 方 法 设 有 参 数, 列 表 框 无 Delete 方 法 可 以 使 用 列 表 框 的 Remove 方 法 从 文 本 框 中 移 去 某 一 项, 后 面 跟 移 去 项 的 编 号 ( 从 0 开 始 ), 当 前 选 中 项 的 编 号 保 存 在 列 表 框 的 ListIndex 属 性 中, 故 答 案 C) 是 正 确 的 21. 答 案 C) 分 析 文 件 列 表 框 有 一 些 属 性 用 来 控 制 在 文 件 列 表 框 中 显 示 的 文 件 类 型 Archive 属 性 设 置 为 True 时 将 在 其 中 显 示 具 有 归 档 属 性 的 文 件 ;Hidden 属 性 设 置 为 True 时 将 在 其 中 显 示 具 有 隐 藏 属 性 的 文 件 ;System 属 性 设 置 为 True 时 将 在 其 中 显 示 具 有 系 统 属 性 的 文 件 ;Normal 属 性 设 置 为 True 时 将 在 其 中 显 示 具 有 归 档 属 性 和 只 读 属 性 的 文 件 22. 答 案 A) 分 析 本 题 的 难 点 是 全 局 变 量 和 局 部 变 量 的 概 念 如 果 过 程 Sub1 中 没 有 声 明 变 量 x, 那 么 在 这 个 窗 体 的 工 程 中 都 可 以 直 接 使 用 变 量 x, 否 则 就 要 在 变 量 前 加 窗 体 名, 即 窗 体 名. 变 量 名 的 形 式, 以 便 于 区 别 23. 答 案 C) 分 析 与 键 盘 事 件 有 关 的 是 KeyPress,KeyDown,KeyUp, 与 鼠 标 事 件 有 关 的 是 DragDrop, 10

Click,DblClick,MouseDown,MouseUp,MouseMove 24. 答 案 B) 分 析 进 入 循 环,j 依 次 为 1,3,5,7,9,11,13,15,17,19; 则 a=0+0+0+1+1+1+2+2+3+3+3=16 25. 答 案 B) 分 析 第 一 圈 循 环 和 第 二 圈 循 环 不 论 如 何 循 环, 都 不 影 响 到 内 循 环 的 计 算 因 为 第 二 圈 内 的 循 环 体 中 的 第 一 条 语 句 a=1 26. 答 案 D) 分 析 以 下 程 序 的 功 能 是 将 给 定 的 字 符 串 中 的 字 符 逐 个 提 出 来, 与 给 定 的 字 符 串 中 的 第 一 个 字 符 相 比 较, 输 出 字 符 中 ASCII 码 值 最 大 的 字 符 27. 答 案 D) 分 析 String$(n, 字 符 串 ) 返 回 由 n 个 字 符 组 成 的 字 符 串 For 循 环 先 从 m=3 开 始 28. 答 案 C) 分 析 本 题 的 焦 点 是 Asc(x) 函 数, 它 是 求 单 个 字 符 ASCII 代 码 函 数,Asc("A")=65,score = 65 + 1=66, 符 合 条 件 60 To 69,a$ = "D" 29. 答 案 A) 分 析 该 题 的 焦 点 是 对 循 环 初 值 的 理 解 a 循 环 了 5 次, 每 次 y = 1, 实 际 上 只 有 最 后 一 次 y 值 才 被 保 留 b 和 c 共 循 环 了 60 次,y 加 上 初 值 1, 所 以 y=61 30. 答 案 C) 分 析 本 题 的 焦 点 是 子 过 程 调 用 和 参 数 传 递 的 概 念 VB 用 两 种 方 式 调 用 Sub 过 程 一 种 是 把 过 程 名 放 在 Call 语 句 中,; 一 种 是 把 过 程 名 作 为 一 个 语 句 来 使 用 如 果 使 用 Call 关 键 字 来 调 用 一 个 需 要 参 数 的 过 程,x 就 必 须 加 上 括 号 ; 如 果 省 略 了 Call 关 键 字, 那 么 也 必 须 省 略 x 外 面 的 括 号 ByVal 表 示 该 参 数 按 值 传 递 ;ByRef 表 示 该 参 数 按 地 址 传 递 ByRef 是 VB 的 缺 省 选 项 在 缺 省 情 况 下, 实 参 是 变 量, 按 地 址 传 递 ; 实 参 是 常 数 和 计 算 表 达 式 按 值 传 递 0 是 强 制 运 算, 其 结 果 也 按 值 传 递 31. 答 案 C) 分 析 本 题 首 先 通 过 一 个 双 重 For 循 环 给 一 个 3 行 3 列 的 数 组 x 的 每 个 元 素 赋 值, 赋 值 规 律 是 每 个 元 素 的 值 是 它 的 行 下 标 减 1 乘 3 加 上 列 下 标 然 后 通 过 一 个 For 循 环 输 出 三 个 元 素 :x(1,3), x(2,2) 和 x(3,1), 它 们 的 值 分 别 为 :x(1,3)=(1-1)*3+3=3,x(2,2)=(2-1)*3+2=5,x(3,1)=(3-1)*3+1=7 32. 答 案 C) 分 析 Timer1.Interval 值 为 毫 秒 数 33. 答 案 D) 分 析 当 文 本 超 过 控 件 边 界 时 可 将 MultiLine 属 性 设 置 为 True, 使 控 件 自 动 换 行, 并 可 将 ScrollBars 属 性 设 置 成 添 加 水 平 滚 动 条 或 垂 直 滚 动 条 ( 或 者 两 种 都 添 加 3-Both), 由 此 即 添 加 了 滚 动 条 34. 答 案 C) 分 析 变 量 内 数 据 存 储 最 后 一 次 赋 值 的 结 果 35. 答 案 D) 分 析 本 题 重 点 是 在 子 过 程 的 调 用 过 程 中 虚 实 参 数 的 传 送 问 题, 变 量 a 和 b 按 地 址 传 送, 返 回 子 过 程 的 x 和 y 值 11

二 填 空 题 1. 1 ((x + y)+z)*80-5*(c + d) 分 析 Visual Basic 表 达 式 中 没 有 [ 和 ], 乘 号 不 能 省 略, 用 * 表 示 2. 2 Label1.Left = 0 3 Label1.Left=Label1.Left+100 分 析 标 签 控 件 的 Left 属 性 表 示 设 置 其 内 部 左 边 缘 与 窗 体 的 左 边 缘 之 间 的 距 离 程 序 中 第 二 行 语 句 的 意 思 是 : 如 果 标 签 控 件 移 到 窗 体 的 右 边 界 时, 则 应 将 标 签 控 件 移 到 窗 体 的 左 边 界 3. 4 顶 分 析 快 捷 键 即 可 以 利 用 键 盘 按 键, 快 速 地 执 行 某 个 命 令 项, 顶 级 菜 单 下 还 具 有 子 菜 单 项, 子 菜 单 项 才 可 能 直 接 是 命 令 项 4. 5 -i 6 +i 分 析 本 题 的 重 点 是 输 出 定 位 函 数 Tab() 循 环 变 量 i 的 作 用 是 控 制 图 案 的 层 数 Tab(n) 用 来 将 其 后 的 输 出 项 定 位 在 第 n 列 若 使 用 无 参 Tab 函 数, 则 将 下 一 个 输 出 项 定 位 在 下 一 个 标 准 输 出 区 的 开 始 位 置 Left(x,n) 从 x 字 符 串 左 边 起 取 n 个 字 符 5. 7 1 To Len(a) 8 n + fact(p) 9 x*fact(x-1) 分 析 本 题 利 用 字 符 串 函 数 对 数 据 进 行 数 字 和 字 符 之 间 的 双 向 转 换, 能 简 单 地 处 理 单 个 数 字 在 For 循 环 中 进 行 单 个 数 字 的 处 理, 因 此 循 环 次 数 即 是 数 据 的 长 度, 调 用 Function 过 程 计 算 单 个 数 字 的 阶 乘, 并 进 行 累 加, 在 Function 过 程 中, 注 意 利 用 过 程 的 递 归 调 用 来 计 算 阶 乘 6. 10 Shift 键 11 Ctrl 键 12 Alt 键 分 析 参 数 Shift 为 转 换 键, 它 指 的 是 Shift,Ctrl 和 Alt 三 个 转 换 键 的 状 态 当 按 下 Shift 键 时,Shift 参 数 的 值 为 1; 当 按 下 Ctrl 键 时,Shift 参 数 的 值 为 2; 而 按 下 Alt 键 时,Shift 参 数 的 值 为 4 7. 13 Len(Text1.Text) 14 C 15 Text2.Text 分 析 要 将 文 本 框 中 的 字 符 串 按 相 反 次 序 显 示 出 来, 题 中 是 用 Mid 函 数 来 实 现, 则 首 先 应 求 出 字 符 串 的 长 度, 再 利 用 循 环 语 句 逐 个 提 取 出 来, 最 后 再 在 Text2 文 本 框 中 显 示 出 来 12

全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 二 ) (Visual Basic 语 言 程 序 设 计 ) ( 考 试 时 间 90 分 钟, 满 分 100 分 ) 一 选 择 题 ( 每 小 题 2 分, 共 70 分 ) 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 答 案 是 正 确 的, 请 将 正 确 选 项 涂 写 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 1.VB 6.0 不 能 开 发 基 于 ( ) 的 应 用 软 件, 它 也 不 能 在 这 种 操 作 系 统 中 运 行 A)Windows 98 B)Windows 2000 C)Unix X D)WinNT 4.0 2. 下 列 ( ) 不 是 Visual Basic 具 有 的 特 点 A) 与 C 语 言 程 序 代 码 兼 容 B) 动 态 链 接 库 C) 对 象 的 链 接 与 嵌 入 D) 程 序 接 口 3. 在 下 列 对 工 具 箱 的 描 述 中, 错 误 的 是 ( ) A) 工 具 箱 中 可 以 添 加 ActiveX 控 件 B) 工 具 箱 中 的 标 准 控 件 能 从 工 具 箱 中 移 除 C) 对 工 具 箱 添 加 选 项 卡, 可 以 定 制 工 具 箱 D) 用 工 程 菜 单 中 的 部 件 命 令 来 添 加 控 件, 可 以 定 制 通 用 选 项 卡 或 专 用 选 项 卡 4. 下 列 程 序 段 的 执 行 结 果 为 ( ) For X=5 To 1 Step-1 For Y=1 To 6-X Print Tab(Y+5);"*"; Next Y Print Next X A) * * * * * B) * * * * * C) * D) * * * * * * * * * * * * * * * * * ** ** * * * * * * * * * * * * * * * * * * * * * * * 5. 下 面 叙 述 中 不 正 确 的 是 ( ) * * * * * * * * * * * * * * * A) 若 使 用 Write # 语 句 将 数 据 输 出 到 文 件, 则 各 数 据 项 之 间 自 动 插 入 逗 号, 并 且 将 字 符 串 加 上 双 引 号 B) 若 使 用 Print # 语 句 将 数 据 输 出 到 文 件, 则 各 数 据 项 之 间 没 有 逗 号 分 隔, 且 字 符 串 不 加 双 13

引 号 C)Write # 语 句 和 Print # 语 句 建 立 的 顺 序 文 件 格 式 完 全 一 样 D)Write # 语 句 和 Print # 语 句 均 实 现 向 文 件 中 写 入 数 据 6. 在 VB 应 用 程 序 中,( ) 完 全 由 代 码 组 成 A) 类 模 块 B) 窗 体 模 块 C) 标 准 模 块 D) 资 源 文 件 模 块 7.Function 过 程 要 由 函 数 名 返 回 一 个 值, 如 果 不 使 用 As 数 据 类 型 选 项 来 指 定 函 数 的 类 型, 函 数 类 型 默 认 为 ( ) 类 型 A)Integer B)Variant C)Long D)String 8. 下 面 程 序 段 的 执 行 结 果 为 ( ) I=4 A=5 Do I=I+1 A=A+2 Loop Until I>=7 Print"I=";I Print"A=";A A)I=4 B)I=7 C)I=8 D)I=7 A=5 A=13 A=7 A=11 9. 用 类 型 说 明 符 放 在 变 量 名 的 尾 部, 可 以 定 义 变 量 的 类 型 用 ( ) 说 明 符 说 明 变 量 是 双 精 度 类 型 A)% B)@ C)& D)# 10. 表 达 式 2+3*4^5-Sin(x+1)/2 中 最 先 进 行 的 运 算 是 ( ) A)4^5 B)3*4 C)x+1 D)Sin( ) 11. 在 随 机 文 件 中 ( ) A) 记 录 号 是 通 过 随 机 数 产 生 的 B) 可 以 通 过 记 录 号 随 机 读 取 记 录 C) 记 录 的 内 容 是 随 机 产 生 的 D) 记 录 的 长 度 是 任 意 的 12. 变 量 未 赋 值 时, 数 值 型 变 量 的 值 为 ( ), 字 符 串 变 量 的 值 为 ( ) A)0 B) 空 串 " " C)Null D) 没 有 任 何 值 13. 下 列 语 句 中 正 确 的 是 ( ) A)txt1.Text + txt2.text = txt3.text B)Command1.Name = cmdok C)12Label.Caption = 1234 D)A = InputBox(Hello) 14

14. 要 使 一 个 标 签 透 明 且 不 具 有 边 框, 则 应 ( ) A) 将 其 BackStyle 属 性 设 置 为 0,BorderStyle 属 性 设 置 为 0 B) 将 其 BackStyle 属 性 设 置 为 0,BorderStyle 属 性 设 置 为 1 C) 将 其 BackStyle 属 性 设 置 为 1,BorderStyle 属 性 设 置 为 0 D) 将 其 BackStyle 属 性 设 置 为 1,BorderStyle 属 性 设 置 为 1 15. 如 果 将 布 尔 常 量 值 True 赋 值 给 一 个 整 型 变 量, 则 整 型 变 量 的 值 为 ( ) A)0 B)-1 C)True D)False 16. 下 列 符 号 常 量 的 声 明 中,( ) 是 不 合 法 的 A)Const a As Single=1.1 B)Const a As Integer="12" C)Const a As Double=Sin(1) D)Const a="ok" 17. 下 列 程 序 段 的 执 行 结 果 为 ( ) X=1 Y=1 For I=1 To 3 F=X+Y X=Y Y=F Print F; Next I A)2 3 6 B)2 2 2 C)2 3 4 D)2 3 5 18. 如 果 要 在 文 本 框 中 输 入 字 符 时, 只 显 示 某 个 字 符, 如 星 号 (*), 应 设 置 文 本 框 的 ( ) 属 性 A)Caption B)PasswordChar C)Text D)Char 19. 在 一 个 语 句 行 内 写 多 条 语 句 时, 语 句 之 间 应 该 用 ( ) 分 隔 A) 逗 号 B) 分 号 C) 顿 号 D) 冒 号 20. 函 数 Int(Rnd(0)*11)+10 的 值 的 范 围 是 ( ) A)[0,20] B)[10,10] C)[10,20] D)[0,10] 21. 要 获 得 当 前 驱 动 器 应 使 用 驱 动 器 列 表 框 的 ( ) 属 性 A)Path B)Drive C)Dir D)Pattern 22. 以 下 不 合 法 的 常 量 是 ( ) A)10^2 B)100 C)100.0 D)10E+01 23. 执 行 语 句 Open"C:StuData.dat"For Input As #2 后, 系 统 ( ) A) 将 C 盘 当 前 文 件 夹 下 名 为 StuData.dat 的 文 件 的 内 容 读 入 内 存 15

B) 在 C 盘 当 前 文 件 夹 下 建 立 名 为 StuData.dat 的 顺 序 文 件 C) 将 内 存 数 据 存 放 在 C 盘 当 前 文 件 夹 下 名 为 StuData.dat 的 文 件 中 D) 将 某 个 磁 盘 文 件 的 内 容 写 入 C 盘 当 前 文 件 夹 下 名 为 StuData.dat 的 文 件 中 24. 如 果 将 PasswordChar 属 性 设 置 为 一 个 字 符, 如 星 号 (*), 运 行 时, 在 文 本 框 中 输 入 的 字 符 仍 然 显 示 出 来, 而 不 显 示 星 号, 原 因 可 能 是 ( ) A) 文 本 框 的 MultiLine 属 性 值 为 True B) 文 本 框 的 Locked 属 性 值 为 True C) 文 本 框 的 MultiLine 属 性 值 为 False D) 文 本 框 的 Locked 属 性 值 为 False 25. 下 列 程 序 段 的 执 行 结 果 为 ( ) A=1:B=0 Select Case A Case 1 Select Case B Case 0 Print"**0**" Case 1 Print"**1**" End Select Case 2 Print"**2**" End Select A)**0** B)**1** C)**2** D)0 26. 在 一 个 窗 体 ( 窗 体 名 :Form1) 上 建 立 一 个 Label 控 件 ( 名 称 :Label1), 一 个 PictureBox( 名 称 :PictureBox1) 控 件, 当 在 PictureBox1 上 按 下 鼠 标 左 键 时,Label1 控 件 中 显 示 ( ) Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case Button Case 1 c = " 努 力 学 习 " Case 2 c = " 奋 发 向 上 " End Select Label1.Caption = c Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Caption = " 我 放 开 了 鼠 标 " A) 努 力 学 习 B) 奋 发 向 上 16

C) 我 放 开 了 鼠 标 D)c 27. 下 面 的 语 句 或 方 法, 错 误 的 有 ( ) 个 ( 其 中 m 和 n 都 为 Integer 型 变 量 ) (1)Dim Arty(m,n) As Integer (2)n = 32764+5 (3)Print A = A+B;A+B (4)ChDrive"C: " A)1 B)2 C)3 D)4 28. 有 如 下 程 序 : j=0:n=0 Do While n<3 j=(j+1)*(j+2) n=n+1 Loop Print j;n End 运 行 后 输 出 的 结 果 是 ( ) A)0 1 B)182 3 C)30 4 D)3 3 29. 有 如 下 程 序 : Dim arr(3,3) As Integer For m=1 To 3 For n=1 To 3 arr(m,n)=(m-1)*3+n Next n Next m For m=2 To 3 For n=1 To 2 Print arr(n,m) Next n Print Next m End 运 行 后 输 出 的 结 果 是 ( ) A) 2 5 B) 2 3 3 6 5 6 C) 4 7 D) 4 5 5 8 7 8 30. 有 如 下 程 序 : 17

n=3 For K=3 To 1 Step-1 x$= String$(n, "$") Print k;x$ n=n-1 Next K End 运 行 后 输 出 的 结 果 是 ( ) A)3 $ $ $ B)1 $ 2 $ $ 2 $ $ 1 $ 3 $ C)3 $ D)1 $ 2 $ $ 2 $ 1 $ $ $ 3 $ $ $ 31. 有 如 下 程 序 : sum=0 For m= 1 To 3 If m<=1 Then a=1 ElseIf m<=2 Then a=2 ElseIf m<=3 Then a=3 Else a=4 End If Print a; sum=sum+a Next m Print sum End 运 行 后 输 出 的 结 果 是 ( ) A)3 3 3 9 B)3 2 1 6 C)1 1 1 3 D)1 2 3 6 32. 有 如 下 程 序 : m$="abc" n$="abc" k$=lcase$ (m$) j$=ucase$ (n$) 18

Print Chr$ (Asc(k$+j$)) End 运 行 后 输 出 的 结 果 是 ( ) A)abcabc B)ABCABC C)A D)a 33. 以 下 有 关 变 量 作 用 域 的 说 法 中, 错 误 的 是 ( ) A) 只 有 在 标 准 模 块 中 用 Public 语 句 说 明 的 变 量 才 是 全 局 变 量 B) 在 过 程 中 不 能 使 用 Public 语 句 说 明 全 局 变 量 C) 在 标 准 模 块 的 通 用 声 明 处 可 用 Private 语 句 说 明 模 块 级 变 量 D) 在 窗 体 的 通 用 声 明 处 可 用 Private 语 句 说 明 窗 体 级 变 量 34. 控 件 ( ) 属 性 的 设 置, 可 使 该 控 件 不 能 通 过 Tab 键 得 到 焦 点 A)TabStop B)TabIndex C)GotFocus D)SetFocus 35. 火 车 原 以 均 匀 速 度 v 0 (Km/h) 行 驶, 从 t=10 min 时 开 始 匀 加 速 运 行, 加 速 度 为 a(km/h 2 ) 问 经 过 t = 50 min 后 火 车 行 驶 的 距 离 (m)( 从 t=0 算 起 ) 当 输 入 60 和 80 后, 如 下 程 序 的 计 算 结 果 是 ( ) Dim v 0 As Single, v As Single, s As String Dim a As Single, t As Single, t1 As Single, t2 As Single v 0 = InputBox(" 输 入 初 速 度 v 0 ", 1) a = InputBox(" 输 入 加 速 度 a", 1) v 0 = v 0 * 1000 / 60 / 60 a = a * 1000 / 3600 ^ 2 t1 = 10 * 60 t2 = 50 * 60 t = t2 - t1 s = v 0 * t2 + 0.5 * a * t * t s = Int(s * 100 + 0.5) / 100 Print "s="; s A)s = 66.67 B)"s="; s C)s D)s = 67777.78 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 1 ~ 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 1. 弹 出 式 菜 单 在 1 中 设 计, 且 一 定 要 使 其 2 级 菜 单 不 可 见 2. 填 写 下 列 空 白 : a$ = Lcase("Hello") a$ 的 返 回 值 是 : 3 b$ = Ucase("Hello") b$ 的 返 回 值 是 : 4 3. 运 行 时, 要 使 工 具 栏 控 件 Toolbarl 中 的 第 二 个 按 钮 的 按 钮 菜 单 中 的 第 三 项 无 效 ( 变 成 灰 色 ), 19

应 使 用 语 句 : 5 4. 设 A=2,B=3,C=4,D=5, 写 出 下 列 布 尔 表 达 式 的 值 (1)A>B And C<=D Or 2*A>C 6 (2)3>2*B Or A=C And B< >C Or C>D 7 (3)Not A<=C Or 4*C=B^2 And B< >A+C 8 5. 在 窗 体 中 添 加 两 个 命 令 按 钮, 其 名 称 (Name 属 性 ) 分 别 为 Command1 和 Command2, 窗 体 加 载 时 要 求 Command1 不 可 用,Command2 可 用 ; 单 击 Command2 后,Command1 可 用 请 将 下 列 程 序 补 充 完 整 Private Sub Command2_Click() 9 Private Sub Form_Load() 10 6. 在 窗 体 上 加 一 个 文 本 框 ( 其 名 称 为 Text1), 编 写 如 下 事 件 过 程 : Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr (KeyCode-3); 则 程 序 运 行 后, 如 果 Text1 文 本 框 中 输 入 EFG, 则 在 窗 体 上 输 出 内 容 为 11 ; 而 如 果 在 Text1 文 本 框 中 输 入 efg 时, 则 在 窗 体 上 输 出 结 果 为 12 7. 下 面 是 一 个 体 操 评 分 程 序 20 位 评 委, 除 去 一 个 最 高 分 和 一 个 最 低 分, 计 算 平 均 分 ( 设 满 分 为 10 分 ) Private Sub Command1_Click ( ) Max=0 Min=10 For I=1 TO 20 N=Val (InputBox (" 请 输 入 分 数 ")) If 13 Then Max=N If 14 Then Min=N S=S+N Next I S= 15 P=S/18 Print" 最 高 分 ";Max," 最 低 分 ";Min Print" 最 后 得 分 :";P 20

参 考 答 案 及 分 析 一 选 择 题 1. 答 案 C) 分 析 VB 6.0 是 一 种 32 位 的 软 件 开 发 工 具, 它 只 能 在 Win 9x/Win NT 环 境 下 使 用, 只 能 设 计 在 Win 9x/Win NT 下 运 行 的 应 用 程 序 2. 答 案 A) 分 析 VB 6.0 具 备 应 用 程 序 接 口 (API) 动 态 数 据 交 换 (DDE) 对 象 的 链 接 与 嵌 入 (OLE) 和 动 态 链 接 库 (DLL) 等 特 性 3. 答 案 B) 分 析 VB 的 标 准 控 件, 这 种 类 型 的 控 件 不 能 从 工 具 箱 中 移 除 4. 答 案 C) 分 析 进 入 循 环,X=5, 内 循 环 循 环 一 次, 空 第 6 位, 打 印 (*);X=4, 内 循 环 循 环 2 次, 分 别 在 第 7 位 和 第 8 位 打 印 (*) 号 ; 依 次 类 推 会 出 现 答 案 C) 的 运 行 结 果 5. 答 案 C) 分 析 Print# 语 句 中 的 各 数 据 项 之 间 用 分 号 隔 开, 对 应 于 紧 凑 格 式, 如 用 逗 号 隔 开 则 对 应 于 标 准 格 式 ; 而 Write# 语 句 写 入 数 据 时, 数 据 在 磁 盘 上 以 紧 凑 格 式 存 放 6. 答 案 C) 分 析 VB 应 用 程 序 主 要 由 类 模 块 窗 体 模 块 和 标 准 模 块 组 成, 其 中, 窗 体 和 类 模 块 都 包 含 数 据 与 代 码, 只 有 标 准 模 块 完 全 由 代 码 组 成, 资 源 文 件 主 要 由 数 据 组 成 7. 答 案 B) 分 析 Function 过 程 函 数 名 省 略 As 数 据 类 型 选 项, 系 统 默 认 为 Variant 类 型 8. 答 案 D) 分 析 进 入 循 环,I=5,A=7; 再 循 环,I=6,A=9; 再 循 环,I=7,A=11, 退 出 循 环 9. 答 案 D) 分 析 当 用 类 型 说 明 符 放 在 变 量 名 的 尾 部 来 定 义 变 量 的 类 型 说 明 字 符 # 表 示 双 精 度 类 型 10. 答 案 C) 分 析 按 算 术 运 算 符 的 优 先 级 顺 序 : 表 达 式 中 含 有 括 号, 则 先 计 算 括 号 内 的 表 达 式 值 11. 答 案 B) 分 析 随 机 文 件 中 数 据 的 读 取 格 式 为 :Get # 文 件 号, [ 记 录 号 ], 变 量, 即 可 通 过 记 录 号 随 机 读 取 记 录 12. 答 案 A);B) 分 析 变 量 创 建 好 后, 其 在 被 赋 值 前 就 已 存 在 值, 数 值 型 变 量 为 0, 字 符 串 变 量 为 空 串 " " 13. 答 案 D) 分 析 InputBox(Hello) 函 数 返 回 输 入 值, 则 赋 值 给 A 14. 答 案 A) 分 析 BackStyle 属 性 设 置 为 0, 即 无 边 框, 而 BorderStyle 属 性 设 置 为 0, 标 签 透 明 15. 答 案 B) 21

分 析 布 尔 常 量 True 即 为 非 零, 一 般 认 为 -1 16. 答 案 C) 分 析 常 量 即 直 接 是 数 值 或 字 符 串, 答 案 C) 中 含 有 Sin(1) 即 为 表 达 式 17. 答 案 D) 分 析 进 入 循 环 后,F=2,x=1,y=2, 再 循 环 F=3,x=2,y=3, 再 循 环 F=5,x=3,y=5 18. 答 案 B) 分 析 文 本 框 的 PasswordChar 属 性 可 用 来 改 变 显 示 结 果, 只 显 示 某 个 字 符 而 不 是 实 际 内 容 19. 答 案 D) 分 析 一 个 语 句 行 内 用 冒 号 隔 开 多 条 语 句 20. 答 案 C) 分 析 随 机 函 数 Rnd 在 (0,1) 之 间, 则 Int(Rnd(0)*11) 在 (0,11) 之 间 21. 答 案 B) 分 析 驱 动 器 列 表 框 的 Drive 属 性 设 置 或 返 回 所 选 择 的 驱 动 器 名, 如 省, 则 为 当 前 驱 动 器 22. 答 案 A) 分 析 答 案 A) 为 一 表 达 式, 不 是 常 量 23. 答 案 A) 分 析 执 行 语 句 中 的 Input 方 式 表 示 从 磁 盘 文 件 中 读 取 字 符 到 内 存, 对 文 件 进 行 读 操 作 24. 答 案 A) 分 析 文 本 框 的 Locked 属 性 只 用 来 设 置 文 本 框 中 的 内 容 是 否 可 编 辑 对 于 多 行 文 本 PasswordChar 属 性 无 效 25. 答 案 A) 分 析 因 为 A=1 走 第 一 个 分 支, 又 因 为 B=0, 则 走 第 一 个 分 支, 输 出 **0** 26. 答 案 A) 分 析 MouseDown 事 件 的 格 式 为 : Private Sub Object_MouseDown([Index As Integer,] Button As Integer, Shift As Integer, x As Single, y As Single) < 事 件 代 码 > 其 中 Button 返 回 一 个 数 值, 表 明 当 前 按 下 的 是 鼠 标 左 中 或 右 键 当 按 下 左 键,Button 的 值 为 1; 按 下 右 键,Button 的 值 为 2; 按 下 中 间 键,Button 的 值 为 4 27. 答 案 C) 分 析 (1) 定 义 数 组 时 的 上 下 界 必 须 确 定 值 ;(3)Print 语 句 不 能 打 印 关 系 式, 可 以 打 印 表 达 式 ;(4)ChDrive 语 句 的 参 数 是 一 个 字 符 串 型 的 参 数, 例 如 :ChDrive"D" 28. 答 案 B) 分 析 n=0, 进 入 循 环,j=2,n=1; 再 循 环,j=12,n=2; 再 循 环,j=182,n=3, 退 出 循 环 29. 答 案 A) 分 析 上 一 部 分 循 环, 皆 为 数 组 的 赋 值, 赋 值 以 后 的 结 果 为 a(1,1)=1,a(1,2)=2,a(1,3)=3, a(2,1)=4,a(2,2)=5,a(2,3)=6,a(3,1)=7,a(3,2)=8,a(3,3)=9 则 后 一 循 环, 则 打 印 所 a(1,2),a(1,3), a(2,2),a(2,3) 22

30. 答 案 A) 分 析 String$(n, 字 符 串 ) 函 数 表 示 返 回 一 个 由 n 个 指 定 的 字 符 组 成 的 字 符 串 31. 答 案 D) 分 析 进 入 循 环 m=1, 则 a=1;m=2, 则 a=2;m=3, 则 a=3;sum 之 和 为 1+2+3=6 32. 答 案 D) 分 析 Ucase 函 数 将 字 母 转 换 为 大 写 字 母 Lcase 函 数 将 字 母 转 换 为 小 写 字 母 33. 答 案 A) 分 析 一 个 作 用 域 为 整 个 应 用 程 序 的 变 量 称 为 全 局 变 量 或 公 有 变 量 要 声 明 一 个 全 局 变 量, 应 该 在 模 块 的 声 明 (General Declarations) 部 分 使 用 Public 而 不 是 Dim 或 Private 语 句 声 明 变 量 34. 答 案 A) 分 析 通 过 方 法 TabIndex,GotFocus 和 SetFocus 可 以 对 控 件 焦 点 进 行 操 作 35. 答 案 D) 分 析 本 题 难 点 是 理 解 输 入 输 出 格 式 四 舍 五 入 的 处 理 思 路 为 : 将 数 值 放 大 100 倍, 再 加 0.5 后 取 整, 再 缩 小 100 倍, 例 如 Int(s*100+0.5)/100 打 印 输 出 时, 字 符 串 照 原 样 输 出, 但 不 打 印 出 " 符 号 二 填 空 题 1. 1 菜 单 编 辑 器 2 顶 分 析 弹 出 式 菜 单 是 直 接 显 示 于 窗 体 上, 独 立 于 菜 单 栏 的 浮 动 式 菜 单 它 的 建 立 方 法 与 普 通 菜 单 一 样, 也 是 在 菜 单 编 辑 器 中 进 行 的, 设 计 时 需 将 顶 级 菜 单 设 为 不 可 见 2. 3 "hello" 4 "HELLO" 分 析 Lcase() 函 数 返 回 字 符 串 的 小 写 形 式 ;Ucase() 函 数 返 回 字 符 串 的 大 写 形 式 3. 5 Toolbar1.Buttons ButtonMenus (2). Enabled = False 分 析 工 具 栏 控 件 Toolbar 包 含 用 来 创 建 工 具 条 的 Button 对 象 的 集 合 集 合 对 象 中 的 按 钮 菜 单 的 Enabled 属 性 为 False 即 无 效 4. 6 False 7 False 8 False 分 析 先 进 行 算 术 关 系 运 算, 再 进 行 逻 辑 运 算, 逻 辑 运 算 的 顺 序 为 :Not And Or 5. 9 Command1.Enabled = True 10 Command1.Enabled = False 分 析 命 令 按 钮 的 Enabled 属 性 控 制 其 是 否 可 用 6. 11 BCD 12 BCD 分 析 参 数 KeyCode 是 按 键 的 实 际 的 ASCII 码 即 大 写 字 母 与 小 写 字 母 使 用 同 一 个 键, 它 们 的 KeyCode 相 同 7. 13 N>Max 14 N<Min 23

15 S-Max-Min 分 析 要 除 去 一 个 最 高 分 和 一 个 最 低 分, 首 要 任 务 应 是 先 找 出 最 高 分 和 最 低 分, 由 两 个 If 语 句 的 执 行 语 句 可 判 断 出 条 件, 循 环 外, 由 总 分 内 减 去 求 得 的 最 高 分 和 最 低 分 24

全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 三 ) (Visual Basic 语 言 程 序 设 计 ) ( 考 试 时 间 90 分 钟, 满 分 100 分 ) 一 选 择 题 ( 每 小 题 2 分, 共 70 分 ) 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 答 案 是 正 确 的, 请 将 正 确 选 项 涂 写 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 1. 用 户 可 通 过 ( ) 模 拟 屏 幕 的 小 图 像 来 布 置 应 用 程 序 A) 窗 体 设 计 器 B) 快 捷 菜 单 C) 立 即 窗 口 D) 窗 体 布 局 窗 口 2.GUI 的 含 义 是 ( ) A) 面 向 对 象 的 程 序 设 计 B) 开 放 数 据 库 连 接 C) 图 形 设 备 接 口 D) 图 形 用 户 界 面 3. 下 列 ( ) 不 是 Visual Basic 具 有 的 特 点 A) 动 态 数 据 交 换 B) 使 用 动 态 HTML 编 写 代 码 C) 对 象 的 链 接 与 嵌 入 D) 程 序 接 口 4.Visual Basic 采 用 了 ( ) 编 程 机 制 A) 面 向 过 程 B) 面 向 对 象 C) 事 件 驱 动 D) 可 视 化 5. 单 击 一 次 命 令 按 钮 之 后, 下 列 程 序 代 码 的 执 行 结 果 为 ( ) Public Sub Proc (a ( )As Integer) Static i As Integer Do a (i)= a(i) +a (i+1) i=i+1 Loop While i<2 Private Sub Command1_Click( ) Dim m As Integer,i As Integer,x (10) As Integer For i=0 To 4:x (i)=i+1:next i For i=1 To 2:Call Proc (x):next i For i=0 To 4:Print x (i);:next i A)3 4 7 5 6 B)3 5 7 4 5 C)1 2 3 4 5 D)1 2 3 5 7 6. 要 在 C 盘 当 前 文 件 夹 下 建 立 一 个 名 为 StuData.dat 的 顺 序 文 件, 应 先 使 用 ( ) 语 句 25

A)Open"StuData.dat"For Output As # 2 B)Open"C:StuData.dat"For Input As # 2 C)Open"C:StuData.dat"For Output As # 2 D)Open"StuData.dat"For Input As # 2 7. 如 果 要 在 任 何 新 建 的 模 块 中 自 动 插 入 Option Explicit 语 句, 则 应 采 用 下 列 ( ) 操 作 步 骤 A) 在 工 具 菜 单 中 选 取 选 项 命 令, 打 开 选 项 对 话 框, 单 击 编 辑 器 标 签, 选 中 要 求 变 量 声 明 选 项 B) 在 编 辑 菜 单 中 执 行 插 入 文 件 命 令 C) 在 工 程 菜 单 中 执 行 添 加 文 件 命 令 D) 以 上 操 作 均 不 对 8. 下 列 符 号 哪 一 个 是 VB 中 的 合 法 变 量 名 ( ) A)x23 B)8xy C)END D)X8[B] 9. 用 类 型 说 明 符 放 在 变 量 名 的 尾 部, 可 以 定 义 变 量 的 类 型 用 ( ) 符 号 说 明 的 变 量 是 货 币 型 A)@ B)% C)! D)$ x 10. 代 数 表 达 式 + ln x t x + y + e + sin( ) a + b 2, 对 应 Visual Basic 表 达 式 是 ( ) A)Sqr((x+Log(x))/(a+b))+Exp(-t)+Sin((x+y)/2) B)Sqr(x+Log(x)/(a+b))+Exp(-t)+Sin((x+y)/2) C)Sqr((x+Ln(x))/(a+b))+E(-t)+Sin(x+y)/2) D)Sqr((x+log(x))/(s+b))+Exp(-t)+Sin(x+y/2) 11. 在 程 序 代 码 中 清 除 图 片 框 Picture1 中 的 图 形 的 正 确 语 句 是 ( ) A)Picture1.picture=" " B)Picture1.picture=Loadpicture(" ") C)Picture1.image=" " D)Picture1.picture=Null 12. 下 列 ( ) 字 符 不 属 于 Visual Basic 字 符 集 A)A B)# C)ξ D)@ 13. 使 用 通 用 对 话 框 控 件 打 开 字 体 对 话 框 时, 如 果 要 在 字 体 对 话 框 中 显 示 样 式 和 颜 色, 必 须 设 置 通 用 对 话 框 控 件 的 Flags 属 性 为 ( ) A)128 B)255 C)256 D)127 14. 表 达 式 Val(".123E2CD") 的 值 是 ( ) A).123 B)12.3 C)0 D).123E2CD 15. 下 列 程 序 段 的 执 行 结 果 为 ( ) N=0 For I=1 To 3 For J=5 To 1 Step-1 N=N+1 Next J,I Print N;J;I 26

A)12 0 4 B)15 0 4 C)12 3 1 D)15 3 1 16. 如 果 只 允 许 在 列 表 框 中 每 次 只 能 选 择 一 个 列 表 项 时, 则 应 将 其 MultiSelect 属 性 设 置 为 ( ) A)0 B)1 C)2 D)3 17. 设 置 复 选 框 或 单 选 按 钮 的 标 题 对 齐 方 式 的 属 性 是 ( ) A)Align B)Style C)Sorted D)Alignment 18.Visual Basic 布 尔 运 算 符 Xor,Or,Eqv,And 中, 级 别 最 高 的 运 算 符 是 ( ) A)Xor B)Or C)Eqv D)And 19. 执 行 以 下 Command1 的 Click 事 件 过 程 在 窗 体 上 显 示 ( ) Option Base 0 Private Sub Command1_Click ( ) Dim a a=array ("a","b","c","d","e","f","g") Print a (1);a (3);a (5) A)abc B)bdf C)ace D) 出 错 20. 能 够 改 变 窗 体 边 框 类 型 的 属 性 是 ( ) A)FontStyle B)BorderStyle C)BackStyle D)Border 21. 下 列 的 ( ) 表 达 式 是 不 正 确 的 A)" 计 算 机 "+" 与 程 序 设 计 " B)" 计 算 机 "+150 C)" 计 算 机 "&150 D)" 计 算 机 "&" 与 程 序 设 计 " 22. 当 形 参 是 变 量, 相 应 的 实 参 可 以 是 ( ) A) 变 量 和 常 量 B) 数 组 元 素 C) 表 达 式 D) 以 上 全 部 23. 下 面 程 序 运 行 后 输 出 的 结 果 是 ( ) Private Sub Convert(y As Integer) k = y y = 1 For j = 1 To k y = y * j Next j Dim s As Integer Sum = 3 Convert Sum Print Sum A)0 B)1 C)3 D)6 24. 下 面 是 窗 体 Form1 的 Click 事 件 过 程, 实 现 运 行 时 每 次 单 击 窗 体 时, 窗 体 均 向 右 移 动 100 缇 Private Sub(1) ( ) 27

(2)intleft As Integer intleft=intleft+100 Form1.(3)=intleft 供 选 择 的 答 案 : (1)A)Form1_Click B)Form1_Click C)Command_Click D)Command1_Click (2)A)Dim B)Static C)Private D)Public (3)A)Caption B)Top C)Width D)Left 25. 要 使 一 个 文 本 框 具 有 水 平 和 垂 直 滚 动 条, 则 应 先 将 其 MultiLine 属 性 设 置 为 True, 然 后 再 将 ScrollBar 属 性 设 置 为 ( ) A)0 B)1 C)2 D)3 26. 有 如 下 程 序 : a$="china" b$= Right$ (a$,3):c$=string$ (3,b $) Print c $ End 运 行 后 输 出 的 结 果 是 ( ) A)Chi B)aaa C)iii D)ina 27. 有 如 下 程 序 : n=-5:m=6 Dim a (n TO m) For i=lbound(a, 1) To UBound (a,1) a(i)=i Next i Print a (LBound(a, 1)); a(ubound(a,1)) End 运 行 后 输 出 结 果 为 ( ) A)0 0 B)-5 0 C)-5 6 D)0 6 28. 这 个 关 键 字 是 隐 含 声 明 的 变 量, 它 适 用 于 类 模 块 中 的 每 个 过 程 这 个 关 键 字 是 ( ) A)Sub B)End C)Me D)Exit 29. 下 列 程 序 运 行 后 的 输 出 结 果 是 ( ) For k = 3 To 1 Step-1 x = String(k, "*") Print x Next k 28

A)* B)1* ** 2* *** 3* C)3* D)*** 2* ** 1*** * 30. 有 关 下 面 程 序, 描 述 正 确 的 是 ( ) Dim i, Mynum Do For i = 1 To 1000 Mynum = Int(Rnd * 1000) Select Case Mynum Case 7: Exit For Case 29: Exit Do End Select n = n + 1 Next i Loop A) 产 生 的 随 机 数 等 于 7 时 程 序 结 束 B)Do 循 环 次 数 为 1000 次 C) 随 机 数 都 是 大 于 1000 的 D) 当 随 机 数 等 于 29 时 程 序 结 束 31. 有 如 下 程 序 : m$="abc" n$="abc" k$=lcase$ (m $) j$=ucase$ (n $) Print Asc(k $+j $) End 运 行 时 输 出 的 结 果 是 ( ) A)abcabc B)ABCABC C)65 D)97 32.Circle 语 句 的 功 能 是 ( ) A) 用 来 绘 制 圆 B) 用 来 绘 制 圆 椭 圆 C) 用 来 绘 制 圆 弧 D) 用 来 绘 制 圆 椭 圆 和 圆 弧 33. 在 窗 体 上 画 一 个 命 令 按 钮, 然 后 编 写 如 下 事 件 过 程 : For i = 1 To 4 29

x = 0 For j = 1 To 3 x = j For k = 1 To 2 x = x + 6 Next k Next j Next i Print x 程 序 运 行 后, 单 击 命 令 按 钮, 输 出 结 果 是 ( ) A)7 B)15 C)157 D)538 34. 有 如 下 函 数 过 程 : Function gys(byval x As Integer, ByVal y As Integer) As Integer Do While y <> 0 preminder = x / y x = y y = preminder Loop gys = x End Function 以 下 是 调 用 该 函 数 的 事 件 过 程, 该 程 序 的 运 行 结 果 是 ( ) Dim a As Integer Dim b As Integer a = 10 b = 2 x = gys(a, b) Print x A)0 B)25 C)5 D)100 35. 在 窗 体 (Name 属 性 为 Formal) 上 画 两 个 文 本 框 (Name 属 性 分 别 为 Text1 和 Text2) 和 一 个 命 令 按 钮 (Name 属 性 为 Command1), 然 后 编 写 如 下 两 个 事 件 过 程 : a = Text1.Text + Text2.Text Print a Private Sub Form_Load() Text1.Text = "123" 30

Text2.Text = "321" 该 程 序 的 运 行 结 果 是 ( ) A)444 B)321123 C)123321 D)132231 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 1 ~ 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 1. 设 C="A", 写 出 下 列 布 尔 表 达 式 的 值 (1)C>="0" And C<="9" Or C>="A" And C<="Z" 1 (2)C<="0" And C>="9" Or C>="A" And C<="Z" 2 (3)C>="0" And C<="9" And C>="A" And C<="Z" 3 (4)C>="0" Or C<="9" And C>="A" Or C<="Z" 4 2. 设 A=2,B=-2, 则 表 达 式 A/2+1>B+5 Or B*(-2)=6 的 值 是 5 3. 设 置 工 具 栏 控 件 的 6 属 性 可 以 改 变 工 具 栏 在 窗 体 上 的 位 置 4. 在 打 开 一 个 自 定 义 对 话 框 时, 可 以 使 用 7 方 法 来 决 定 对 话 框 窗 体 的 显 示 模 式 5. 执 行 下 面 的 程 序, 在 窗 体 上 显 示 的 输 出 结 果 的 第 一 行 是 8, 第 三 行 是 9,Form_Click() 事 件 过 程 中 的 第 二 个 For Next 循 环 共 执 行 了 10 次 Option Explicit Option Base 1 Private Sub Form_Click() Dim a(5) As Integer, i As Integer, j As Integer For i = 1 To 5 a(i) = 2 * i-1 Print a(i); Next i Print For j = 1 To i-2 Call sub1(a(i), j) Print j Next j Public Sub sub1(x As Integer, y As Integer) If x-y <= 2 Then y = y + 1 Else y = y + 2 End If 6. 以 下 程 序 找 出 50 以 内 所 有 能 构 成 直 角 三 角 形 的 整 数 组 阅 读 下 列 程 序, 请 在 11 处 填 上 正 确 内 容 31

For a = 1 To 50 For b = a To 50 c = Sqr(a ^ 2 + b ^ 2) If 11 Then Print a;b;c Next b Next a 7. 下 面 程 序 的 功 能 是 计 算 S=1!+2!+3!+ +n!, 阅 读 下 面 程 序, 请 将 程 序 完 善 n = Val(InputBox(" 请 输 入 一 个 整 数 ")) s = 0 For i = 1 To n GoSub m s = s + 1 Print "t="; t, "S="; s Next i Exit Sub m: t = 1 For j = 1 To i t = 12 Next j Return 8. 在 程 序 中 添 加 一 个 命 令 按 钮, 并 编 写 如 下 代 码 已 知 程 序 的 运 行 结 果 为 如 下 矩 阵, 请 在 13 14 填 上 正 确 答 案 使 程 序 完 整 1 0 0 0 0 1 1 0 0 1 1 0 1 0 0 1 Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 If 13 Then a(i, j) = 1 Else a(i, j) = 0 32

End If Next j Next i For i = 1 To 4 For j = 14 Print a(i, j); Next j Print Next i 9. 如 下 有 一 段 不 完 整 的 程 序 段, 如 果 要 求 该 程 序 执 行 3 次 循 环, 则 在 程 序 中 的 填 空 里 要 填 入 15 才 能 使 其 完 整 x = 1 Do x = x + 3 Print x Loop Until 15 参 考 答 案 及 分 析 一 选 择 题 1. 答 案 D) 分 析 在 设 计 时, 用 窗 体 布 局 窗 口 可 视 化 地 定 位 窗 体, 当 重 新 调 整 它 时, 每 个 窗 体 都 将 相 对 于 设 计 窗 口 的 大 小 进 行 调 整 客 户 区 域 的 左 上 角 代 表 桌 面 坐 标 的 (0,0) 2. 答 案 D) 分 析 随 着 图 形 用 户 界 面 (GUI) 的 广 泛 使 用, 软 件 的 用 户 界 面 更 加 美 观, 但 也 更 加 复 杂, 传 统 的 程 序 设 计 语 言 已 不 适 合 用 来 开 发 GUI 用 户 界 面 的 软 件, 于 是, 可 视 化 编 程 工 具 便 应 运 而 生 3. 答 案 B) 分 析 VB 6.0 具 备 应 用 程 序 接 口 (API) 动 态 数 据 交 换 (DDE) 对 象 的 链 接 与 嵌 入 (OLE) 和 动 态 链 接 库 (DLL) 等 特 性 4. 答 案 C) 分 析 在 VB 的 特 点 中, 面 向 对 象 可 视 化 都 是 程 序 设 计 的 方 法, 不 是 编 程 机 制, 很 显 然, 只 有 事 件 驱 动 才 是 VB 的 编 程 机 制 5. 答 案 B) 分 析 因 为 i 是 用 Static 定 义 的 变 量, 则 每 次 引 用 该 变 量 时, 其 值 会 继 续 保 留 6. 答 案 C) 33

分 析 要 在 C 盘 建 立 一 个 新 的 数 据 文 件, 使 记 录 可 以 写 到 该 文 件 中, 应 使 用 Output 方 式 7. 答 案 A) 分 析 要 自 动 插 入 Option Explicit 语 句, 应 在 工 具 菜 单 中 选 取 选 项 命 令, 打 开 选 项 对 话 框, 单 击 编 辑 器 标 签, 选 中 要 求 变 量 声 明 选 项 8. 答 案 A) 分 析 变 量 名 只 能 由 字 母 数 字 和 下 划 线 组 成, 且 第 一 个 字 符 必 须 是 英 文 字 母, 保 留 字 不 能 作 变 量 名 9. 答 案 A) 分 析 当 用 类 型 说 明 符 放 在 变 量 名 的 尾 部 来 定 义 变 量 的 类 型 时, 说 明 字 符 @ 表 示 货 币 型 10. 答 案 A) 分 析 把 代 数 表 达 式 写 成 VB 格 式 的 形 式, 要 用 算 术 运 算 符 和 内 部 函 数 来 实 现 初 学 者 容 易 搞 混 淆 的 有 : 用 Ln() 表 示 Log(), 用 E(x) 表 示 Exp(x), 用 Sinx 表 示 Sin(x) 11. 答 案 B) 分 析 图 片 框 中 的 图 形 也 可 以 用 LoadPicture 函 数 删 除, 只 要 用 一 个 空 图 形 覆 盖 原 来 的 图 形 就 能 实 现 12. 答 案 C) 分 析 属 于 ASCII 码 的 任 何 一 个 字 符, 都 是 Visual Basic 字 符 集 中 的 字 符 答 案 C) 不 是, 是 希 腊 字 母, 在 高 等 数 学 中 常 使 用 13. 答 案 C) 分 析 在 字 体 对 话 框 中,Flags 属 性 值 为 256, 允 许 在 字 体 对 话 框 中 显 示 样 式 和 颜 色 14. 答 案 B) 分 析 表 达 式 Val(".123E2CD")=Val("12.3CD")=12.3 15. 答 案 B) 分 析 外 循 环 3 次, 内 循 环 5 次, 总 循 环 次 数 3*5=15 次, 因 为 每 循 环 一 次,N 自 加 一 次, 则 N=15 16. 答 案 A) 分 析 MultiSelect 属 性 用 来 设 置 一 次 可 以 选 择 的 表 项 数 0 表 示 每 次 只 能 选 择 一 项, 如 果 选 择 另 一 项 则 会 取 消 对 前 一 项 的 选 择 1 表 示 同 时 选 择 多 个 项 2 表 示 可 以 选 择 指 定 范 围 内 的 表 项 17. 答 案 D) 分 析 Alignment 属 性 用 来 设 置 复 选 框 或 单 选 按 钮 标 题 的 对 齐 方 式, 它 可 以 在 设 计 时 设 置, 也 可 以 在 运 行 时 设 置 18. 答 案 D) 分 析 逻 辑 运 算 时, 各 种 布 尔 运 算 符 的 优 先 级 次 序 为 Not And Or Xor Eqv Imp 19. 答 案 B) 分 析 Option Base 0 语 句 表 示 数 组 下 标 从 0 开 始, 则 a(1)= "b",a(3)= "d",a(5)= "f" 20. 答 案 B) 分 析 BorderStyle( 边 框 类 型 ) 属 性 用 来 确 定 窗 体 边 框 的 类 型 21. 答 案 B) 分 析 字 符 连 接 运 算 符 有 两 个 + 和 &, + 只 能 用 来 连 接 两 个 字 符 型 数 据, 两 边 的 34

运 算 对 象 都 是 字 符 型 & 运 算 符 不 但 可 以 把 两 个 字 符 型 数 据 连 接 在 一 起, 而 且 还 可 以 把 其 他 类 型 的 数 据 转 换 成 字 符 串 连 接 在 一 起, 但 需 注 意 的 是 用 该 运 算 符 进 行 连 接 时, 运 算 符 两 边 均 必 须 有 空 格 22. 答 案 D) 分 析 当 形 参 是 变 量 时, 相 应 的 实 参 应 是 符 合 要 求 的 数 据, 可 以 是 常 量 变 量 数 组 元 素 函 数 调 用 和 表 达 式 23. 答 案 D) 分 析 VB 中 进 行 参 数 传 递 时, 在 缺 省 情 况 下, 实 参 是 变 量, 按 地 址 传 递 ; 实 参 是 常 数 和 计 算 表 达 式 按 值 传 递 24. 答 案 B);B);D) 分 析 题 中 提 及 是 窗 体 Form1 的 Click 事 件 过 程, 所 以 (1) 选 择 B); 与 Dim 不 同, 用 Static 定 义 了 一 个 变 量, 则 每 次 引 用 该 变 量 时, 其 值 会 继 续 保 留 ; 窗 体 的 Left 属 性 表 示 窗 体 的 内 部 左 边 缘 与 屏 幕 左 边 缘 之 间 的 距 离 25. 答 案 D) 分 析 ScrollBars 属 性 用 来 确 定 文 本 框 中 有 没 有 滚 动 条, 可 以 取 0,1,2,3 四 个 值, 当 值 为 3 时, 表 示 同 时 具 有 水 平 和 垂 直 滚 动 条 26. 答 案 C) 分 析 字 符 串 函 数 Right$ ( 字 符 串,n) 表 示 从 右 边 开 始 截 取 n 个 字 符 ; 而 函 数 String$(n, 字 符 ) 返 回 n 个 由 字 符 组 成 的 字 符 串 27. 答 案 C) 分 析 LBound( 数 组 [, 维 ]) 和 UBound( 数 组 [, 维 ]) 两 个 函 数 分 别 返 回 一 个 数 组 中 指 定 维 的 下 界 和 上 界 LBound 函 数 返 回 数 组 某 一 维 的 下 界 值, 而 UBound 函 数 返 回 数 组 某 一 维 的 上 界 值 28. 答 案 C) 分 析 Me 关 键 字 是 隐 含 声 明 的 变 量, 这 个 关 键 字 适 用 于 类 模 块 中 的 每 个 过 程 29. 答 案 D) 分 析 内 部 函 数 String(k, "*") 的 功 能 是 产 生 k 个 "*" 相 同 的 字 符 串 30. 答 案 D) 分 析 Do Loop 是 无 条 件 循 环, 只 有 Exit Do 才 能 退 出 Rnd 产 生 随 机 数 的 范 围 为 (0, 1), 为 了 生 成 某 个 范 围 内 的 随 机 整 数, 可 使 用 以 下 公 式 :Int((upperbound - lowerbound + 1)*Rnd + lowerboundd) 这 里,upperbound 是 随 机 数 范 围 的 上 限, 而 lowerbound 则 是 随 机 数 范 围 的 下 限 Int() 函 数 是 取 整 31. 答 案 D) 分 析 Lcase$ 函 数 把 大 写 字 母 变 换 成 小 写 字 母,Ucase$ 函 数 把 小 写 字 母 转 换 成 大 写 字 母, Asc(x$) 返 回 字 符 串 x$ 中 第 一 个 字 符 的 ASCII 码 而 Asc(k$+j$)=Asc(abcABC)=97 32. 答 案 D) 分 析 通 过 设 置 不 同 的 半 径 和 起 始 点 的 坐 标 用 Circle 语 句 来 绘 制 圆 椭 圆 和 圆 弧 33. 答 案 B) 分 析 本 题 的 难 点 是 循 环 内 的 赋 值 语 句 因 x = j 将 前 面 的 数 值 替 代 了, 实 际 上 x=3 +6+6=15 34. 答 案 C) 35

分 析 本 题 的 难 点 是 Do While Loop 循 环 控 制 问 题 Y = 2,5,0.4 的 过 程 中, 最 后 x = 5 35. 答 案 C) 分 析 本 题 的 重 点 是 数 字 和 字 符 串 的 区 别 Text1.Text 和 Text2.Text 的 值 为 字 符 串, 对 于 字 符 串 来 讲, + 运 算 符 和 & 运 算 符 是 一 样 的 二 填 充 题 1. 1 True 2 True 3 False 4 True 分 析 本 题 的 要 点 是 在 逻 辑 运 算 中,And 运 算 优 先 于 Or 运 算 2. 5 False 分 析 当 表 达 式 中 含 有 多 种 运 算 时, 先 计 算 算 术 运 算, 再 进 行 关 系 运 算, 逻 辑 运 算 3. 6 Align 分 析 工 具 栏 控 件 的 Align 属 性 设 置 返 回 一 个 值, 用 来 决 定 其 在 窗 体 上 的 显 示 位 置 4. 7 Show 分 析 在 一 个 自 定 义 的 对 话 框 中, 要 显 示 特 定 的 对 话 框, 需 使 用 Show 方 法, 如 显 示 字 体 对 话 框 则 用 ShowFont 方 法 5. 8 1 3 5 7 9 9 2 10 4 分 析 本 题 的 难 点 是 过 程 调 用 中 的 参 数 传 递 问 题 在 第 一 个 For Next 后, 变 量 i =6; 第 二 个 For Next 的 终 值 为 6-2 = 4 在 子 过 程 的 调 用 过 程 中, 变 量 j 和 子 过 程 中 的 变 量 y 按 地 址 传 递 数 据, y 的 值 被 改 变 后, 传 递 给 j, 所 以 循 环 次 数 不 是 4 次, 而 是 2 次 6. 11 C<=50 And c= Int(C) 分 析 a, b, c 为 直 角 三 角 形 的 三 条 边, 由 题 意 知 a 和 b 是 限 制 在 50 以 内 的 整 数, 为 了 使 a, b 的 值 不 重 复 交 替 出 现, 限 制 b 的 取 值 范 围 为 a~50 c 的 取 值 必 须 满 足 两 个 条 件 即 c<=50 和 c = Int(C) 7. 12 t * j 分 析 根 据 计 算 公 式 来 分 析 程 序 时, 首 先 应 找 到 计 算 公 式 中 与 程 序 中 相 对 应 的 变 量, 然 后 再 去 逐 个 分 析 程 序 中 的 每 个 结 构 的 作 用, 最 后 汇 总 分 析, 就 不 难 看 出 程 序 中 各 条 语 句 之 间 的 关 系 了 本 例 中,s 和 t 是 程 序 中 主 要 用 来 存 储 计 算 数 据 的 变 量,s 主 要 用 做 累 加 器,t 用 于 求 每 个 加 数 的 阶 乘 8. 13 j = i Or j = 4 - i + 1 14 j = 1 To 4 分 析 本 题 中 第 一 个 双 重 循 环 的 功 能 是 为 一 个 二 维 数 组 赋 初 值 内 层 循 环 中 If 语 句 的 功 能 是 : 使 数 组 两 条 对 角 线 上 的 元 素 值 为 1, 其 他 元 素 为 0; 第 二 个 双 重 循 环 的 功 能 是 打 印 数 组, 内 层 循 环 控 制 打 印 每 行 的 每 一 列, 外 层 循 环 控 制 打 印 4 行 这 样 输 出 的 结 果 为 上 面 所 述 空 打 印 Print 操 作 是 换 行 9. 15 x >= 8 分 析 本 题 的 难 点 是 判 断 Do Until 循 环 正 常 退 出 Do Loop Until 循 环 是 先 执 行 后 判 断 利 用 x 的 值 来 控 制 循 环 次 数,x 的 计 算 过 程 为 :x = 1,4,7,10 36

全 国 计 算 机 等 级 考 试 二 级 笔 试 全 真 模 拟 试 卷 ( 四 ) (Visual Basic 语 言 程 序 设 计 ) ( 考 试 时 间 90 分 钟, 满 分 100 分 ) 一 选 择 题 ( 每 小 题 2 分, 共 70 分 ) 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 答 案 是 正 确 的, 请 将 正 确 选 项 涂 写 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 1.VB 的 启 动 有 多 种 方 法, 下 面 不 能 启 动 VB 的 是 ( ) A) 使 用 开 始 菜 单 中 的 程 序 命 令 B) 使 用 开 始 菜 单 中 的 运 行 命 令, 在 弹 出 的 对 话 框 中 输 入 VB 启 动 文 件 的 名 字 C) 使 用 我 的 电 脑, 在 VB 所 在 硬 盘 驱 动 器 中 找 到 相 应 的 VB 文 件 夹 D) 先 打 开 VB 的 文 件 菜 单, 再 按 Alt+Q 组 合 键 2. 下 列 可 以 打 开 文 件 对 话 框 的 操 作 是 ( ) A)Ctrl + D B)Ctrl + E C)Ctrl + F D)Ctrl + G 3. 在 用 菜 单 编 辑 器 设 计 菜 单 时, 必 须 输 入 的 项 是 ( ) A) 快 捷 键 B) 标 题 C) 索 引 D) 名 称 4. 下 列 程 序 的 执 行 结 果 为 ( ) A="1" B="2" A=Val (A)+Val (B) B=Val ("12") If A< >B Then Print A-B Else Print B-A A)-9 B)9 C)12-12 D)0 5. 下 列 语 句 正 确 的 是 ( ) A)If X Y Then Print "X 不 等 于 Y" B)If X<>Y Then Print "X 不 等 于 Y" C)If X><Y Then Print "X 等 于 Y" D)If X Y Print "X 不 等 于 Y" 6. 滚 动 条 控 件 的 LargeChange 属 性 所 设 置 的 是 ( ) A) 单 击 滚 动 条 和 滚 动 箭 头 之 间 的 区 域 时, 滚 动 条 控 件 Value 属 性 值 的 改 变 量 B) 滚 动 条 中 滚 动 块 的 最 大 移 动 位 置 C) 滚 动 条 中 滚 动 块 的 最 大 移 动 范 围 D) 滚 动 条 控 件 无 该 属 性 7. 比 较 图 片 框 (PictureBox) 和 图 像 框 (Image) 的 使 用, 正 确 的 描 述 是 ( ) A) 两 类 控 件 都 可 以 设 置 AutoSize 属 性, 以 保 证 装 入 的 图 形 可 以 自 动 改 变 大 小 B) 两 类 控 件 都 可 以 设 置 Stretch 属 性, 使 得 图 形 根 据 物 件 的 实 际 大 小 进 行 拉 伸 调 整, 保 证 显 37

示 图 形 的 所 有 部 分 C) 当 图 片 框 (PictureBox) 的 AutoSize 属 性 为 False 时, 只 要 装 入 图 元 文 件 (*.wmf) 时, 图 形 才 能 自 动 调 整 大 小 以 适 应 图 片 框 的 尺 寸 D) 当 图 像 框 (Image) 的 Stretch 属 性 为 True 时, 图 像 框 会 自 动 改 变 大 小 以 适 应 图 形 的 大 小, 使 图 形 充 满 图 像 框 8. 下 面 语 句 中 错 误 的 是 ( ) A)ReDim Preserve Matrix(10,Ubound(Matrix,2)+1) B)ReDim Preserve Matrix(Ubound(Matrix,1)+1,10) C)ReDim Preserve Matrix(Ubound(DynArray)+1) D)Redim DynArray(Ubound(DynArray)+1) 9. 系 统 符 号 常 量 的 定 义 可 以 通 过 ( ) 获 得 A) 对 象 浏 览 器 B) 代 码 窗 口 C) 属 性 窗 口 D) 工 具 箱 10. 函 数 Int(Rnd(0)*100) 是 下 列 ( ) 范 围 内 的 整 数 A)(0,10) B)(1,100) C)(0,100) D)(1,99) 11. 计 算 分 段 函 数 : Y= 0 1 2 3 x<0 0 x<1 1 x<2 x 2 下 面 程 序 段 中 正 确 的 是 ( ) A)Select Case x B)Select Case x C)Select Case x D)Select Case x Case x<0 Case x<=0 Case Is<0 Case Is<0 y=0 y=0 y=0 y=0 Case x>=0 And x<1 Case x<1 Case Is<1 Case Is>=0,Is<1 y=1 y=1 y=1 y=1 Case x>=1 And x<2 Case x<2 Case Is<2 Case Is>=1,Is<2 y=2 y=2 y=2 y=2 Case Else Case Else Case Else Case Is>=2 y=3 y=3 y=3 y=3 End Select End Select End Select End Select 12. 在 MsgBox 函 数 中 哪 一 个 参 数 是 必 须 的 ( ) A)prompt B)buttons C)title D)context 13. 以 下 语 句 的 输 出 结 果 是 ( ) Print Format$(1234.5, "00,000.00") A)1234.5 B)01,234.50 C)01,234.5 D)1,234.50 14. 下 列 程 序 的 执 行 结 果 为 ( ) A=75 If A>60 Then I=1 38

If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 Print"I=";I A)I=1 B)I=2 C)I=3 D)I=4 15. 执 行 以 下 语 句 后 显 示 结 果 为 ( ) Dim x As Integer If x Then Print x Else Print x-1 A)1 B)0 C)-1 D) 不 确 定 16. 如 果 X 的 值 小 于 或 等 于 Y 的 平 方, 则 打 印 "OK", 表 示 这 个 条 件 的 单 行 格 式 If 语 句 是 ( ) A)If x<=y 2 Then Print"OK" B)If x<=y^2 Print"OK" C)If x<=y^2 Then"OK" D)If x<=y^2 Then Print"OK" 17. 要 获 得 文 件 列 表 框 中 当 前 被 选 中 的 文 件 的 文 件 名, 则 应 使 用 ( ) 属 性 A)Dir B)Path C)Drive D)Filename 18. 下 列 程 序 段 的 执 行 结 果 为 ( ) Dim A (5) For I=1 To 5 A (I)=I * I Next I Print A (I-1) A)5 B)25 C)0 D)16 19. 以 下 叙 述 中 错 误 的 是 ( ) A) 用 Shell 函 数 可 以 调 用 能 够 在 Windows 下 运 行 的 应 用 程 序 B) 用 Shell 函 数 可 以 调 用 可 执 行 文 件, 也 可 以 调 用 Visual Basic 的 内 部 函 数 C) 调 用 Shell 函 数 的 格 式 应 为 :< 变 量 名 >=Shell( ) D) 用 Shell 函 数 不 能 执 行 DOS 命 令 20. 在 窗 体 中 添 加 一 个 列 表 框 (List1) 和 一 个 命 令 按 钮, 并 编 写 如 下 代 码 : Dim Entry, I, Msg Msg = "Choose OK to add 10 items to listbox" MsgBox Msg For I = 1 To 10 Entry = "Entry"& 1 List1.AddItem Entry Next I 程 序 完 成 的 功 能 是 ( ) A) 本 示 例 使 用 AddItem 方 法 给 一 个 列 表 框 增 加 10 项 B) 本 示 例 使 用 AddItem 方 法 向 一 个 列 表 框 中 添 加 的 内 容 是 1~10 的 罗 列 39

C) 本 示 例 使 用 AddItem 方 法 向 一 个 列 表 框 中 添 加 的 内 容 是 1~10 的 和 D) 本 示 例 使 用 AddItem 方 法 给 一 个 列 表 框 中 增 加 11 项 21. 如 下 语 句 :Open "f1.dat"for Random As#1 Len=15, 表 示 文 件 f1.dat 每 个 记 录 的 长 度 等 于 ( ) A) 或 小 于 15 个 字 节 B)15 个 字 节 C) 或 小 于 15 个 字 符 D)15 个 字 符 22. 在 窗 体 中 添 加 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 代 码 : x = 0 Do Until x =-1 a = InputBox(" 请 输 入 a 的 值 ") a = Val(a) b = InputBox(" 请 输 入 b 的 值 ") b = Val(b) x = InputBox(" 请 输 入 x 的 值 ") x = Val(x) a = a + b + x Loop Print a 运 行 后, 单 击 命 令 按 钮, 依 次 在 输 入 对 话 框 中 输 入 1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>, 则 输 出 的 结 果 为 ( ) A)8 B)9 C)14 D)15 23. 在 窗 体 中 添 加 一 个 名 称 为 Command1 的 命 令 按 钮, 然 后 编 写 如 下 程 序 : Private Sub Form_Click() Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k 程 序 运 行 后, 单 击 窗 体, 则 在 窗 体 上 显 示 的 是 ( ) A)33 B)35 C)37 D)38 24.Randomize 语 句 的 功 能 是 ( ) 40

A) 产 生 一 个 (0,1) 之 间 的 随 机 小 数 B) 产 生 一 个 [1,10] 之 间 的 随 机 整 数 C) 产 生 一 个 (-1,1) 之 间 的 随 机 小 数 D) 产 生 新 的 随 机 整 数 25. 有 如 下 程 序 : DEF fnab (a,b)=sqr (a*a+b*b) Print fnab(6,8) End 运 行 后 输 出 的 结 果 是 ( ) A)6 B)8 C)10 D)14 26. 有 如 下 一 组 程 序 语 句 ( ) DEF fna (x)=x*x+1 For i=1 To 3 a=fna (i) Next i Print a 运 行 后 的 输 出 结 果 是 ( ) A)2 B)5 C)10 D)17 27. 有 如 下 程 序 : s=0 i=1 Do While i<=100 s=s+i Loop Print s End 运 行 后 的 输 出 结 果 是 ( ) A) 无 穷 大 的 数 B)505 C) 死 循 环, 无 输 出 D)5050 28. 一 个 工 程 中 包 含 两 个 名 称 分 别 为 Form1,Form2 的 窗 体, 一 个 名 称 为 MDIForm 的 MDI 窗 体, Form1,Form2 的 窗 体 都 是 MDIForm 的 子 窗 体 编 写 程 序, 使 得 在 MDIForm 加 载 时,Form1,Form2 的 窗 体 都 加 载 到 内 存, 但 Form1 窗 体 显 现,Form2 窗 体 隐 藏 能 够 实 现 上 述 功 能 的 程 序 段 是 ( ) A)Private Sub MDIForm_Load() B)Private Sub MDIForm_Load() Form1.Load Form1.Show Form2.Hide Form2.Load C)Private Sub MDIForm_Load() D)Private Sub MDIForm_Load() Form1.Show Form1.Load Form2.Hide Form2.Load 29. 一 个 工 程 中 包 含 两 个 名 称 分 别 为 Form1,Form2 的 窗 体, 一 个 名 称 为 Func 的 标 准 模 块, 假 定 在 Form1,Form2 和 Func 中 分 别 建 立 了 自 定 义 过 程, 其 定 义 格 式 为 : 41

Form1 中 定 义 的 过 程 : Private Sub Fun1() Form2 中 定 义 的 过 程 : Public Sub Fun2() Func 中 定 义 的 过 程 : Public Sub Fun3() 在 调 用 上 述 过 程 的 程 序 中, 如 果 不 指 明 窗 体 或 模 块 的 名 称, 则 以 下 叙 述 中 正 确 的 是 ( ) A) 上 述 三 个 过 程 都 可 以 在 工 程 中 的 任 何 窗 体 或 模 块 中 被 调 用 B)Fun1 和 Fun2 过 程 能 够 在 工 程 中 各 个 窗 体 或 模 块 中 被 调 用 C) 上 述 三 个 过 程 都 只 能 在 各 自 被 定 义 的 模 块 中 调 用 D) 只 有 Fun3 过 程 能 够 被 工 程 中 各 个 窗 体 或 模 块 调 用 30. 在 窗 体 中 添 加 一 个 命 令 按 钮 Command1 和 一 个 文 本 框 Text1, 并 有 以 下 程 序 : Static a As Variant a = Array(20, 13, 45, -10, 50, 25) 此 程 序 的 功 能 是 求 数 组 a 的 最 小 元 素 值, 并 把 最 小 值 放 在 文 本 框 中 为 实 现 程 序 的 功 能, 省 略 号 的 程 序 段 应 该 是 ( ) A)Min =a(1) B)Min=a(0) C)Min =a(1) D)Min =a(0) For i =2To6 For i =1To5 For i =1To5 For i =2To6 If Min<(i)Then If Min <a(i)then If Min<a(i) Then If Min<a(i)Then Min=a(i) Min=a(i) Min=a(i) Min =a(i) End If End If End If End If Next i Next i Next i Next i Text1.Text=Min Text1.Text =Min Text1.Text =Min Text1.Text =Min 31. 有 如 下 程 序 : a = 100 s = 0 Do s=s+a a=a+1 Loop While a>120 42

Print a End 运 行 时 输 出 的 结 果 是 ( ) A)100 B)120 C)201 D)101 32. 有 如 下 程 序 : x=-5 Input"input value of s:"; s Select Case s Case s>0 y=x+1 Case s=0 y=x+2 Case Else y=x+3 End Select Print x;y End 运 行 时, 从 键 盘 输 入 -5, 输 出 的 结 果 是 ( ) A)-5-2 B)-5-4 C)-5-3 D)-5-5 33. 有 如 下 程 序 : a $="12345":b $="abcde" For j=1 To 5 c$=c$+left $ (a$,1)+right$ (b$,1) Next j Print c $ End 运 行 后 输 出 的 结 果 是 ( ) A)a1b2c3d4e5 B)1a2b3c4d5e C)e1d2c3b4a5 D)1e1e1e1e1e 34. 在 窗 体 中 添 加 一 个 命 令 按 钮 ( 其 Name 属 性 为 Command1), 然 后 编 写 如 下 代 码 : X = 10: i = 1 Z = Int(Rnd(X) + 2) On Z GoTo 50, 60, 70 i = i + 1 50: i = i + 1 60: i = i + 2 70: i = i + 3 Print i 43

程 序 运 行 后, 单 击 命 令 按 钮, 输 出 结 果 是 ( ) A)4 B)6 C)8 D)12 35. 有 如 下 程 序 : Const C$="Beijing" C$="Shanghai" C$="HeBei" Print C$ 运 行 后 输 出 的 结 果 是 ( ) A)Beijing B)Shanghai C)HeBei D) 显 示 出 错 信 息 二 填 空 题 ( 每 空 2 分, 共 30 分 ) 请 将 每 空 的 正 确 答 案 写 在 答 题 卡 1 ~ 15 序 号 的 横 线 上, 答 在 试 卷 上 不 得 分 1. 为 显 示 弹 出 式 菜 单, 可 以 使 用 1 方 法 2. 鼠 标 的 光 标 在 不 同 的 窗 口 内, 其 形 状 是 不 一 样 的, 光 标 的 形 状 通 过 2 属 性 来 设 置 3. 下 面 程 序 运 行 时, 内 层 循 环 总 次 数 是 3 For M=1 To 3 For N=0 To M-1 Next N Next M 4. 定 义 动 态 数 组 需 要 分 两 步 进 行, 首 先 在 模 块 级 或 过 程 级 定 义 一 个 没 有 下 标 的 数 组, 然 后 在 4 使 用 5 语 句 定 义 数 组 在 实 际 元 素 个 数 5. 在 执 行 KeyPress 事 件 过 程 时,KeyAscii 是 所 按 键 的 6 值 对 于 有 上 档 字 符 和 下 档 字 符 的 键, 当 执 行 KeyDown 事 件 过 程 时,KeyCode 是 7 字 符 的 8 值 6. 下 列 程 序 段 的 功 能 是 输 入 一 元 二 次 方 程 ax 2 +bx+c=0(a 0) 的 3 个 系 数 a,b,c, 并 判 断 它 根 的 情 况, 请 将 程 序 补 充 完 整 Dim a As Single, b As Single, c As Single Dim delta As Single a = txta.text: b = txtb.text: c = txtc.text delta= 9 If delta > 0 Then lblresult.caption = " 有 两 个 不 相 等 的 实 根 " ElseIf delta = 0 Then lblresult.caption = " 有 两 个 相 等 的 实 根 " 10 lblresult.caption = " 没 有 实 根 " End If 7. 以 下 程 序 代 码 将 整 型 动 态 数 组 X 声 明 为 具 有 20 个 元 素 的 数 组, 并 给 数 组 的 所 有 元 素 赋 值 1 11 As Integer Private Sub Command1_Click ( ) ReDim 12 44

For I=1 To 20 X(I)=1 Print X(I) Next I 8. 在 窗 体 中 添 加 一 个 名 称 为 Text1 的 文 本 框, 两 个 名 称 分 别 为 Command1 和 Command2 的 命 令 按 钮 要 求 程 序 运 行 后, 用 户 向 文 本 框 中 输 入 字 母, 单 击 Command1 按 钮 则 文 本 框 中 字 母 全 部 转 换 为 大 写, 然 后 单 击 Command2 按 钮 则 文 本 框 中 字 母 全 部 转 换 为 小 写 请 在 横 线 处 填 入 适 当 的 内 容, 将 程 序 补 充 完 整 Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 13 = Text1.Text Text1.Text = 14 Private Sub Command2_ 15 () Text1.Text = LCase(Text1.Text) 参 考 答 案 及 分 析 一 选 择 题 1. 答 案 D) 分 析 Alt+Q 快 捷 键 是 执 行 退 出 VB 2. 答 案 A) 分 析 Ctrl + D 用 于 打 开 文 件 对 话 框 ;Ctrl + E 用 于 打 开 菜 单 编 辑 器 ;Ctrl + F 用 于 打 开 查 找 窗 体 ;Ctrl + G 用 于 打 开 立 即 窗 口 3. 答 案 D) 分 析 名 称 用 来 输 入 菜 单 名 及 各 菜 单 项 的 控 制 名 ( 相 当 于 控 件 的 Name 属 性 ), 它 不 在 菜 单 中 出 现 菜 单 名 和 每 个 菜 单 项 都 是 一 个 控 件, 都 要 为 其 取 一 个 控 件 名 4. 答 案 A) 分 析 Val 函 数 是 求 值 函 数,A=Val (A)+Val (B)=1+2=3,B=Val ("12")=12 5. 答 案 B) 分 析 <> 或 >< 皆 为 不 等 号, 但 答 案 C) 的 Print 语 句 不 对, 所 以 B) 正 确 6. 答 案 A) 分 析 LargeChange 属 性 表 示 单 击 滚 动 条 中 滚 动 框 前 面 或 后 面 的 部 位 时,Value 增 加 或 减 少 的 增 量 值 7. 答 案 D) 45