VB考试题目.pdf

《VB考试题目.pdf》由会员分享，可在线阅读，更多相关《VB考试题目.pdf（45页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、填 空 题 1.以 下 叙 述 中 正 确 的 是。A.窗 体 的 Nam e属 性 指 定 窗 体 的 名 称，用 来 标 识 一 个 窗 体 B.窗 体 的 N am e属 性 的 值 是 显 示 在 窗 体 标 题 栏 中 的 文 本 C.可 以 在 运 行 期 间 改 变 对 象 的 Nam e属 性 的 值 D.对 象 的 N am e属 性 值 可 以 为 空 参 考 答 案：A2.以 下 关 于 窗 体 的 描 述 中，错 误 的 是。A.执 行 Unload Form 1语 句 后，窗 体 F o rm l消 失，但 仍 在 内 存 中 B.窗 体 的 L o a d事 件 在

2、 加 载 窗 体 时 发 生 C.当 窗 体 的 E nabled属 性 为 False时，通 过 鼠 标 和 键 盘 对 窗 体 的 操 作 都 被 禁 止 D.窗 体 的 Height、W idth属 性 用 于 设 置 窗 体 的 高 和 宽 参 考 答 案：A3.以 下 能 够 触 发 文 本 框 Change事 件 的 操 作 是。A.文 本 框 失 去 焦 点 B.文 本 框 获 得 焦 点 C.设 置 文 本 框 的 焦 点 D.改 变 文 本 框 的 内 容 参 考 答 案：D4.在 窗 体 上 有 一 个 文 本 框 控 件，名 称 为 Txttime：一 个 计 时 器 控

3、 件，名 称 为 T im e rl,要 求 每 一 秒 钟 在 文 本 框 中 显 示 一 次 当 前 的 时 间。程 序 为：Private Sub T i m e r l()T xttime.Text=TimeEnd Sub在 下 划 线 上 应 填 入 的 内 容 是。A.EnabledB.VisibleC.IntervalD.Timer参 考 答 案：D5.在 窗 体 上 画 两 个 单 选 按 钮，名 称 分 别 为 Optionl、O ption2,标 题 分 别 为“宋 体”和“黑 体”;一 个 复 选 框，名 称 为 Checkl,标 题 为“粗 体”；一 个 文 本 框，名

4、 称 为 Textl,Text属 性 为“改 变 文 字 字 体:要 求 程 序 运 行 时，“宋 体”单 选 按 钮 和“粗 体”复 选 框 被 选 中，则 能 够 实 现 上 述 要 求 的 语 句 序 列 是。A.Option 1.Value=True：Check 1.Value=FalseB.Option 1.Value=True：Chcckl.Value=TrueC.Option2.Value=False：Check 1.Value=TrueD.Option 1.Value=True：Checkl.Value=l参 考 答 案：D6.为 了 在 按 下 E sc键 时 执 行 某 个

5、 命 令 按 钮 的 C lick事 件 过 程，需 要 把 该 命 令 按 钮 的 一 个 属 性 设 置 为 T r u e,这 个 属 性 是。A.ValueB.DefaultC.CancelD.Enabled参 考 答 案：C7.图 像 框 有 一 个 属 性，可 以 自 动 调 整 图 形 的 大 小，以 适 应 图 像 框 的 尺 寸，这 个 属 性 是。A.AutosizeB.StretchC.AutoredrawD.Appearance参 考 答 案：B8.以 下 叙 述 中 错 误 的 是。A.在 同 一 窗 体 的 菜 单 项 中，不 允 许 出 现 标 题 相 同 的 菜

6、 单 项 B.在 菜 单 的 标 题 栏 中，“&”所 引 导 的 字 母 指 明 了 访 问 该 菜 单 项 的 访 问 键 C.程 序 运 行 过 程 中，可 以 重 新 设 置 菜 单 的 Visible属 性 D.弹 出 式 菜 单 也 在 菜 单 编 辑 器 中 定 义 参 考 答 案：A9.设 在 菜 单 编 辑 器 中 定 义 了 一 个 菜 单 项，名 为 M enul。为 了 在 运 行 时 隐 藏 该 菜 单 项，应 使 用 的 语 句 是。A.Menul.Enabled=TrueB.Munul.Enabled=FalseC.Menu 1.Visible=TrueD.Men

7、u 1.Visible=False参 考 答 案：D10.在 窗 体 上 画 一 个 名 称 为 T im eri的 计 时 器 控 件，要 求 每 隔 0.5秒 发 生 一 次 计 时 器 事 件，则 以 下 正 确 的 属 性 设 置 语 句 是。A.Timerl.Interval=0.5B.Timer l.Interval=5C.Timer 1.Interval=50D.Timerl.Interval=500参 考 答 案：D11.表 示 滚 动 条 控 件 取 值 范 围 最 大 值 的 属 性 是 OA.MaxB.LargechangeC.ValueD.Max-Min参 考 答 案：

8、A1 2在 窗 体 上 画 一 个 名 称 为 L is tl的 列 表 框，-个 名 称 为 Label 1 的 标 签。列 表 框 中 显 示 若 干 城 市 的 名 称。当 单 击 列 表 框 中 的 某 个 城 市 名 时，在 标 签 中 显 示 选 中 城 市 的 名 称。下 列 能 正 确 实 现 上 述 功 能 的 程 序 是。A.Label 1.Caption=Listl.ListindexB.Label 1.Name=Listl.ListindexC.Label 1.Name=List 1.TextD.Label 1.Caption=Listl.Text参 考 答 案：D14

9、.以 下 叙 述 中 错 误 的 是。A.双 击 鼠 标 可 以 触 发 Dblclick事 件B.窗 体 或 控 件 的 事 件 的 名 称 可 以 由 编 程 人 员 确 定 C.移 动 鼠 标 时，会 触 发 Mousemove事 件 D.控 件 的 名 称 可 以 由 编 程 人 员 设 定 参 考 答 案：B15.设 窗 体 上 有 一 个 列 表 框 控 件 L i s t l,且 其 中 含 有 若 干 列 表 项。则 以 下 能 表 示 当 前 被 选 中 的 列 表 项 内 容 的 是。A.List 1.ListB.List 1.ListindexC.List 1.Index

10、D.List 1.Text参 考 答 案：D16.程 序 运 行 后，在 窗 体 上 单 击 鼠 标，此 时 窗 体 不 会 接 收 到 的 事 件 是。A.MousedownB.MouseupC.LoadD.Click参 考 答 案：C17.如 果 要 改 变 窗 体 的 标 题，则 需 要 设 置 的 属 性 是。A.CaptionB.NameC.BackcolorD.Borderstyle参 考 答 案：A18.设 组 合 框 C om bol中 有 3 个 项 目，则 以 下 能 删 除 最 后 一 项 的 语 句 是。A.Combo 1.Removeitem TextB.Combo

11、1.Removeitem 2C.Combo 1.Removeitem 3D.Combo 1.Removeitem Combo 1.Listcount参 考 答 案：B19.以 下 关 于 焦 点 的 叙 述 中，错 误 的 是。A.如 果 文 本 框 的 Tabst叩 属 性 为 F a ls e,则 不 能 接 收 从 键 盘 上 输 入 的 数 据 B.当 文 本 框 失 去 焦 点 时，触 发 Lostfbcus事 件 C.当 文 本 框 的 Enabled属 性 为 False 1 寸，其 Tab顺 序 不 起 作 用 D,可 以 用 Tabindex属 性 改 变 Tab顺 序 参

12、考 答 案：A21.在 窗 体 上 有 若 干 控 件，其 中 有 一 个 名 称 为 T e x tl的 文 本 框。影 响 T e x tl的 Tab顺 序 的 属 性 是。A.TabstopB.EnabledC.VisibleD.Tabindex参 考 答 案：D22.以 下 关 于 图 片 框 控 件 的 说 法 中，错 误 的 是。A.可 以 通 过 Print方 法 在 图 片 框 中 输 出 文 本B.清 空 图 片 框 控 件 中 图 形 的 方 法 之 一 是 加 载 一 个 空 图 形 C.图 片 框 控 件 可 以 作 为 容 器 使 用 D.用 Stretch属 性 可

13、 以 自 动 调 整 图 片 框 中 图 形 的 大 小 参 考 答 案：D23.以 下 叙 述 中 错 误 的 是。A.下 拉 式 菜 单 和 弹 出 式 菜 单 都 用 菜 单 编 辑 器 建 立 B.在 多 窗 体 程 序 中，每 个 窗 体 都 可 以 建 立 自 己 的 菜 单 系 统 C.除 分 隔 线 外，所 有 菜 单 项 都 能 接 收 C lick事 件 D.如 果 把 一 个 菜 单 项 的 Enabled属 性 设 置 为 F a ls e,则 该 菜 单 项 不 可 见 参 考 答 案：D24.设 窗 体 上 有 一 个 文 本 框，名 称 为 Textl,程 序 运

14、 行 后，要 求 该 文 本 框 不 能 接 受 键 盘 输 入，但 能 输 出 信 息，以 下 属 性 设 置 正 确 的 是。A.Textl.Maxlength=OB.Textl.Enab led=FalseC.Textl.Visible=FalseD.Textl.Width=O参 考 答 案：B26.设 菜 单 中 有 一 个 菜 单 项 为 Open。若 要 为 该 菜 单 命 令 设 计 访 问 键，即 按 下 A lt及 字 母 0时，能 够 执 行 Open命 令，则 在 菜 单 编 辑 器 中 设 置“Open命 令 的 方 式 是。A.把 Caption属 性 设 置 为&O

15、penB.把 Caption属 性 设 置 为 O&PenC.把 N am e属 性 设 置 为&OpcnD.把 Nam e属 性 设 置 为 O&pen参 考 答 案：A27.如 果 要 在 两 个 菜 单 命 令 项 之 间 加 一 条 分 隔 线，可 在 标 题 文 本 框 中 键 入。A.-B.+C.&D.#参 考 答 案：A28.窗 体 F o rm l的 名 称 属 性 是 f r m,它 的 L oad事 件 过 程 名 是。A.FormLoadB.Forml LoadC.frm LoadD.m eL oad参 考 答 案：A29.Visual Basic程 序 设 计 时 常

16、用 的 Print、C is属 于。A.属 性 B.打 印 字 库 C.方 法 D.事 件 参 考 答 案：C30.单 选 按 钮(OptionButton)用 于 一 组 互 斥 的 选 项 中。若 一 个 应 用 程 序 包 含 多 组 互 斥 条 件，可 在 不 同 的 中 安 排 适 当 的 单 选 按 钮，即 可 实 现。A.框 架 控 件(F ra m e)或 图 像 控 件(Image)B.组 合 框(C om boB ox)或 图 像 控 件(Image)C.组 合 框(C om boB ox)或 图 片 框(PictureBox)D.框 架 控 件(F ra m e)或 图

17、片 框(PictureBox)参 考 答 案：D31.在 程 序 中 可 以 通 过 复 选 框 和 单 选 按 钮 的 属 性 值 来 判 断 它 们 的 当 前 状 态 它。A.CaptionB.ValueC.CheckedD.Selected参 考 答 案：B32.使 用 方 法 可 将 新 的 列 表 项 添 加 到 一 个 列 表 框 中。A.PrintB.AdditemC.ClearD.Rcmoveltem参 考 答 案：B33.在 以 下 有 关 对 象 属 性 的 叙 述 中 错 误 的 是。A.所 有 对 象 都 具 有 N a m e属 性。B.只 能 在 执 行 时 设

18、置 或 改 变 的 属 性 为 执 行 时 属 性。C.对 象 的 某 些 属 性 只 能 在 设 计 时 设 定，不 能 使 用 代 码 改 变。D.Enabled属 性 值 设 为 False的 控 件 对 象 在 窗 体 上 将 不 可 见。参 考 答 案：D34.以 下 使 用 方 法 的 语 句 中，正 确 的 是。A.List 1.ClearB.Forml.ClearC.Combo 1.CisD.Picture 1.Clear参 考 答 案：A35.PictureBox Frame OptionButton ListBox TextBox Form ComboBox 这 7 个 对

19、 象 中，具 有 Caption属 性 的 有 个。A.3B.4C.2D.5参 考 答 案：A36.以 下 使 用 方 法 的 代 码 中，正 确 的 是 oA.Label I.SetFocusB.Forml.ClearC.Text I.SetFocusD.Combo 1.Cis参 考 答 案：C37.放 置 控 件 到 窗 体 中 的 最 迅 速 的 方 法 是 oA.双 击 工 具 箱 中 的 控 件B.单 击 工 具 箱 中 的 控 件 C.拖 动 鼠 标 D.单 击 工 具 箱 中 的 控 件 并 拖 动 鼠 标 参 考 答 案：A38.Im age控 件 加 载 图 片 后 的 尺

20、寸 A.比 图 片 大 B.比 图 片 小 C.与 图 片 大 小 不 同 D.与 图 片 大 小 相 同 参 考 答 案：D39.设 有 一 个 命 令 按 钮，若 要 实 现 按 回 车 键 等 同 按 此 键，应 设 置 其。A.Cancel属 性 设 为 TrueB.Cancel 属 性 设 为 FalseC.Default 属 性 设 为 TrueD.Default 属 性 设 为 False参 考 答 案：C40.下 列 不 是 列 表 框 的 方 法。A.AdditemB.ClearC.PrintD.Removeltem参 考 答 案：C41.要 想 在 一 个 文 本 框 中

21、显 示 多 行 内 容，应 在 界 面 设 计 时 对 下 列 属 性 进 行 设 置。A.TextB.FontC.MultiLineD.Alignment参 考 答 案：C42.以 下 不 能 实 现 在 窗 体 上 选 择 多 个 控 件 的 方 法 是。A.按 住 Shift键 同 忖 单 击 每 个 控 件 B.单 击 每 个 控 件 C.通 过 鼠 标 拖 一 个 方 框 将 它 们 选 定 D.按 住 C trl键 同 时 单 击 每 个 控 件 参 考 答 案：B43.当 移 动 控 件，重 新 设 定 其 尺 寸 时，属 性 会 自 动 改 变。A.Click ChangeB.

22、Name CaptionC.Top LeftD.Cancel Default参 考 答 案：C44.如 果 单 击 一 个 当 前 没 有 被 选 中 的 复 选 框，其 他 已 被 选 中 的 复 选 框 会 处 于 状 态。A.不 选 中 B.不 显 示 C.禁 止D.显 示 参 考 答 案：D45.计 时 器 控 件 每 次 经 历 一 个 固 定 的 时 间 间 隔 就 会。A.修 改 属 性 B.触 发 事 件 C.建 立 窗 体 D.显 示 图 片 参 考 答 案：B46.终 止 应 用 程 序 的 正 确 方 法 是 oA.卸 载 窗 体，然 后 执 行 E nd语 句 B.卸

23、载 窗 体 C.执 行 Unload M e语 句 D.执 行 Stop语 句 参 考 答 案：A47.在 菜 单 过 程 中 使 用 的 事 件 是 利 用 鼠 标 菜 单 条 来 实 现 的。A.拖 动 B.双 击 C.单 击 D.移 动 参 考 答 案：C48.当 一 个 PictureBox控 件 的 AutoSize属 性 为 True时，在 该 控 件 中 载 入 一 个 比 控 件 的 高 度 与 宽 度 都 大 的 图 片 时，图 片 的 大 小 与 控 件 的 大 小 相 比 是。A.大 B.小 C.相 等 D.未 知 参 考 答 案：C49.若 要 将 水 平 滚 动 条

24、的 最 小 值 设 为 0,最 大 值 设 为 2 5 5,应 对 其 属 性 进 行 设 置。A.Left 和 TopB.Width 和 HeightC.SmallChange 和 LargeChangeD.Min 和 Max参 考 答 案：D50.在 下 列 控 件 中，控 件 不 能 改 变 大 小。A.TextBoxB.LabelC.FrameD.Timer参 考 答 案：D1 4.若 磁 盘 文 件 C:Datal.dat不 存 在，下 列 打 开 文 件 语 句 中，会 产 生 错 误 的 是 Open C:Data 1.dat For Input As#216.V B 中 三 种

25、 文 件 访 问 的 类 型 为 顺 序、随 机、二 进 制 1 8.下 面 程 序 段 的 运 行 结 果 为。1 2 12 288n=1For i=1 To 4For j=1 To in=n*jNext jPrint n;Next i2 0.下 列 程 序 段 的 执 行 结 果 是 o FalseX=2Y=1IfX*Y 021.运 行 下 面 程 序，如 果 输 入 8 5,则 输 出 结 果 是。i=3Dim a As Integer,i As Integera=InputBox(input a:)If a 60 Then i=1Ifa 7 0 Then i=2Ifa 8 0 Then

26、 i=3Ifa 9 0 Then i=4Print i=n;i22.当 某 一 按 钮 的 Enabled 属 性 设 置 为 False时，该 按 钮 为 灰 白 显 示。2 9.下 面 程 序 段 的 运 行 结 果 为。溢 出 Dim s As Integer,i As Integeri=1:s=1Doi=i+sLoop Until s 10Print i,s2、Int(100*Rnd(l)产 生 的 随 机 整 数 的 闭 区 间 是 0,99。3、函 数 InStr(”VB程 序 设 计 教 程“，“程 序)的 值 为 _3。8、下 列 程 序 段 的 执 行 结 果 为 _ 4 6

27、Dim a(l 0)As Integer,b()As IntegerDim i As IntegerReDim b(5)For i=1 To 10a(i)=iIfiM o d 2=0Thenb(i/2)=a(i)End IfNext iPrint a(4);b(3)1 2 窗 体 的 Name属 性 为 Frm l,在 窗 体 模 块 通 用 声 明 处 和 过 程 Subl中 分 别 用 Public K AsInteger,Dim K As Integer声 明 了 两 个 同 名 变 量 K,则 在 过 程 SublH 要 访 问 全 局 变 量 K,可 采 用 Frml.k。20、执

28、行 以 下 语 句 后，k的 值 为 _2.45 4 oDim i As SingleFor i=0.45 To 2 Step 0.5k=k+1Next iPrint i;k21、下 面 程 序 运 行 后，单 击 commandl后 屏 幕 显 示 是 _25 7。Private Sub command 1 _click()For i=1 To 4If i 3 Then Exit ForNext iFor j=1 To 6i=i+jNext jPrint i,jEnd Sub2 3 在 窗 体 上 画 一 个 命 令 按 钮，名 称 为 Command1。单 击 命 令 按 钮 时，执 行

29、如 下 事 件 过 程：Private Sub Command 1 _Click()a$=Microsoft Visual BasicB$=Right(a$,5)C$=Mid(a$,1,9)MsgBox a$,B$,C$,1End Sub则 在 弹 出 的 信 息 框 的 标 题 栏 中 显 示 的 信 息 是 _Basic24、在 窗 体 上 画 一 个 命 令 按 钮 和 一 个 文 本 框，其 名 称 分 别 为 Commandl和 T e x tl,把 文 本 框 的 Text属 性 设 置 为 空 白，然 后 编 写 如 下 事 件 过 程：Private Sub Command 1

30、 _Click()A=Inputbox(nEnter An Integer)B=Inputbox(MEnter An Integer0)Text 1.Text=B+AEnd Sub程 序 运 行 后，单 击 命 令 按 钮，如 果 在 输 入 对 话 框 中 分 别 输 入 4和 5 6,则 文 本 框 中 显 示 的 内 容 是 _ 564 o26、有 如 下 程 序：Private Sub Command 1 _Click()x=InputBox(ninput value”)Select Case xCase Is 0y=x+1Case Is=0y=x+2Case Elsey=x+3End

31、 SelectPrint x;yEnd Sub假 设 运 行 时 从 键 盘 上 输 入-5,输 出 结 果 是 _-5-2 o31、在 窗 体 上 画 一 个 名 称 为 D rivel的 驱 动 器 列 表 框，个 名 称 为 D irl的 目 录 列 表 框，一 个 名 称 为 Filel的 文 件 列 表 框，两 个 名 称 分 别 为 L abell.L abel2,标 题 分 别 为 空 白 和“共 有 文 件”的 标 签。编 写 程 序，使 得 驱 动 器 列 表 框 与 目 录 列 表 框.目 录 列 表 框 与 文 件 列 表 框 同 步 变 化，并 且 在 标 签 Labe

32、ll中 显 示 当 前 文 件 夹 中 文 件 的 数 量。能 够 正 确 实 现 上 述 功 能 的 程 序 是：Private Sub Dirl_Change()Filel.Path=Dirl.PathLabel 1.Caption=File 1.ListCountEnd SubPrivate Sub Drivel_Change()Dirl.Path=Drive 1.DriveLabel 1.Caption=Filel.ListCountEnd Sub32、假 定 在 窗 体 上 建 立 了 通 用 对 话 框，其 名 称 为 CommonDialogl,用 下 面 的 语 句 可 以 建

33、 立 一 个 对 话 框：CommonDialog 1.Action=2与 该 语 句 等 价 的 语 句 是 CommonDialogl.showsave33、表 达 式 Int(-17.8)+Sgn(17.8)的 值 是 _17。34 表 达 式 Int(-17.8)+Abs(17.8)的 值 是 是.243、函 数 Len(Str(Val(”123.4)的 值 为 _ 6。47、下 列 程 序 段 的 执 行 结 果 为 _ 1 8Dim a(3,5)As IntegerDim i As Integer,j As IntegerFor i=1 To 3For j=1 To 5a(ij)=

34、a(i-l,j-l)+(i-l)*3+jNext jNext iPrint a(3,4)49、下 列 程 序 段 的 执 行 结 果 为 _ 0 2 2 3 oDim M(2)For i=l To 2M(i)=0Next iK=2For i=l To kForj=l TOkM(j)=M(i)+lPrint M(k);Next jNext i51、调 用 由 语 句 Private Sub Convert(Y As Integer)定 义 的 Sub过 程 时，以 卜 不 是 按 值 传 递 的 是_ Convert X52 若 在 应 用 程 序 中 用 Private Sub Subl(X

35、As Integer,Y As Single)”定 义 了 子 程 序 Subl,以 下 调 用 子 程 序 Subl的 Call语 句 中 Call Sub 1(5)是 错 误 的。53、能 被 对 象 所 识 别 的 动 作 与 对 象 可 执 行 的 活 动 分 别 称 为 对 象 的 事 件、方 法 54、在 VB中 有 一 行 程 序 代 码:Textl.Text=Visual Basic,其 中 的 Text 1、TextffVisual Basic分 别 代 表 对 象、属 性、值 56、在 使 用 OPEN语 句 打 开 文 件 时，如 果 省 略 fo r子 句，则 打 开

36、的 文 件 存 取 方 式 为 一 随 机 存 取 方 式 _60、执 行 以 下 语 句 后，a的 值 为 _ 3。Dim a As Integera=1Doa=a+2Loop While a=10064、在 窗 体 上 画 一 个 命 令 按 钮 和 一 个 文 本 框，其 名 称 分 别 为 Commandl和 Textl,把 文 本 框 的 Text属 性 设 置 为 空 白，然 后 编 写 如 下 事 件 过 程：Private Sub Command 1 _Click()Dim A As IntegerA=Inputbox(MEnter An Integer”)B=Inputbox

37、(nEnter An Integer)Textl.Text=B+AEnd Sub程 序 运 行 后，单 击 命 令 按 钮，如 果 在 输 入 对 话 框 中 分 别 输 入 4和 5 6,则 文 本 框 中 显 示 的 内 容 是 _ 6 0 o65、运 行 下 面 程 序，输 出 结 果 是 _8 oPrivate Sub Command 1 _Click()Dim a As Integer,b As Integer,c As IntegerDim d As Integera=5b=-3c=8d=Ilfifa b And a c,a,IIf(b c,b,c)print dEnd Sub72

38、、如 果 X是 一 个 正 数 的 实 数，将 千 分 位 四 舍 五 入，保 留 两 位 小 数 的 表 达 式 是 _0.01*Int(l 0 0*(X 4-0.0 0 5)。75、名 为 sort的 Sub子 过 程 的 形 式 参 数 为 一 数 组，以 下 的 定 义 语 句 中 正 确 的 是.Private Subsort(A()As Integer)12.一 个 工 程 中 含 有 窗 体 Forml.Form2和 标 准 模 块 M o d e ll,如 果 在 Form l中 有 语 句 Public X As Integer在 M odell中 有 语 句 Public

39、Y As Integer则 以 下 叙 述 中 正 确 的 是 在 From 1中 可 以 直 接 使 用 X1 4.假 定 一 个 Visual Basic应 用 程 序 由 一 个 窗 体 模 块 和 一 个 标 准 模 块 构 成。为 了 保 存 该 应 用 程序，以 下 正 确 的 操 作 是 分 别 保 存 窗 体 模 块、标 准 模 块 和 工 程 文 件。15.以 下 叙 述 中 错 误 的 是 窗 体 的 Hide方 法 和 Unload方 法 的 作 用 完 全 相 同。21.下 面 程 序 段 的 运 行 结 果 为 1 2 6 24 oFor i=l To 4n=lFor

40、 j=l To In=n*jNext jPrint n；Next i24执 行 语 句：A=Inputbox(nTodayn,Tomorrow0,Yesterday0)将 显 示 一 个 输 入 对 话 框，在 对 话 框 的 输 入 区 中 显 示 的 信 息 是 Yesterday。33.在 代 码 编 辑 器 中，如 果 一 条 语 句 太 长，无 法 在 一 行 内 写 下(不 包 括 注 释)，要 折 行 书 写，可 以 在 行 未 使 用 续 行 字 符 一 个 空 格 加 一 个 下 划 字 符(_)，表 示 下 一 行 是 当 前 行 的 继 续。37.执 行 以 下 语 句

41、后，a的 值 为 溢 出。Dim a As Integera=1Doa=a+2Loop Until a=1002.选 拔 身 高 T超 过 1.7米 且 体 重 W 小 于 62.5公 斤 的 人,表 示 该 条 件 的 布 尔 表 达 式 为 _TI.7 AndW X O34.表 达 式 5A2 Mod 252A2 的 值 是 _ 1_2.表 达 式 Mid(SHANGHAL)的 值 是 _有 错 _4.在 窗 体 上 有 一 个 文 本 框 控 件，名 称 哥 Txttime,一 个 计 时 器 控 件，名 称 为 Timed,要 求 每 一 秒 钟 在 文 本 框 中 显 示 一 次 当

42、 前 的 时 间。程 序 为：Private Sub T i m e r l()Txttime.Text=TimeEnd Sub在 下 划 线 上 应 填 入 的 内 容 是 Timer7.下 列 程 序 段 的 执 行 结 果 为 _ 3 _0Dim M(10),N(10)i=3For j=1 To 5M(j)=jN(i)=2*i+jNext jPrint N(i);M(i)12.下 列 说 法 正 确 的 是 _ _ 模 块 级 变 量 可 在 模 块 通 用 声 明 段 中 用 Private和 Dim定 义 15.以 下 叙 述 中 错 误 的 是 sual Basic应 用 程 序

43、只 能 以 解 释 方 式 执 行 一 _。17.为 了 建 立 一 个 随 机 文 件，其 中 每 一 条 记 录 由 多 个 不 同 数 据 类 型 的 数 据 项 组 成，应 使 用.记 录 类 型。25.若 执 行 定 义 语 句 Dim a As Integer,以 下 给 a 赋 值 的 语 句 中，错 误 的 是 a=2*32760|335 表 达 式 Left(how are you”,3)的 值 是 一 力。肥。38VB中 可 以 使 用 自 己 定 义 的 Sub过 程 和 Function过 程，F u n c t i o n 过 程 称 为 函 数，这 种 过 程 可

44、以 返 回 值。1表 达 式 25.28 mod 6.99的 值 是 _43表 达 式 Vai(.123E2CD)的 值 是 2.3。7 以 下 关 于 动 态 数 组 的 语 句 中，正 确 的 是 ReDim a(k+l)：ReDim preserve a(1 0)。12Sub过 程 与 Function函 数 最 根 本 的 区 别 是 前 者 无 返 回 值，但 后 者 有。15VB采 用 了 事 件 驱 动 编 程 机 制。17以 下 叙 述 中 正 确 的 是 一 随 机 文 件 中 每 个 记 录 的 长 度 是 固 定 的 一 21有 程 序 段 如 下：For i=1 To

45、3For j=5 To i Step-1Print i*jNext jNext i其 中 Print i*j”语 句 执 行 的 次 数 为 12。33 表 达 式 2*32+2*8/4+32 的 值 为 _31。1.下 列 叙 述 中 不 正 确 的 是 _ B _。A.变 量 名 的 长 度 不 超 过 255个 字 符 B.变 量 名 可 以 包 含 小 数 点 或 者 内 嵌 的 类 型 声 明 字 符 C.变 量 名 不 能 使 用 关 键 字 D.变 量 名 的 第 一 个 字 符 必 须 是 字 母 2.下 面 表 达 式 中，_C _ 的 运 算 结 果 与 其 他 三 个 不

46、 同。A.Int(-3.5)+0.5B.Sgn(-3.5)-2.5C.Exp(-3.5)D.-Abs(-3.5)3.Visual Basic布 尔 运 算 符 Xor,Or,Not,And中，级 别 最 高 的 运 算 符 是 _ C。A.XorB.AndC.NotD.Or7.下 列 程 序 段 的 执 行 结 果 为 _ A Dim A(5,5)As IntegerFor i=1 To 3For j=1 To 4A(i,j)=i*jNext jNext iPrint A(2,3)+A(3,4)+A(4,5)A.18B.38C.20D.出 错 8.设 有 如 下 程 序：Option Base

47、 1Private Sub Form_Click()Dim ADim i As IntegerA=Array(1,2,3,4,5,6,7,8,9)For i=l To 4Print A(4+i);Next iEnd Sub程 序 运 行 后，单 击 窗 体，则 在 窗 体 上 显 示 的 是 C OA.1 2 3 4B.6 7 8 9C.5 6 7 8D.2 3 4 59.运 行 以 下 程 序，单 击 命 令 按 钮 后，如 果 用 户 从 键 盘 上 输 入 6、5、4、3、2、1,则 窗 体 上 输 出 内 容 为 D。Private Sub Commandl_Click()Dim a(

48、)As IntegerDim i As Integer,j As IntegerReDim a(6)For i=5 To 10a(10-i+1)=InputBox(z，input number)Next iReDim Preserve a(10)a(10)=a(5)+a(4)Print a(10)End SubA.出 错 B.1C.0D.910.执 行 下 面 的 程 序，输 出 结 果 是 A.Option ExplicitPrivate Sub FormClick()Dim M As Integer,N As IntegerM=1:N=2Print M+N+F(M,N)M=2:N=1Pri

49、nt F(M,N)+F(M,N);End SubPrivate Function F(X As Integer,Y As Integer)X=X+YY=X+3F=X+YEnd FunctionA.18 30B.4 9C.9 18D.7 1811.在 语 句 Public Sub Sort(I As Integer)中，I是 一 个 按 D 传 递 的 参 数。A.值 B.变 量 C.常 量 D.地 址 12.若 在 应 用 程 序 的 标 准 模 块.窗 体 模 块 和 过 程 Subl的 说 明 部 分，分 别 用 Public G AsInteger、Private G As Intege

50、r和 Dim G As Integer”语 句 说 明 了 三 个 同 名 变 量 G。如 果 在 过 程 Subl中 使 用 赋 值 语 句“G=3596”,则 该 语 句 是 给 在 B 说 明 部 分 定 义 的 变 量 G 赋 值。A.标 准 模 块 B.过 程 SublC.标 准 模 块.窗 体 模 块 和 过 程 SublD.窗 体 模 块 13.VB是 一 种 面 向 B 的 程 序 设 计 语 言。A.过 程 B.对 象 C.方 法 D.用 户 14.VB是 用 于 开 发 _ A _ 环 境 下 的 应 用 程 序 的 工 具。A.WindowsB.UNIXC.DOSD.DO