VB历年考试真题有答案.pdf

《VB历年考试真题有答案.pdf》由会员分享，可在线阅读，更多相关《VB历年考试真题有答案.pdf（42页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、第 一 章 1.在 设 计 阶 段，当 按 Ctrl+R键 时，所 打 开 得 窗 口 是（）A）代 码 窗 口 B）工 具 箱 窗 口 C）工 程 资 源 管 理 器 窗 口 D）属 性 窗 口 2.在 V B集 成 环 境 中，可 以 列 出 工 程 中 所 有 模 块 名 称 的 窗 口 是（）A）工 程 资 源 管 理 器 窗 口 B）窗 体 设 计 窗 口 C）属 性 窗 口 D）代 码 窗 口 3.在 V B集 成 环 境 中，要 添 加 一 个 窗 体，可 以 单 击 工 具 栏 上 的 一 个 按 钮，这 个 按 钮 是（）A）矽 B）H C）题 D）囱 4.在 V b集 成

2、环 境 的 设 计 模 式 下，用 鼠 标 双 击 窗 体 上 的 某 个 控 件 打 开 得 窗 口 是（）A）工 程 资 源 管 理 器 窗 口 B）属 性 窗 口 C）工 具 箱 窗 口 D）代 码 窗 口 5.在 V B集 成 环 境 中 要 结 束 一 个 正 在 运 行 的 工 程，可 单 击 工 具 栏 上 的 一 个 按 钮，这 个 按 钮 是（）A）c B）C）国 D）6.在 设 计 窗 体 时 双 击 窗 体 的 任 何 地 方，可 以 打 开 得 窗 口 是（）A）代 码 窗 口 B）属 性 窗 口 C）工 程 资 源 管 理 器 窗 口 D）工 具 箱 窗 口 7.以

3、下 叙 述 中 错 误 的 是（）A）标 准 模 块 文 件 的 扩 展 名 是.bas B）标 准 模 块 文 件 是 纯 代 码 文 件 C）在 标 准 模 块 声 明 中 声 明 的 全 局 变 量 可 以 在 整 个 工 程 中 使 用 D）在 标 准 模 块 中 不 能 定 义 过 程 8.以 下 叙 述 中 错 误 的 是（）A）打 开 一 个 工 程 文 件 时，系 统 自 动 装 入 与 该 工 程 有 关 的 窗 体 文 件 B）保 存 V B程 序 时，应 分 别 保 存 窗 体 文 件 及 工 程 文 件 C）V B应 用 程 序 只 能 解 释 方 式 执 行 D）窗

4、体 文 件 包 含 该 窗 体 及 其 控 件 的 属 性 9.以 下 关 于 V B特 点 的 叙 述 中，错 误 的 是（）A）V B是 采 用 事 件 驱 动 编 程 机 制 的 语 言 B）V B程 序 既 可 以 编 译 运 行，也 可 以 解 释 运 行 C）构 成 V b程 序 的 多 个 过 程 没 有 固 定 的 执 行 顺 序 D）V B程 序 不 是 结 构 化 程 序，不 具 备 结 构 化 程 序 的 三 种 基 本 结 构 10.以 下 叙 述 中，错 误 的 是（）A）一 个 V B应 用 程 序 可 以 包 含 多 个 标 准 模 块 文 件 B）一 个 V B

5、工 程 可 以 含 有 多 个 窗 体 文 件 C）标 准 模 块 文 件 可 以 属 于 某 个 指 定 的 窗 体 文 件 D）标 准 模 块 文 件 的 扩 展 名 是.bas11.以 下 叙 述 中，错 误 的 是（）A）在 V B中，对 象 所 能 响 应 的 事 件 是 由 系 统 定 义 的B)对 象 的 任 何 属 性 既 可 以 通 过 属 性 窗 口 设 定，也 可 以 通 过 程 序 语 句 设 定 C)V b中 允 许 不 同 对 象 使 用 相 同 名 称 的 方 法 D)V B中 的 对 象 具 有 自 己 的 属 性 和 方 法 12.假 定 一 个 V B应 用

6、 程 序 由 一 个 窗 体 模 块 和 一 个 标 准 模 块 构 成。为 了 保 存 该 应 用 程 序，以 下 正 确 的 操 作 是()A)只 保 存 窗 体 模 块 文 件 B)分 别 保 存 窗 体 模 块、标 准 模 块 和 工 程 文 件 C)只 保 存 窗 体 模 块 和 标 准 模 块 文 件 D)只 保 存 工 程 文 件 13.以 下 叙 述 中 错 误 得 时()A)V B是 事 件 驱 动 型 可 视 化 编 程 工 具 B)V b应 用 程 序 不 具 有 明 显 的 开 始 和 结 束 语 句 C)V b工 具 箱 中 的 所 有 控 件 都 具 有 宽 度(w

7、idth)和 高 度(height)属 性 D)V B中 控 件 的 某 些 属 性 只 能 再 设 计 时 设 置 二、填 空 题 1)V B应 用 程 序 中 标 准 模 块 文 件 的 扩 展 名 是.2)V B程 序 设 计 采 用 的 编 程 机 制 是。3)资 源 文 件 的 扩 展 名 为。第 一 章：选 择 题：1-5:CABDD 6-10:ADCDC 11-15:BBC填 空：1).bas 2)事 件 驱 动 3).res第 二 章 一、选 择 题 1.以 下 描 述 错 误 的 是()A)窗 体 的 标 题 通 过 其 Caption属 性 设 置 B)窗 体 的 名 称(

8、Nam e属 性)可 以 再 运 行 期 间 修 改 C)窗 体 的 背 景 图 形 通 过 其 Picture属 性 设 置 D)窗 体 最 小 化 时 的 图 标 通 过 其 Icon属 性 设 置 2.设 有 如 下 变 量 声 明 语 句：Dim a,b as Boolean则 下 面 叙 述 中 正 确 的 是()A)a 和 b 都 是 布 尔 型 变 量 B)a 是 变 体 型 变 量，b 是 布 尔 型 变 量 C)a 是 整 型 变 量，b 是 布 尔 型 变 量 D)a 和 b 都 是 变 体 型 变 量 3.下 列 可 作 为 VISUA L BASICBA变 量 的 是

9、A)A#A B)4ABCC)?XY D)PRINT_TEXT4)假 定 编 写 了 如 下 四 个 窗 体 事 件 的 事 件 过 程，则 运 行 应 用 程 序 并 显 示 窗 体 后，已 经 执 行 的 时 间 过 程 是 A)LOAD B)ClickC)Lostfocus D)Keypress5 窗 体 fb rm l上 有 一 个 名 为 Command1的 命 令 按 钮，以 下 对 应 窗 体 单 击 事 件 的 事 件 过 程 是 A）Private sub forml_ click（）B）Private sub form_ click（）End sub end subC）pri

10、vate command 1 _click（）D）private command 1 _click（）End sub END SUB6 在 程 序 运 行 时，下 面 的 叙 述 正 确 的 是 A）用 鼠 标 右 键 单 击 窗 体 中 无 控 件 的 部 分，会 执 行 窗 体 的 Form_load事 件 过 程 B）用 鼠 标 左 键 单 击 窗 体 的 标 题 栏，会 执 行 窗 体 的 Form_click事 件 过 程 C）只 装 入 而 不 显 示 窗 体，也 会 执 行 窗 体 的 Form_Load事 件 过 程 D）装 入 窗 体 后，每 次 显 示 窗 体 时，都 会

11、执 行 窗 体 的 FORM一 click事 件 过 程 7）在 V B中，表 达 式 3*25 mod 3 的 结 果 是（）A）1 B）9C）3 D）出 现 错 误 提 示 8）以 下 叙 述 中 正 确 的 是 A）窗 体 的 nam e属 性 指 定 窗 体 的 名 称，用 来 标 识 一 个 窗 体 B）窗 体 的 nam e属 性 值 是 显 示 在 窗 体 标 题 栏 中 的 文 本 C）可 以 在 运 行 期 间 改 变 窗 体 的 nam e属 性 值 D）窗 体 的 nam e属 性 值 可 以 为 空 9）为 了 清 除 窗 体 上 的 一 个 控 件，下 列 正 确 的

12、 操 作 是 A）敲 回 车 键 B）按 E SC键 C 选 择（单 击）要 清 除 的 控 件，然 后 按 D E L键 D）选 择（单 击）要 清 除 的 控 件，然 后 按 回 车 10）以 下 叙 述 中 错 误 的 是 A）打 开 一 个 工 程 文 件 时，窗 体 自 动 装 入 与 该 工 程 有 关 的 窗 体、标 准 模 块 等 文 件 B）当 程 序 运 行 时，双 击 一 个 窗 体，则 触 发 该 窗 体 的 Dblclick事 件 C）V B应 用 程 序 只 能 以 解 释 方 式 执 行 D）事 件 可 以 由 用 户 引 发，也 可 以 由 系 统 引 发 11

13、）以 下 能 在 窗 体 F o rm l的 标 题 栏 中 显 示“V B窗 体”的 语 句 是 A）Forml.Name=VB 窗 体 B）Forml.Title=VB 窗 体”C）Forml.Caption=VB 窗 体 D）Forml.Text=VB 窗 体”12）以 下 叙 述 中 错 误 的 是 A）事 件 过 程 是 响 应 特 定 事 件 的 一 段 程 序 B）不 同 的 对 象 可 以 具 有 相 同 的 名 称 的 方 法 C）对 象 的 方 法 是 执 行 指 定 操 作 的 过 程 D）对 象 事 件 的 名 称 可 由 编 写 者 指 定 13）在 窗 体 上 画

14、一 个 名 称 为 Com m andl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程：Private Sub Commandl_Click（）Move 500,500End Sub程 序 运 行 后，单 击 命 令 按 钮，执 行 的 操 作 为 A）窗 体 向 左、上 方 向 各 移 动 500 B）窗 体 移 动 到 距 屏 幕 左 边 界、上 边 界 各 5 0 0的 位 置C）命 令 按 钮 向 左、上 方 向 各 移 动 500 D）命 令 按 钮 移 动 到 距 窗 体 左 边 界、上 边 界 各 5 0 0的 位 置 二、填 空 题 1）对 象 的 Visible属

15、 性 取 值 是 True或 2）在 设 计 阶 段，窗 体 的 Icon属 性 只 能 在 属 性 窗 口 中 通 过 来 设 置 3）窗 体 决 定 了 窗 体 的 外 观 4）是 V b的 基 本 运 行 实 体 5）对 象 是 具 有 和 的 实 体 6）在 V b中，要 将 一 个 窗 体 从 内 存 中 卸 载，应 该 使 用 语 句 7）要 设 置 窗 体 最 小 化 时 在 Windows任 务 栏 上 显 示 的 图 标，应 该 使 用 窗 体 的 属 性 进 行 设 置 8）在 V b中，窗 体 文 件 的 扩 展 名 是 第 二 章：选 择 题：1-5：BBDAB 6-1

16、0:CAACC填 空：1）False2）对 话 框 3）属 性 5）属 性 方 法 6）Unload8）.firn11-15:CDB4)对 象 7)Icon全 真 试 题 训 练 一、选 择 题 1.确 定 一 个 控 件 在 窗 体 上 的 位 置 的 属 性 是 A）Width 和 height B）width height C）Top 和 Left D）Top 或 Left2.在 窗 体 上 画 一 个 名 称 为 T e x tl的 文 本 框 和 一 个 名 称 为 Command1的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Command l

17、_Click（）Textl.Text=VisualMe.Textl=BasicTextl=ProgramEnd Sub程 序 运 行 后，如 果 单 击 命 令 按 钮，则 在 文 本 框 中 显 示 的 是 A）Visual B）Basic C）Program D）出 错 3.以 下 叙 述 中 错 误 得 是 A）一 个 工 程 可 以 包 括 多 种 类 型 的 文 件 B）V B应 用 程 序 既 能 以 编 译 方 式 执 行，又 能 以 解 释 方 式 执 行 C）程 序 运 行 后，在 内 存 中 只 能 驻 留 一 个 窗 体 D）对 于 事 件 驱 动 型 应 用 程 序，每

18、 次 运 行 时 的 执 行 顺 序 可 以 不 一 样 4.如 果 要 改 变 窗 体 的 标 题，则 需 要 设 置 的 属 性 是 A)Caption B)Name C)Backcolor D)BorderStyle5.以 下 叙 述 中 错 误 得 是 A）双 击 鼠 标 可 以 触 发 DblClick事 件 C）移 动 鼠 标 时，会 触 发 MouseMove事 件 B)D)窗 体 或 控 件 的 事 件 的 名 称 可 以 由 编 程 人 员 确 定 控 件 的 名 称 可 以 由 编 程 人 员 设 定6.以 下 关 于 窗 体 的 描 述 中，错 误 的 是 A)执 行 U

19、nload F o rm l语 句 后，窗 体 F o rm l消 失，但 仍 在 内 存 中 B)窗 体 的 L oad事 件 在 加 载 窗 体 时 发 生 C)当 窗 体 的 Enabled属 性 为 False时，通 过 鼠 标 和 键 盘 对 窗 体 的 操 作 都 被 禁 止 D)窗 体 的 Height、W idth属 性 用 于 设 置 窗 体 的 高 和 宽 7.以 下 叙 述 中 正 确 的 是 A)窗 体 的 Nam e属 性 指 定 窗 体 的 名 称，用 来 标 识 一 个 窗 体 B)窗 体 的 N am e属 性 的 值 是 显 示 在 窗 体 标 题 栏 中 的

20、 文 本 C)可 以 在 运 行 期 间 改 变 对 象 的 N am e属 性 的 值 D)对 象 的 Nam e属 性 值 可 以 为 空 8.刚 建 立 一 个 新 的 标 准 EX E工 程 后，不 在 工 具 箱 中 出 现 的 控 件 是 A)单 选 按 钮 B)图 片 框 C)通 用 对 话 框 D)文 本 框 9.在 C:Pic文 件 夹 下 有 一 个 图 形 文 件，名 为 Welcome.gif。为 了 将 该 图 形 装 入 窗 体 Form l,应 使 用 的 正 确 语 句 是 A)Form 1.Caption=,Welcome.gifC)Forml.picture

21、=C:picwelcome.fig”B)Form I.Picture二 C:picwelcome.gifD)Forml.Picture=LoadPicture(4tC:picwelcome.gif,)二、填 空 题 1.用 于 设 置 对 象 背 景 色 得 属 性 是()2.要 使 一 个 控 件 失 效，应 该 将 该 控 件 的()属 性 设 置 为 False3.一 般 来 说，同 一 个 窗 体 中 的 各 个 控 件 的()属 性 应 该 各 不 相 同；如 果 几 个 控 件 具 有 相 同 的()属 性，则 这 些 控 件 称 为 控 件 数 组。4.由 V B预 先 设 置

22、好 的、能 够 被 对 象 识 别 的 动 作 叫()5.在 界 面 设 计 阶 段，当 对 窗 体 中 的 对 象 进 行 双 击 操 作 时，V B会 显 示 该 对 象 的()窗 口 6.决 定 窗 体 标 题 栏 显 示 内 容 的 属 性 是()7.用 来 在 给 定 时 刻 触 发 事 件 的 控 件 是()8.事 件 可 以 由 用 户 引 发，也 可 以 由 系 统 引 发。计 时 器 的 Tim er事 件 是 由()引 发；鼠 标 操 作 是 由()引 发。.全 真 试 题 训 练：选 择 题：1-5：CCCAB 6-10：AACD填 空：1)Backcolor 2)Ena

23、bled 3)Name Name 4)事 件/过 程 5)代 码 6)Caption 7)计 时 器 或 Timer 8)系 统 用 户 第 三 章 1.设 a=2,b=3,c=4,d=5,则 下 面 语 句 的 输 出 是()Print 32*b or a=c and bc or cdA)false B)1 C)true D)-12.设 a=5,b=6,c=7,d=8,执 行 语 句 x=iif(ab)and(cd),10,20)后,x 的 值 是()A)10 B)20 C)30 D)2003.printsgn(-6人 2)+abs(6八 2)+int(-6八 2)的 输 出 结 果 是()

24、A)-36 B)1 C)-1 D)-724.在 窗 体 上 画 一 个 名 称 为 Com m andl的 命 令 按 钮，单 击 命 令 按 钮 时 执 行 如 下 事 件 过 程:Private Sub Command 1 _Click()a$=software and hardware*b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,b$,c$,1End Sub则 在 弹 出 的 信 息 框 标 题 栏 中 显 示 的 标 题 是()A)software and hardware B)hardware C)software D)15.设 x 是 整 型 变 量

25、，与 函 数 iif(x0,x,x)有 相 同 结 果 的 代 数 式 是()A)|x|B)-|x|C)x D)-x6.在 窗 体 文 件 中 有 下 面 的 事 件 过 程：Private Sub Command 1 _Click()Dim sa%=100Print aEnd Sub其 中 变 量 a 和 b 的 数 据 类 型 分 别 是()A)整 型，整 型 B)变 体 型，变 体 型 C)整 型，变 体 型 D)变 体 型，整 型 7.下 面 程 序 运 行 时，若 输 入 3 9 5,则 输 出 结 果 是()Private Sub Command 1 _Click()Dim x%x

26、=InputBox(请 输 入 一 个 3 为 整 数”)Print x Mod 10,x 100,(x Mod 100)10End SubA)3 95 B)5 3 9 C)5 9 3 D)3 5 98.以 下 变 量 名 中 合 法 的 是()A)x2-l B)print C)str_n D)2x9.把 数 学 表 达 式-表 示 为 正 确 的 V b表 达 式 应 该 是()2 y-6A)(5x+3)/(2y-y)B)x*5+3/2*y 6 C)(5*x+3)+(2*y 6)D)(x*5+3)/(2*y 6)10.可 以 产 生 3O 5O(含 3 0和 5 0)之 间 的 随 机 整

27、数 的 表 达 式 是()A)int(md*21+30)B)int(rnd*20+30)C)int(rnd*50-rnd*30)D)int(md*30+50)11.执 行 语 句 dim x,y as interger 后,A)x 和 y 均 被 定 义 为 整 型 变 量 B)X 和 Y 均 被 定 义 为 变 体 类 型 变 量 C)X 被 定 义 为 整 型 变 量，Y 被 定 义 为 变 体 类 型 变 量 D)X 被 定 义 为 变 体 类 型 变 量，Y 被 定 义 为 整 型 变 量 12.以 下 关 系 表 达 式 中，其 值 为 true的 是()A)XYZXYZ B)Vis

28、ualBasicvvisualbasic C)the=there D),Interger,IntM13.执 行 以 下 程 序 段 A$=,Visual Basic Programming B$=C+”C$=Ucase(Left$(a$,7)&B$&right$(a$,12)后，变 量 C$的 值 为()A)Visual BASIC Programming B)VISUAL C+ProgrammingC)Visual C+Programming D)VISUAL BASIC Programming14.若 变 量 a 未 事 先 定 义 而 直 接 使 用(例 如：a=0),则 变 量 a 的

29、 类 型 是()A)Interger B)String C)Boolean D)Variant15.为 把 圆 周 率 的 近 似 值 3.14159存 放 在 变 量 p i中，应 该 把 变 量 p i定 义 为()A)Dim pi as interger B)dim pi(7)as interger C)Dim pi as single D)Variant16.表 达 式 2*3八 2+4*2/2+3八 2 的 值 是()A)30 B)31 C)49 D)481 7以 下 不 能 输 出“Program”的 语 句 是()A)print mid(VBProgram,3,7)B)print

30、 rightCcVBProgram,7)C)print midCtVBProgram,3)D)print left(ttVBProgram,7)18.以 下 叙 述 中 错 误 的 是()A)在 通 用 过 程 中，多 个 形 式 参 数 之 间 可 以 用 逗 号 作 为 分 隔 符 B)在 print方 法 中，多 个 输 出 项 之 间 可 以 用 逗 号 作 为 分 隔 符 C)在 D im语 句 中，所 定 义 的 多 个 变 量 可 以 用 逗 号 作 为 分 隔 符 D)当 一 行 中 有 多 个 语 句 时，可 以 用 逗 号 作 为 分 隔 符 19.设 a=4,b=5,c=

31、6,执 行 语 句 print ab and b c后，窗 体 上 显 示 的 是()A)True B)False C)出 错 信 息 D)0二、填 空 题 1.在 窗 体 上 画 一 个 命 令 按 钮，名 称 为 C o m m an d l,然 后 编 写 如 下 事 件 过 程：Private Sub Commandl_Click()Dim n%n=Val(InpulBox(请 输 入 一 个 整 数:)If n Mod 3=0 And n Mod 2=0 And n Mod 5=0 ThenPrim n+10End IfEnd Sub程 序 运 行 后，单 击 命 令 按 钮，在 输

32、 入 对 话 框 中 输 入 6 0,则 输 出 结 果 是()2.描 述“x 是 小 于 100的 非 负 整 数”的 V B表 达 式 是()3.下 列 语 句 的 输 出 结 果 是()Print Format(Int(12345.6789*100+0.5)/100,000,0.00)4.设 有 如 下 程 序 段：A$=BeijingShanghai”B$=mid(a$,instr(a$,g)+1)执 行 上 面 的 程 序 后，变 量 b$的 值 为()5.与 数 学 表 达 式 竺+5 对 应 的 v b 表 达 式 是()3x6.在 窗 体 上 画 一 个 文 本 框、一 个 标

33、 签 和 一 个 命 令 按 钮，其 名 称 分 别 为 Textl、Label 1和 Command 1,然 后 编 写 如 下 两 个 事 件 过 程：Private Sub Command l_Click()s$=InpulBox(”请 输 入 一 个 字 符 串”)Text 1.Text=s$End SubPrivate Sub Textl_Change()Label 1.Caption=UCase(Mid(Textl.Text,7)End Sub程 序 运 行 后，单 击 命 令 按 钮，将 显 示 一 个 输 入 对 话 框，如 果 在 该 对 话 框 中 输 入 字 符 串“Vi

34、sualBasic”，则 在 标 签 中 显 不 的 内 容 是()7.在 窗 体 上 画 一 个 名 称 为 Com m andl的 命 令 按 钮，编 写 如 下 事 件 过 程 Private Sub Command 1 _Click()Dim a$a=_For i=1 To 5Print Space(6-i);Mid$(a,6-i,2*i-1)Next iEnd Sub程 序 运 行 后，单 击 命 令 按 钮，要 求 窗 体 上 显 示 的 输 出 效 果 如 下 图 所 示，请 填 空。54563456723456781234567898.与 数 学 式 子 A+X 尹 2 sin

35、 x 对 应 的 V B表 达 式 是 第 三 章：选 择 题：1-5:ABCBB 6-10：CBCDA 11-15：DBBDC 16-20：BDDA填 空：1)70 2)X%=0andX%100 3)12,345.68 4)Shanghai5)cos(a+b)八 2/(3*x)+5 6)BASIC 7)”123456789XXX.XXX”(其 中，XXX.XXX 部 分 为 任 意 长 度 的 任 意 字 符 串)8)A+XA(y+2)*sin(x)全 真 试 题 训 练 选 择 题 1.以 下 选 项 中，不 合 法 的 V B的 变 量 名 是()A.a5b B._xyz C.a_b D

36、.andif2.窗 体 上 有 一 个 名 称 为 te x tl的 文 本 框，一 个 名 称 为 command 1的 命 令 按 钮。窗 体 文 件 的 程 序 如 下:Private Type xa As Integerb As IntegerEnd TypePrivate Sub Command 1 _Click()Dim y As xy.a=InpulBox(”)if y.a2=y.a/2 Theny.a=y.a*y.ay.a=Fix(y.a/2)End IfTextl.Text=y.bEnd Sub对 以 上 程 序，下 列 叙 述 错 误 的 是()A.x是 用 户 定 义 的

37、 类 型 B.InputBox函 数 弹 出 的 对 话 框 中 没 有 提 示 信 息 C.若 输 入 的 是 偶 函 数，y.b的 值 为 该 偶 函 数 的 平 方。D.fix(y.a/2)吧 y.a/2得 小 数 部 分 四 舍 五 入，转 换 为 整 数 返 回 3.执 行 以 下 程 序 后 输 出 的 是 Private Sub Command l_Click()Ch$=ABCDEFGH”Print Mid(Right(ch$,6),Len(Left(ch$,4),2)End SubA.CDEFGH B.ABCD C.FG D.AB4.下 面 程 序 执 行 时，在 窗 体 上

38、显 示 的 是 Private Sub Command 1 _Click()Dim a(10)For k=l To 10a(k)=ll-kNext kPrinta(a(3)a(7)Mod a(5)EndA.3 B.5 C.7 D.95.下 面 可 以 正 确 定 义 2 个 整 型 变 量 和 1个 字 符 串 变 量 的 语 句 是 A.Dim n,m As Integers As StringB.Dim a%,b$,c As StringC.Dim aAs Integer,b,c As StringD.Dim x%,y As Integer,z As Stying6.下 列 表 达 式 中

39、 不 能 判 断 x 是 否 为 偶 数 的 是 A)x/2=int(x/2)B)x mod 2=0 C)fix(x/2)=x/2 D)x2=07.设 a=2,b=3,c=4,下 列 表 达 式 的 值 是()Not a=c or 4*c=b八 2 and ba+cA)-1 B)1 C)True D)False8.执 行 以 下 程 序 段 后，变 量 C$的 值 为()A$=,Visual Basic ProgrammingB$二 Quick”C$=b$&ucase(mid$(a$,7,6)&right$(a$,12)A)Visual BASIC Programming B)Quick Ba

40、sic ProgrammingC)QUICK Basic Programming D)Quick BASIC Programming9.设 有 如 下 语 句：Dim a,b as intergerC=,VisualBasic),D=#7/20/2005#以 下 关 于 这 段 代 码 的 叙 述 中，错 误 得 是 A)a 被 定 义 为 interger类 型 变 量 B)b 被 定 义 为 integer类 型 变 量 C)c 中 的 数 据 是 字 符 串 D)d 中 的 数 据 是 日 期 类 型 10.以 下 能 从 字 符 串“Visual Basic”中 直 接 取 出 子 字

41、 符 串“Basic”的 函 数 是()A)Left B)Mid C)String D)instr11.设 a=4,b=3,c=2,d=l,下 列 表 达 式 的 值 是 ab+l or cd and b mod cA)True B)1 C)-l D)012.以 下 可 以 作 为 Visual Basic变 量 名 的 是 A)A#A B)counstA C)3A D)?AA13.设 x=4,y=6,则 以 下 不 能 在 窗 体 上 显 示 出“A=10”的 语 句 是 A)print a=x+y B)print a=;x+yC)print a=+str(x+y)D)print A=&x+

42、y14.设 a=2,b=3,c=4,d=5,下 列 表 达 式 的 值 是 Not a=c or 4*c=bA2 and ba+cA)-l B)1 C)True D)False15.设 a=5,b=1 0,则 执 行 c=int(b a)*rnd+a)+l后，C 值 得 范 围 为 A)5 T o B)69 C)610 D)5916.在 窗 体 上 画 两 个 文 本 框，其 名 称 分 别 为 T ex tl和 T e x t2,然 后 编 写 如 下 程 序：Private sub form_load()Textl.text=,?,Text2.text=,vTextl.setfocusEn

43、d subPrivate sub textl_change()Text2.text=mid(text 1.text,8)End sub程 序 运 行 后，如 果 在 文 本 框 T e x tl中 输 入 B eijingC hina,则 在 文 本 框 Text2中 显 示 的 内 容 是 A)BeijingChina B)China C)Beijing D)BeijingC17.设 a=5,b=4,c=3,d=2,下 列 表 达 式 的 值 是 32*b or a=c and bc or cdA)1 B)True C)False D)2二、填 空 题 l.V B的 常 量 分 为()和()

44、2.Sichuan universityM 为()常 数；April 5,2002”为()常 数；#April5,2002y()常 数 3.V B的 变 量 必 须 以()开 头 4.在 立 即 窗 口 中 输 入 如 下 内 容：A$=I love Visual Basic”X=instr(a$,Visual)Print x则 在 立 即 窗 口 显 示 的 是()5.在 V B中 用()函 数 来 产 生 一 个 0 1之 间 的 单 精 度 随 机 数。由 于 一 个 随 机 数 序 列 可 能 反 复 出 现，V B提 供 了()语 句 来 消 除 这 种 情 况。6.写 出 一 个

45、能 产 生 取 值 范 围 为 30,45)的 单 精 度 随 机 数 的 表 达 式()7.数 学 不 等 式。在 V B中 表 示 为()8.算 术 表 达 式 14.33.1和 14.3 mod 3.1 的 值 分 别 是()和()9.数 学 表 达 式 之 一 的 V B表 达 式 是()X10.&34567是 一 个()进 制 整 型 数 11.V B的 变 量 名 的 有 效 字 符 为()个 12.Chr$(6 5)的 结 果 是()13.abs(sgn(val(-O.OO3)的 值 为()14.假 设 当 前 日 期 是 2002年 1 1月 1 日，星 期 五，有 下 列 语

46、 句:Print day(now)Print month(now)Print year(now)Print weekday(now)则 执 行 上 面 语 句 后，输 出 结 果 分 别 是()()()()15.用 in t函 数 可 以 实 现 数 值 保 留 到 小 数 点 后 某 位。如 下 语 句：Int(33.3333333*1000+0.5)/1000 保 留 到 小 数 点 后()位 全 真 试 题：选 择 题：1-5：BDCDD 6-10：DDDAB 11-15：DBADC 16-20：BB填 空:1)符 号 文 字 2)字 符 型 字 符 型 日 期 型 3)字 母 4)85

47、)rnd randomize 6)rnd*15+30 7)x=aandx=b8)4 2 9)(x/y+l)/(y/x-l)1 0)八 11)255 12)A13)1 14)1 1 1 2002 6 15)3第 四 章 一、选 择 题 1.在 窗 体 上 画 一 个 命 令 按 钮，然 后 编 写 如 下 事 件 过 程：Private Sub Command 1 _Click()MsgBox Str(123+321)End Sub程 序 运 行 后，单 击 命 令 按 钮，则 在 信 息 框 中 显 示 的 提 示 信 息 为 A)字 符 串“123+321”B)字 符 串“444 C)数 值

48、“444 D)空 白 2.如 果 执 行 一 个 语 句 后 弹 出 如 图 所 示 的 窗 口，则 这 个 语 句 是 A)inputbox(“输 入 框，“请 输 入 V B数 据)B)x=inputbox(“输 入 框，请 输 入 V B数 据”)C)inputbox(请 输 入 V B数 据”输 入 框)D)x=inputbox(请 输 入 V B数 据”输 入 框”)3.下 面 不 能 在 信 息 框 中 输 出“VB”的 是 A)msgboxVB B)x=msgbox(VB”)C)msgbox(VB”)D)call msgbox,VB,4.下 列 叙 述 中 正 确 的 是 A)m

49、sgbox语 句 的 返 回 值 是 一 个 整 数 B)msgbox语 句 的 第 一 个 参 数 不 能 省 略 C)执 行 msgbox语 句 并 出 现 信 息 框 后，不 用 关 闭 信 息 框 即 可 执 行 其 他 操 作 D)如 果 省 略 msgbox语 句 的 第 三 个 参 数(t i t l e),则 信 息 框 的 标 题 为 空 5.执 行 下 列 语 句 Strinput=inputbox(“请 输 入 字 符 串“，字 符 串 对 话 框”,“字 符 串”)显 示 输 入 对 话 框。此 时 如 果 直 接 单 击“确 定”按 钮，则 变 量 strinput的

50、 内 容 是 A)“请 输 入 字 符 串”B)“字 符 串 对 话 框”C)“字 符 串 D)空 字 符 串 6.窗 体 上 有 一 个 名 称 为 com m andl的 命 令 按 钮，其 事 件 过 程 如 下：Private Sub Command l_Click()x=VisualBasicProgramminga=Right(x,11)b=Mid(x,7,5)c=MsgBox(a,b)End Sub运 行 程 序 后 单 击 命 令 按 钮。以 下 叙 述 中 错 误 得 是()A)信 息 框 的 标 题 是 Basic B)信 息 框 中 的 提 示 信 息 是 Program