计算机VB考试总复习题模拟试题.pdf

全 真 模 拟 试 卷（一）一、选 择 题:（1）数 据 的 存 储 结 构 是 指（）（A）存 储 在 外 存 中 的 数 据（B）数 据 所 占 的 存 储 空 间 量（C）数 据 的 逻 辑 结 构 在 计 算 机 中 的 表 示（D）数 据 在 计 算 机 中 的 顺 序 存 储 方 式（2）下 列 关 于 队 列 的 叙 述 中 正 确 的 是（）（A）在 队 列 中 只 能 删 除 数 据（B）在 队 列 中 只 能 插 入 数 据（C）队 列 是 先 进 后 出 的 线 性 表（D）队 列 是 先 进 先 出 的 线 性 表（3）对 长 度 为 n 的 线 性 表 进 行 顺 序 查 找，在 最 坏 的 情 况 下 所 需 要 的 比 较 次 数 为（）（A）n（B）n+1（C）n/2（4）结 构 化 程 序 设 计 的 3种 结 构 是（）（A）顺 序 结 构、选 择 结 构、转 移 结 构（C）多 分 支 结 构、赋 值 结 构、等 价 结 构（D）（n+1）/2（B）顺 序 结 构、选 择 结 构、循 环 结 构（D）分 支 结 构、等 价 结 构、循 环 结 构（5）编 制 一 个 好 的 程 序，首 先 要 保 证 它 的 正 确 性 和 可 靠 性，还 应 强 调 良 好 的 编 程 风 格，在 书 写 功 能 性 注 释 时 应 考 虑（）（A）仅 为 整 个 程 序 作 注 释（B）仅 为 每 个 模 块 作 注 释（C）为 程 序 段 作 注 释（D）为 每 个 语 句 作 注 释（6）需 求 分 析 的 最 终 成 果 是 产 生（）（A）项 目 开 发 计 划（B）需 求 规 格 说 明 书（C）设 计 说 明 书（D）可 行 性 分 析 报 告（7）验 证 软 件 的 功 能 和 性 能 及 其 他 特 性 是 否 满 足 了 需 求 规 格 说 明 中 确 定 的 各 种 需 求 以 及 软 件 配 置 是 否 完 全、正 确 的 过 程 是（）（A）单 元 测 试（B）集 成 测 试（C）确 认 测 试（D）系 统 测 试（8）在 数 据 库 管 理 系 统 提 供 的 数 据 语 言 中，负 责 数 据 的 模 式 定 义 与 数 据 的 物 理 存 取 构 建 的 是（）（A）数 据 定 义 语 言（B）数 据 转 换 语 言（C）数 据 操 纵 语 言（D）数 据 控 制 语 言（9）数 据 库 系 统 的 三 级 模 式 结 构 中，下 列 不 属 于 三 级 模 式 的 是（）（A）内 模 式（B）抽 象 模 式（C）外 模 式（10）关 系 代 数 运 算 是 以（）为 基 础 的 运 算（A）关 系 运 算（B）谓 词 运 算（C）集 合 运 算（11）以 下 不 能 在 工 程 资 源 管 理 器 窗 口 中 列 出 的 文 件 类 型 是（D）概 念 模 式（D）代 数 运 算(A).bas(B).res(C).firm(D).ocx（12）决 定 一 个 窗 体 或 控 件 的 位 置 的 属 性 是（）（A）Top 和 Width（B）Top 和 Left（C）Left 和 Width（D）Width 和 Height（13）下 列 叙 述 中 错 误 的 是（）（A）对 象 具 有 属 性、方 法 等 特 性，可 以 识 别 预 先 定 义 的 事 件（B）对 象 之 间 可 以 进 行 通 信，方 式 是 通 过 互 传 消 息 完 成（C）一 个 对 象 中 包 含 数 据 及 其 对 这 些 数 据 的 相 关 操 作（D）对 象 的 属 性 值 一 经 初 始 化，则 不 能 再 改 变（14）卜 面 给 出 的 符 号 中，可 以 作 为 Visual Basic的 变 量 名 的 是（）（A）Beta（B）兀 R（C）Print（D）abc-123（15）以 下 关 系 表 达 式 中，其 值 为 False的 是（）（A）“XYZ v XYz（B）the o there（C）123”“ABC”（D）Chr（Asc（A）=Ucase（a”）(1 6)在 窗 体 上 画 一 个 命 令 按 钮，名 称 为 C om m ands单 击 命 令 按 钮 时，执 行 如 下 事 件 过 程:Private Sub Command 1 Click()a$=Visual Basic Languageb$=Right(a$,8)c$=Mid(a$,1,6)MsgBox a$,b$,c$,1End Sub则 在 弹 出 的 消 息 框 的 标 题 栏 中 显 示 的 信 息 是()(A)V isual Basic L anguage(B)V isual(C)L anguage(D)1(1 7)设 有 以 下 程 序，当 程 序 运 行 时，单 击 窗 体，则 在 窗 体 上 输 出 结 果 为()Private Sub Form_Click()Dim i A s Integer,j A s Integeri=100j=200Print i=jEnd Sub(A)程 序 出 错(B)100(C)200(D)False(1 8)若 在 Shape控 件 内 以 FillStyle属 性 所 指 定 的 图 案 填 充 区 域，而 填 充 图 案 的 线 条 的 颜 色 由 FillColor属 性 指 定，非 线 条 的 区 域 由 B ackColor属 性 填 充，则 应()(A)将 其 FillStyle属 性 设 置 为 2 7 的 某 个 值，B ackstyle属 性 设 置 为 1(B)将 其 FillStyle属 性 设 置 为 0 或 1,B ackstyle属 性 设 置 为 1(C)将 其 FillStyle属 性 设 置 为 2 7 的 某 个 值，B ackstyle属 性 设 置 为 0(D)将 其 FillStyle属 性 设 置 为 0 或 1,B ackstyle属 性 设 置 为 0(1 9)设 窗 体 有 一 名 称 为 T i m erl的 计 时 器 控 件，要 使 该 计 时 器 在 程 序 运 行 过 程 中 每 隔 2 s自 动 触 发 一 个 T im er事 件，则 在 程 序 代 码 中 应 写 的 语 句 是()(A)Timer 1.Interval=2000(B)Timerl.Interval=200(C)Timerl.Interval=20(D)Timerl.Interval=2(2 0)下 列 选 项 中，不 能 将 图 片 装 入 图 片 框 和 图 像 框 的 方 法 是()(A)在 设 计 阶 段，在 属 性 窗 口 中 将 Pi cture属 性 的 值 设 置 为 某 个 图 片 文 件(B)在 设 计 阶 段，直 接 在 图 片 框 和 图 像 框 中 手 工 绘 制 一 幅 图(C)在 设 计 阶 段，把 已 复 制 到 剪 贴 板 上 的 图 橡 粘 贴 到 图 片 框 或 图 像 框 中(D)在 程 序 代 码 中，直 接 利 用 L oadPicture函 数 将 图 像 装 入 图 片 框 或 图 像 框(2 1)以 下 程 序 段 中 的 执 行 结 果 为“O K”的 是()(A)Dim y A s Integer(B)Dim y A s Integery=10 y=20Select Case y Select Case yCase 1 1 to 1 Case Is20,Is6,1,2 to 5 Case l,3Js6Print OKnPrint nOKHEnd Select End Select(2 2)以 下 是 窗 体 的 C l i ck事 件 过 程 及 其 程 序 代 码，则 在 程 序 运 行 时，单 击 窗 体，程 序 的 输 出 结 果 为()Private Sub Form Click()Dim y A s Integer,I A s Integer,s A s Integers=Between 2050 and 3000”y=V al(M id(s,InStr(s,M2H),4)I f y M od 400=0 Or(y M od 100=0 A ndy M od 4 o 0)Then1=1Else1=-1End IfPrint 1End Sub(A)0(B)1(C)-1(D)Null(2 3)以 下 是 命 令 按 钮 Command 1的 C l i ck事 件 过 程 代 码：Private Sub Command 1 Click()Dim i A s Integer,j A s Integer,k A s Integer,s A s Integers=0For i=1 To 3For j=1 To iFor k=j To 3s=s+1Next kNext jNext iPrint sEnd Sub(A)12(B)14(C)16(D)18(2 4)以 下 是 窗 体 模 块 的 程 序 代 码，当 程 序 运 行 过 程 中，单 击 窗 体 后，输 出 结 果 是()Const NUM As Integer=10Dim a As Integer,b As Integera=l:b=NUMDo Until b NUMa=a*bb=b+1LoopPrint a(A)10(B)1(C)1 1(D)20(2 5)语 句 Print Iif(2,3,4)的 输 出 结 果 为()(A)0(B)2(C)3(D)4(2 6)下 列 有 关 控 件 数 组 的 说 法 中，正 确 的 是()(A)控 件 数 组 中 所 包 含 的 控 件 必 须 是 同 一 种 类 型 的，且 它 们 的 Name属 性 值 相 同，但 每 个 控 件 的 Index属 性 值 不 同(B)控 件 数 组 中 所 包 含 的 控 件 必 须 是 同 一 种 类 型 的，且 它 们 的 Name属 性 值 不 能 相 同(C)可 以 将 窗 体 上 的 各 种 类 型 的 控 件 创 建 到 一 个 控 件 数 组 中(D)程 序 运 行 时，对 控 件 数 组 中 的 不 同 控 件 操 作 而 触 发 事 件 时，执 行 的 是 对 应 于 各 个 控 件 的 事 件 过 程 代 码(2 7)以 下 程 序 段 的 运 行 结 果 是()Dim a(-l To 5)As Booleanflag=FalseDim i As Integer,j As IntegerDo Until flag=TrueFor i=LBound(a)To UBound(a)j=j+1If a(i)=False Thena(i)=TrueExit ForEnd IfIf i=5 Then flag=TrueNext iLoopPrint j(A)7(B)35(C)20(D)8(2 8)在 窗 体 上 画 一 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 卜.程 序 代 码：Private Sub Commandl_Click()Dim al(l To 10)As Integer,a2(l To 10)As IntegerDim n As Integer,i As Integern=3For i=1 To 5al(i)=ia2(n)=2*n+iNext iPrint a2(n)End Sub在 运 行 过 程 中，单 击 命 令 按 钮 后，则 程 序 的 输 出 结 果 为()(A)7(B)9(C)1 1(D)1 3(2 9)在 窗 体 上 加 个 命 令 按 钮，其 名 称 为 C om m ands然 后 编 写 以 下 程 序 代 码：Private Sub Command 1 Click()Dim data,nl,n2data=Array(10,30,-20,50,20)sub 1 data,nl,n2Print nl;n2End SubPrivate Sub subl(d,ml,m2)Dim i As Integerml=d(LBound(d)m2=d(LBound(d)For i=LBound(d)+1 To UBound(d)If ml d(i)Then m2=d(i)Next iEnd Sub当 程 序 运 行 过 程 中，单 击 命 令 按 钮 Commandl后，程 序 的 输 出 结 果 为()(A)50-20(B)10-20(C)-20 50(D)0 0(3 0)在 窗 体 Form 1上 添 加 一 k 个 命 令 按 钮 Command 1,然 后 编 写 窗 体 模 块 的 代 码：Dim x As IntegerPrivate Sub mysub()Dim x As IntegerPrint nx=M;xx=200End SubPrivate Sub Command 1 _C 1 ick()x=100Call mysubPrint”x=；xEnd Sub当 程 序 运 行 过 程 中，单 击 命 令 按 钮 Commandl后，则 程 序 的 输 出 结 果 为()(A)x=100(B)x=0(C)x=0(D)x=200 x=200 x=200 x=100 x=100(3 1)在 窗 体 上 加 一 命 令 按 钮，其 名 称 为 Com m andl,然 后 编 写 以 下 程 序 代 码：Private Sub Command l_Click()Dim str As Stringstr=InputBox(“请 输 入”)Print fund(str)End SubPrivate Function func 1(s As String)As IntegerDim i As Integer,d As Integerd=0For i=Len(s)To 1 Step-1d=d*10+Val(Mid(s,i,1)Next ifunc 1=dEnd Function当 程 序 运 行 时，单 击 命 令 按 钮 Commandl后，在 出 现 的 输 入 对 话 框 中 输 入“315”并 按 回 车 键，则 程 序 的 输 出 结 果 为()(A)315(B)5130(C)135(D)513(3 2)在 窗 体 Forml上 添 加 一 个 命 令 按 钮 Com m andl,然 后 编 写 窗 体 模 块 代 码，代 码 如 下：Private Function myfunc(ByVal ar As Integer)Dim b As IntegerStatic c As Integerb=b+1c=c+1myfiinc=ar+b+cEnd FunctionPrivate Sub Commandl_Click()Dim a As Integer,i As Integera=1For i=1 To 3Print myfunc(a);Next iEnd Sub当 程 序 运 行 过 程 中，单 击 命 令 按 钮 Commandl后，则 程 序 的 输 出 结 果 为()(A)3 3 3(B)3 4 5(0 5 5 5(D)2 2 2(3 3)要 把 一 个 名 称 为 mnuColor的 菜 单 项 设 置 为 不 可 见 的 语 句 是()(A)mnuColor.Checked=False(B)mnuColor.Enabled=False(C)mnuColor.Visible=False(D)mnuColor.Caption=Falsc(3 4)以 下 有 关 多 重 窗 体 的 叙 述 中，错 误 的 是()(A)用 Hide方 法 不 但 可 以 隐 藏 窗 体，而 且 能 清 除 内 存 中 的 窗 体(B)在 多 重 窗 体 程 序 中，各 窗 体 的 菜 单 是 彼 此 独 立 的(C)在 多 重 窗 体 中，可 以 根 据 需 要 指 定 启 动 窗 体(D)对 于 多 重 窗 体 程 序，需 要 单 独 保 存 每 个 窗 体(3 5)以 下 说 法 中 正 确 的 是()(A)随 机 文 件 中 的 记 录 号 是 通 过 随 机 数 产 生 的(B)随 机 文 件 中 的 各 记 录 的 长 度 不 一 定 完 全 相 同(C)对 于 随 机 文 件，可 按 记 录 号 任 意 读 取 或 写 入 记 录(D)对 于 随 机 文 件，利 用 Seek函 数 可 返 回 文 件 指 针 当 前 在 文 件 中 的 字 节 位 置 二、填 空 题：(1)设 一 棵 二 叉 树 的 中 序 遍 历 结 果 为 D B EA FC,前 序 遍 历 结 果 为 A B D ECF,则 该 二 叉 树 的 后 序 遍 历 结 果 为(2)算 法 的 复 杂 度 主 要 包 括 复 杂 度 和 空 间 复 杂 度。(3)在 面 向 对 象 方 法 中，信 息 隐 蔽 是 通 过 对 象 的 性 来 实 现(4)数 据 库 管 理 系 统 是 位 于 用 户 与 之 间 的 软 件 系 统(5)在 关 系 模 型 中，关 系 表 中 的 每 一 行 称 为 一 个(6)表 达 式 Rtrim(Lcase(“Abcd)&Right(mnopq”,3)的 值 为(7)在 窗 体 上 画 一 个 名 称 为 L abell的 标 签 和 一 个 名 称 为 L i stl的 列 表 框。程 序 运 行 后，在 列 表 框 中 添 加 若 干 列 表 项。当 双 击 列 表 框 中 的 某 个 项 目 时，在 标 签 L abl el l中 显 示 所 选 中 的 项 目，如 图 14.1所 示。请 填 入 适 当 的 内 容，将 程 序 补 充 完 整。图 14.1程 序 运 行 时 的 用 户 界 面 图(一)Private Sub Form_Load()List 1.Additem”北 京”Listl.Additem”上 海”List 1.Additem”河 北”End SubPrivate Sub L i s t l()label 1.Caption=End Sub(8)在 窗 体 上 画 一 名 称 为 Command1的 命 令 按 钮，并 编 写 如 下 程 序 代 码:Private Sub Command l_Click()Dim si As String,s2 As StringDim i As Integersi=Trim(InputBox(“请 输 入 值”)i=Len(i)Do While(si)s2=s2+M id(sl,i,1)i=i-1LoopPrint s2End Sub当 程 序 运 行 时，单 击 命 令 按 钮，在 出 现 的 输 入 对 话 框 中，输 入 abed并 按 回 车 键 后，则 程 序 的 输 出 结 果 是(9)下 列 程 序 的 功 能 是 产 生 10个 1 100的 随 机 数，然 后 打 印 出 其 中 偶 数 的 个 数，请 将 程 序 补 充 完 整。Option Base 1Private Sub Command l_Click()Dim a(l 0)As Integer,i As IntegerDim s As Integers=0For i=1 To 10a(i)=Int(100*Rnd+1)I f=Int(a(i)/2)ThenNext iPrint sEnd Sub(1 0)在 窗 体 上 画 一 个 文 本 框，其 名 称 为 T ex tl,然 后 编 写 如 下 事 件 过 程，该 程 序 的 功 能 是 当 程 序 运 行 时，输 入 焦 点 在 文 本 框 时，通 过 按 下 Ctrl+A组 合 键 可 以 选 取 文 本 框 内 所 有 的 文 本。请 将 程 序 补 充 完 整。Private Sub Text 1 _KeyDown(KeyCode As Integer,Shift As Integer)I f=65 A n d=2 ThenTextl.SelStart=0Text 1.Sei Length=Len(Textl.Text)End IfEnd Sub(11)在 窗 体 Forml上 加 入 一 个 通 用 对 话 框 控 件 CD1、一 个 文 本 框 T extl和 一 个 命 令 按 钮 Command 1,并 将 文 本 框 Text 1的 M ultiline属 性 设 置 为 true,ScorllBars设 置 为 3。程 序 的 功 能 是：当 程 序 运 行 时，单 击 命 令 按 钮 Command 1后，可 显 示 一 个“打 开”文 件 对 话 框，如 果 单 击“文 件”对 话 框 中 的“打 开”按 钮，则 可 将 对 话 框 中 选 中 的 文 本 文 件 的 内 容 显 示 到 文 本 框 中。以 下 是 命 令 按 钮 Command1的 Click事 件 过 程，请 将 程 序 补 充 完 整。Private Sub Command l_Click（）Dim fh As Longcdl.FileName=,ncd 1.Filter=文 本 文 件 If cdl.FileName o ThenOpen For Input As#1fh=LOF（l）Text 1.Text=input（fn,#1）Close#1End IfEnd Sub全 真 模 拟 试 卷（二）一、选 择 题：（1）算 法 的 时 间 复 杂 度 是 指（）（A）算 法 程 序 中 的 指 令 条 数（B）算 法 执 行 过 程 中 所 需 要 的 基 本 运 算 次 数（C）算 法 程 序 的 长 度（D）执 行 算 法 程 序 所 需 要 的 时 间（2）在 顺 序 表（2,8,10,15,25,28,30,32,40,45,49）中，用 二 分 法 查 找 键 码 值 1 8,所 需 的 关 键 码 比 较 交 数 是（）（A）2（B）3（C）4（D）5（3）在 排 序 方 法 中，将 整 个 无 序 序 列 分 割 成 若 干 个 小 的 子 序 列 并 分 别 进 行 插 入 排 序 的 方 法，称 为（）（A）插 入 排 序（B）冒 泡 排 序（C）希 尔 排 序（D）选 择 排 序（4）源 程 序 中 应 包 含 一 些 内 部 文 档，以 帮 助 阅 读 和 理 解 程 序。源 程 序 的 内 部 文 档 通 常 包 括 选 择 合 适 的 标 识 符、注 释 和（）（A）设 计 良 好 的 输 出 报 表（B）程 序 的 视 觉 组 织（C）尽 量 不 用 或 少 用 TOGO语 句（D）检 查 输 入 数 据 的 有 效 性（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）关 系 模 型（D）以 上 都 不 是（11）Visual B asic的 集 成 开 发 环 境 可 以（）（A）编 辑、调 试、生 成 可 执 行 程 序，但 不 能 运 行 程 序（B）编 辑、调 试、运 行 程 序，也 能 生 成 可 执 行 程 序（C）编 辑、生 成 可 执 行 程 序、运 行 程 序，但 不 能 调 试 程 序(D)编 辑、调 试、运 行 程 序，但 不 能 生 成 可 执 行 程 序(1 2)如 果 改 变 窗 体 的 标 题 信 息，则 需 要 设 置 的 属 性 是()(A)Caption(B)Name(C)BackColor(D)BorderStyle(1 3)以 下 说 法 中 正 确 的 是()(A)窗 体 和 控 件 是 用 来 设 计 程 序 用 户 界 面 的，但 它 们 并 不 是 Visual B aic的 对 象(B)只 有 控 件 才 是 Visual Basic的 对 象，窗 体 只 是 起“容 器”作 用 而 存 在 的(C)窗 体 和 控 件 都 是 Visual Basic中 的 对 象(D)只 有 A ctiveX控 件 才 是 Visual Basic的 对 象，标 准 控 件 本 身 就 是 Visual Basic的 一 部 分，因 此，标 准 控 件 不 是 对 象(1 4)表 示“x+y小 于 100且 x y 大 于 或 等 于 60”的 表 达 式 是()(A)x+yv 100 or x-y2 60(B)(x+y 1 00)=(x-y)2 60(C)x+y=60(D)x+y=60(1 5)表 达 式 Sin(0)+Abs(-l)+Int(Rnd(l)的 值 是()(A)2(B)1(C)0(D)-1(1 6)在 窗 体 上 添 加 一 文 本 框(名 称 为 T ex tl)和 一 命 令 按 钮(名 称 为 8 m m an d l),并 编 写 如 下 代 码：Private Sub Command 1 _Click()si=InputBox(请 输 入 si 的 值：”)s2=InputBox，请 输 入 s2 的 值：”)Text 1.Text=si+s2End Sub当 程 序 运 行 过 程 中，单 击 命 令 按 钮，在 两 次 出 现 的 输 入 对 话 框 听 文 本 框 中 分 别 输 入 100和 200并 按 回 车 键 后，则 文 本 框 tex tl中 显 示 的 数 据 为()(A)300(B)100(C)200(D)100200(1 7)若 要 将 窗 体 中 的 某 一 命 令 按 钮 设 置 为 默 认 命 令 按 钮(即 按 回 车 键 与 单 击 该 命 令 按 钮 的 作 用 相 同)，则 应()(A)将 其 Cancel属 性 设 置 为 false(C)将 其 Default属 性 设 置 为 true(1 8)高 有 一 列 表 框 L i st l,在 程 序 代 码 中,(B)将 其 Default属 性 设 置 为 false(D)将 其 Cancel属 性 设 置 为 true要 得 到 该 列 表 框 中 最 后 一 个 列 表 框 的 文 本 值，则 应 书 写 的 表 达 式 是()(A)Listl.List(Listl.ListCount-1)(B)List 1.ListListCount-1)(C)Listl.List(ListCount)(D)Listl.List(Listl.ListCount)(1 9)当 一 个 复 选 被 选 中 时，它 的 V alue属 性 的 值 是()(A)3(B)2(C)1(D)0(2 0)在 窗 体 上 画 一 个 文 本 框 和 一 个 计 时 器 控 件，名 称 分 别 为 tex tl和 timer 1 o 在 属 性 窗 口 中 把 计 时 器 的 interval属 性 设 置 为 1000,enabled属 性 设 置 为 false。程 序 运 行 后，如 果 单 击 命 令 按 钮，则 每 隔 1s在 文 本 框 中 显 示 一 次 当 前 的 时 间。以 卜 是 实 现 上 述 操 的 程 序：Private Sub Command 1 _Click()Timer 1._End SubPrivate Sub Timer l_Timer()Textl.Text=TimeEnd Sub在 下 划 线 处 应 填 入 的 内 容 是()(A)enabled=true(B)enabled=false(C)visible=true(D)visible=false(21)以 下 是 命 令 按 钮 command 1的 click事 件 过 程。Private Sub Command 1 Click()Dim s As String,n As Integer,i As Integern=0s=InputBox(输 入 数 据”)For i=1 To Len(s)If(LCase(Mid(s,i,1)=an And LCase(Mid(s,i,1)v=z”)Thenn=n+1End IfNext iPrint nEnd Sub程 序 运 行 时，单 击 命 令 按 钮 command 1,在 出 现 的 输 入 对 话 框 中 输 入 ABCDabcxyzl23”并 按 回 车 键 后，程 序 的 输 出 结 果 是()(A)4(B)10(C)6(D)3(2 2)以 下 是 窗 体 的 click事 件 过 程 及 其 程 序 代 码，在 程 序 运 行 中，单 击 窗 体 时，程 序 的 输 出 结 果 为()Private Sub Form_Click()Dim score As Integerscore=Int(Rnd*10+80)Select Case scoreCase Is 60Print fair1Case 60 To 79Print psaaMCase 80,Is=90Print“excellent”End SelectEnd Sub(A)excellent(B)good(C)pass(D)fail(2 3)在 窗 体 上 加 一 名 称 为 command 1的 命 令 按 钮 和 一 名 称 为 tex tl的 文 本 框，编 写 如 下 程 序 代 码:Private Sub Command l_Click()Dim check,countercheck=True:counter=0DoDo While counter b Then t=a;a=b;b=t(C)If a b Then t=a:a=b:b=t(B)If a b Then t=aa=bb=t(D)If a b Then t=a,a=b,b=t（25）在 窗 体 上 画 一 个 名 称 为 command1的 命 令 按 钮,然 后 编 写 如 下 程 序 代 码:Option Base 1Private Sub Command l_Click()Dim x,mDim i As Integer,pos As Integerx=Array(-10,-1,20,56,70)m=Val(InputBox(ninput a value)ReDim Preserve x(UBound(x)+1)i=UBound(x)Do While m x(i-1)x(i)=x(i-1)i=i-1If i=LBound(x)Then Exit DoLoopx(i)=mPrint x(UBound(x)2)End Sub在 程 序 运 行 过 程 中，单 击 命 令 按 钮，在 出 现 的 输 入 对 话 框 中 输 入-5按 回 车 键 后，则 程 序 的 输 出 结 果 为()(A)-10(B)-5(C)20(D)-1(2 6)在 窗 体 上 添 加 一 个 名 称 为 tex tl的 文 本 框 和 一 个 名 称 为 commandl的 命 令 按 钮，然 后 编 写 以 下 事 件 过 程 代 码:Option Base 1Private Sub Command l_Click()Dim arrl(5,5)As IntegerDim i As Integer,j As IntegerFor i=1 To 3For j=2 To 4arrl(i,j)=i+jNext jNext iTextl.Text=arrl(2,3)+arrl(3,4)+arrl(l,1)End Sub程 序 运 行 时，单 击 命 令 按 钮 commandl后，在 文 本 框 中 显 示 的 值 是()(A)12(B)13(C)14(D)15(2 7)控 件 数 组 中 的 各 元 素 的 下 标 是 山()属 性 指 定。(A)name(B)index(C)tabindex(D)order(2 8)以 下 是 窗 体 的 click事 件 过 程 form click的 程 序 代 码：Option Base 1Private Sub Form_Click()Dim a(10)As Integer,p(3)As IntegerDim i As Integer,k As Integerk=0For i=1 To 10a(i)=2*a(i-1)+1Next iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)2Next iPrint kEnd Sub在 程 序 运 行 过 程 中，单 击 窗 体 后，程 序 的 输 出 结 果 为()(A)5(B)7(C)9(D)1 1(2 9)在 窗 体 上 画 一 个 名 称 为 commandl的 命 令 按 钮，然 后 编 写 如 下 代 码：Private Sub Command l_Click()Dim a(3)As IntegerDim i As Integer,s As Integeri=0:s=0Do Until i 3a(i)=(i+1)*(i+2)s=s+a(i)i=i+1LoopPrint sEnd Sub程 序 运 行 后，单 击 命 令 按 钮，则 程 序 的 输 出 结 果 是()(A)18(B)20(C)40(D)6(3 0)在 窗 体 上 加 一 命 令 按 钮，其 名 称 为 com m ands然 后 编 写 以 下 程 序 代 码：Private Sub Command l_Click()Dim a As Integer,b As Integera=12:b=2Print func(a,b)End SubPrivate Function func(ByVaI x As Integer,ByVai y As Integer)As IntegerDim t As IntegerDo While y o 0t=x/yx=yy=tLoopEnd Function在 程 序 运 行 过 程 中，单 击 命 令 按 钮 commandl后，在 程 序 上 的 输 出 结 果 为()(A)80(B)6(C)2(D)0(3 1)以 下 关 于 菜 单 的 叙 述 中，错 误 的 是()(A)在 程 序 设 计 过 程