vb历年真题经典版.pdf

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

1、2005年 4 月 一、选 择 题（每 小 题 2 分，共 70分）下 列 各 题 A）、B）、C）、D）四 个 选 项 中，只 有 个 选 项 是 正 确 的。请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上，答 在 试 卷 上 不 得 分。（1）数 据 的 存 储 结 构 是 指 A）存 储 在 外 存 中 的 数 据 B）数 据 所 占 的 存 储 空 间 量 C）数 据 在 计 算 机 中 的 顺 序 存 储 方 式 D）数 据 的 逻 辑 结 构 在 计 算 机 中 的 表 示（2）下 列 关 于 栈 的 描 述 中 错 误 的 是 A）栈 是 先 进 后 出 的

2、线 性 表 B）栈 只 能 顺 序 存 储 C）栈 具 有 记 忆 作 用 D）对 栈 的 插 入 与 删 除 操 作 中，不 需 要 改 变 栈 底 指 针（3）对 于 长 度 位 n 的 线 性 表，在 最 坏 情 况 下，下 列 各 排 序 法 所 对 应 的 比 较 次 数 中 正 确 的 是 A）冒 泡 排 序 为 n/2 B）冒 泡 排 序 为 nC）快 速 排 序 为 n D）快 速 排 序 为 n（n-l）/2（4）对 长 度 为 n 的 线 性 表 进 行 顺 序 查 找，在 最 坏 情 况 下 所 需 要 的 比 较 次 数 为 A）log2n B）n/2 C）n D）n+

3、1（5）下 列 对 于 线 性 链 表 的 描 述 中 正 确 的 是 A）存 储 空 间 不 一 定 是 连 续，且 各 元 素 的 存 储 顺 序 是 任 意 的 B）存 储 空 间 不 一 定 是 连 续，且 前 件 元 素 一 定 存 储 在 后 件 元 素 的 前 面 C）存 储 空 间 必 须 连 续，且 前 件 元 素 一 定 存 储 在 后 件 元 素 的 前 面 D）存 储 空 间 必 须 连 续，且 各 元 素 的 存 储 顺 序 是 任 意 的（6）下 列 对 于 软 件 测 试 的 描 述 中 正 确 的 是 A）软 件 测 试 的 目 的 是 证 明 程 序 是 否

4、正 确 B）软 件 测 试 的 目 的 是 使 程 序 运 行 结 果 正 确 C）软 件 测 试 的 u 的 是 尽 可 能 多 地 发 现 程 序 中 的 错 误 D）软 件 测 试 的 目 的 是 使 程 序 符 合 结 构 化 原 则（7）为 了 使 模 块 尽 可 能 独 立，要 求 A）模 块 的 内 聚 程 度 要 尽 量 高，且 各 模 块 间 的 耦 合 程 度 要 尽 量 强 B）模 块 的 内 聚 程 度 要 尽 量 高，且 各 模 块 间 的 耦 合 程 度 要 尽 量 弱 C）模 块 的 内 聚 程 度 要 尽 量 低，且 各 模 块 间 的 耦 合 程 度 要 尽

5、量 弱 D）模 块 的 内 聚 程 度 要 尽 量 低，且 各 模 块 间 的 耦 合 程 度 要 尽 量 强（8）下 列 描 述 中 正 确 的 是 A）程 序 就 是 软 件 B）软 件 开 发 不 受 计 算 机 系 统 的 限 制 C）软 件 既 是 逻 辑 实 体，又 是 物 理 实 体 D）软 件 是 程 序、数 据 与 相 关 文 档 的 集 合（9）数 据 独 立 性 是 数 据 库 技 术 的 重 要 特 点 之 一。所 谓 数 据 独 立 性 是 指 A）数 据 与 程 序 独 立 存 放 B）不 同 的 数 据 被 存 放 在 不 同 的 文 件 中 C）不 同 的 数

6、据 只 能 被 对 应 的 应 用 程 序 所 使 用 D）以 上 三 种 说 法 都 不 对（10）用 树 形 结 构 表 示 实 体 之 间 联 系 的 模 型 是 A）关 系 模 型 B）网 状 模 型 C）层 次 模 型 D）以 上 三 个 都 是(11)在 窗 体(名 称 为 Forml)上 画 一 个 名 称 为 Texil的 文 本 框 和 一 个 名 称 为 Command1的 命 令 按 钮，然 后 编 写 一 个 事 件 过 程。程 序 运 行 后，如 果 在 文 本 框 中 输 入 个 字 符，则 把 命 令 按 钮 的 标 题 设 置 为“计 算 机 等 级 考 试”。

7、以 下 能 实 现 上 述 操 作 的 事 件 过 程 是 A)Private Sub Textl_Change()Command l.Caption=计 算 机 等 级 考 试 End SubB)Private Sub Command I _Click()Caption=计 算 机 等 级 考 试”End SubC)Private Sub Forml_Click()Texll.Text=计 算 机 等 级 考 试 End SubD)Private Sub Command l_Click()Textl.Text=计 算 机 等 级 考 试 End Sub(1 2)设 a=5,b=4,c=3,d

8、=2,卜.列 表 达 式 的 值 是 32*b Or a=c And b o c Or cdA)1 B)True C)Fasle D)2(13)设 a=Microsof(VisualBasic 则 以 下 变 量 b 的 值 为 VisualBasic”的 语 句 是 A)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,IO)D)b=Mid(a,ll,10)(14)假 定 有 如 下 的 窗 体 事 件 代 码：Private Sub Form_Click()a$=Microsoft Visual Basicb$=Right(a$,5)c$=Mid(a$,l,9)Ms

9、gBox a$,34,b$.c$,5End Sub程 序 运 行 后，单 击 窗 体，则 在 弹 出 的 信 息 框 的 标 题 栏 中 显 示 的 信 息 是 A)Microsoft Visual B)MicrosoftC)Basic D)5(15)设 a=a,b=b,c=c,d=d 执 行 语 句 x=IIF(avB)O r(cD),后,x 的 值 为 A)a B)b C)B1 D)A(16)为 了 使 命 令 按 钮(名 称 为 Command】)右 移 200,应 使 用 的 语 句 是 A)Comandl.Move-200B)Comand 1.Move 200C)Command 1.

10、Left=Commandl.Left+200D)Command 1.Left=Command 1.Left-200(17)在 窗 体 上 画 一 个 文 本 框，然 后 编 写 如 下 事 件 过 程：Private Sub Form_Click()x=InpulBox(“请 输 入 一 个 整 数”)Print x+Textl.textEnd Sub程 序 运 行 时，在 文 本 框 输 入 456,然 后 单 击 窗 体，在 输 入 对 话 框 中 输 入 123,单 击“确 定”按 钮 后，在 窗 体 上 显 示 的 内 容 为A)123 B)456 C)579 D)123456(18)

11、在 窗 体 上 画 个 文 本 框 和 一 个 计 时 器 控 件，名 称 分 别 为 Textl和 Timerl,在 属 性 窗 口 中 把 计 时 器 的 Interval属 性 设 置 为 1000,Enabled属 性 设 置 为 False。程 序 运 行 后，如 果 单 击 命 令 按 钮，则 每 隔 一 秒 钟 在 文 本 框 中 显 示 一 次 当 前 的 时 间。以 下 是 实 现 上 述 操 作 的 程 序：Private Sub Command l_Click()Umerl.End SubPrivate Sub Timerl_Timer()lextl.Text=TimeE

12、nd Sub在 处 应 填 入 的 内 容 是 A)Enabled=True B)Enabled=FalseC)Visible=True D)VisibIe=False(1 9)假 定 在 图 片 框 Picturel中 装 入 个 图 形，为 了 清 除 该 图 形(不 删 除 图 片 框)，应 该 用 的 正 确 方 法 是 A)选 择 图 片 框，然 后 按 Del键 B)执 行 语 句 Picture!.Picture=LoadPicture()C)执 行 语 句 Pic urel.Pic ure=D)选 择 图 片 框，在 属 性 窗 口 中 选 择 Picture属 性 条，然 后

13、 按 回 车 键。(20)在 窗 体 上 画 一 个 名 称 为 Listl的 列 表 框，一 个 名 称 为 Labell的 标 签，列 表 框 中 显 示 若 干 个 项 目。当 单 击 列 表 框 中 的 某 个 项 目 时，在 标 签 中 显 示 被 选 中 项 目 的 名 称。下 列 能 正 确 实 现 上 述 操 作 的 程 序 是 A)Private Sub Listl.Click()Label 1.Caption=List 1.ListindexEnd SubB)Private Sub Listl_Click()Label 1.Name=List 1.ListindexEnd

14、SubC)Private Sub Listl_Click()Label 1.Name=List 1.TextEnd SubD)Private Sub Listl_Click()Label 1.Caption=List 1.TextEnd Sub(2 1)在 窗 体 上 画 一 个 命 令 按 钮，其 名 称 为 C o m m a n d，然 后 编 写 如 下 事 件 过 程：Private Sub Command 1 _Ciick()Dim i As Integer,x As IntegerFor i=l To 6If i=l Then x=iIfi=4 Thenx=x+lElsex=x+

15、2End IfNext iPrint xEnd Sub程 序 运 行 后，单 击 命 令 按 钮，其 输 出 结 果 为 A)9 B)6 C)12 D)15(22)在 窗 体 上 画 个 名 称 为 Command1的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程：Private Sub Command l_Click()c=ABCDFor n=l To 4PrintNextEnd Sub程 序 运 行 吼，单 击 命 令 按 钮，要 求 在 窗 体 上 显 示 如 下 内 容：DC DB C DA B C D则 在 处 应 填 入 的 内 容 为 A)Left(c,n)B)Righ

16、t(c,n)C)Mid(c,n,1)D)Mid(c,n,n)(23)执 行 以 下 程 序 段 Dim x As Integer.i As Integerx=0For i=20 To 1 Step-2x=x+i5Next i后，x 的 值 为 A)16 B)17 C)18 D)19(24)在 VisualBisic工 程 块 中，可 以 作 为“启 动 对 象”的 程 序 是 A)任 何 窗 体 或 标 准 模 块 B)任 何 窗 体 或 过 程 C)Sub Main过 程 或 其 他 任 何 模 块 D)Sub Main过 程 或 任 何 窗 体(25)假 设 建 立 一 个 名 为 Com

17、mand1的 命 令 按 钮 数 组，则 以 下 说 法 中 错 误 的 是 A)数 组 中 每 个 命 令 按 钮 的 名 称(Name属 性)均 为 Command1B)数 组 中 每 个 命 令 按 钮 的 标 题(Caption属 性)都 一 样 C)数 组 中 所 有 命 令 按 钮 可 以 使 用 同 一 个 事 件 过 程 D)用 名 称 C o mmand(下 标)可 以 访 问 数 组 中 的 每 个 命 令 按 钮(26)把 窗 体 的 KeyPreview属 性 设 置 为 True,然 后 编 写 如 下 事 件 过 程 Private Sub Form_KeyPres

18、s(KeyAscii As Integer)Dim ch As StringCh=Chr(KeyAscii)KeyAscii=Asc(UCase(ch)Print Chr(Key Asci i+2)End Sub程 序 运 行 后，按 键 盘 上 的“A”键，则 在 窗 体 上 显 示 的 内 容 是 A)A B)B C)C D)D(27)在 窗 体 上 画 一 个 命 令 按 钮 和 一 个 文 本 框，名 称 分 别 为 Commandl和 Texil,然 后 编 写 如 下 程 序:Private Sub Command 1 _Click()a=InpulBox(“请 输 入 日 期(1

19、-3 1)t=”旅 游 景 点：”.&nf(a0Anda10Anda20Anda=31,颐 和 园，“)Textl.Text=tEnd Sub程 序 运 行 后，如 果 从 键 盘 上 输 入 1 6,则 在 文 本 框 中 显 示 的 内 容 是 A)旅 游 景 点：长 城 故 宫 B)旅 游 景 点：长 城 颐 和 园 C)旅 游 景 点：颐 和 园 D)旅 游 景 点：故 宫(2 8)在 窗 体 上 画 一 个 名 称 为 Labell的 标 签，然 后 编 写 如 下 事 件 过 程：Private Sub Form_Click()Dim arr(10,10)As IntegerDim

20、 i As Integerj As IntegerFor i=2 To 4Forj=2To4arr(ij)=i*jNext jNext iLabel 1.Caption=Str(aiT(2,2)+arr(3,3)End Sub程 序 运 行 后，单 击 窗 体，在 标 签 中 显 示 的 内 容 是 A)12 B)13 C)14 D)15(2 9)在 窗 体 上 画 个 名 称 为 C o m m a n d 1的 命 令 按 钮，然 后 编 写 如 下 通 用 过 程 和 命 令 按 钮 的 事 件 过 程：Private Function fun(ByVal m As Integer)If

21、 m M o d 2=0 Thenfun=2Elsefun=lEnd IfEnd FunctionPrivate Sub Command 1 _Click()Dim i As Integer.s As Integers=0For i=l To 5s=s+fun(i)NextPrint sEnd Sub程 序 运 行 后，单 击 命 令 按 钮，在 窗 体 上 显 示 的 是 A)6 B)7 C)8 D)9(3 0)阅 读 程 序：Option Base 1Dim arr()As IntegerPrivate Sub Form_Click()Dim i As Integer.As Integer

22、ReDim arr(3,2)For i=Ilb3Forj=l To2arr(i,j)=i*2+jNext jNext iReDim Preserve arr(3,4)For j=3 lb 4arr(3j)=j+9Next jPrint arr(3,2)+arr(3,4)End Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 为 A)21 B)13 C)8 D)25(3 1)在 窗 体 上 画 一 个 名 称 为 C o m m a n d 1的 命 令 按 钮，然 后 编 写 如 下 程 序:Option Base 1Private Sub Command l_Ciick()Dim

23、c As Integend As Integerd=0c=6x=Array(2,4,6,8,10,12)For i=l lb 6If x(i)c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNextiPrint dEnd Sub程 序 运 行 后，如 果 单 击 命 令 按 钮，则 在 窗 体 上 输 出 的 内 容 谈 A)10 B)16 C)12 D)20(3 2)设 有 如 下 程 序 Private Sub Command l_Click()Dim c As Integend As Integerc=4d=InpulBox(“请 输 入 一 个 整 数”)D o

24、While d0If dc Thenc=c+lEnd Ifd=InputBox(“请 输 入 一 个 整 数”)loopPrint c+dEnd Sub程 序 运 行 后，单 击 命 令 按 钮，如 果 在 输 入 对 话 框 中 依 次 输 入 1、2、3、4、5、6、7、8、9、0,则 输 出 结 果 是 A)12 B)11 C)10 D)9(3 3)在 窗 体 上 画 一 个 名 称 为 C o m m a n d 1的 命 令 按 钮 和 一 个 名 称 为 Texil的 文 本 框，在 文 本 框 中 输 入 以 下 字 符 串:Microsoft Visual Basic Prog

25、ramming然 后 编 写 如 下 事 件 过 程：Private Sub Command I _Click()Open d:iempouif.For Output As#1For i=l To Len(Text 1.Text)c=Mid(Text 1.Text,i.1)If c=A And cv=Z”ThenPrint#1.LCase(C)End IfNext iCloseEnd Sub程 序 运 行 后，单 击 命 令 按 钮，文 件。utf.txt中 的 内 容 是 A)M V B P B)mvbp C)M D)mV vB bP P(3 4)在 窗 体 上 画 一 个 名 称 为 C

26、o m m a n d l的 命 令 按 钮，然 后 编 写 如 下 程 序：Dim S W As BooleanFunction func(X As Integer)As IntegerIfX20ThenY=XElseY=20+XEnd IfFunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer.Shift As IntegenX As Single.Y As Single)SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer.Shift As lnteger,

27、X As Single.Y As Single)SW=TrueEnd SubPrivate Sub Command 1 _Click()Dim intNum As IntegeriniNum=InputBox(”)If S W Thenprint func(intNum)End IfEnd Sub程 序 运 行 后，单 击 命 令 按 钮，将 显 示 个 输 入 对 话 框，如 果 在 对 话 框 中 输 入 2 5,则 程 序 的 执 行 结 果 为 A)输 出 0 B)输 出 25 C)输 出 45 D)无 任 何 输 出(3 5)设 有 如 下 通 用 过 程:Private Sub F

28、un(a()As Integer.x As Integer)For i=l To 5x=x+a(i)NextEnd Sub在 窗 体 上 画 个 名 称 为 Textl的 文 本 框 和 个 名 称 为 C o m m a n d 1的 命 令 按 钮，然 后 编 写 如 卜.的 事 件 过 程:Private Sub Command 1 _Click()Dim aiT(5)As Integenn As IntegerFor i=l To 5arr(i)=i+iNextFun arr.nText 1.Text=Str(n)End Sub程 序 运 行 后，单 击 命 令 按 钮，则 在 文 本

29、 框 中 显 示 的 内 容 是 A)30 B)25 C)20 D)15二 填 空 题(每 空 2 分，共 3 0分)将 每 空 的 正 确 答 案 写 在 答 题 卡 1】【15】序 号 的 横 线 上，答 在 试 卷 上 不 得 分。(1)某 二 叉 树 中 度 为 2 的 结 点 有 1 8个，则 该 二 叉 树 中 有【I】个 叶 子 结 点。(2)在 面 向 对 象 方 法 中，类 的 实 例 称 为 2。(3)诊 断 和 改 正 程 序 中 错 误 的 工 作 通 常 称 为【3】o(4)在 关 系 数 据 库 中，把 数 据 表 示 成 二 维 表，每 一 个 二 维 表 称 为

30、 4 o(5)问 题 处 理 方 案 的 正 确 而 完 整 的 描 述 称 为 5 o(6)以 下 语 句 的 输 出 结 果 是 6】。Print Int(12345.6789*100+0.5)/l00(7)在 窗 体 上 画 一 个 文 本 框 和 一 个 图 片 框，然 后 编 写 如 下 两 个 事 件 过 程：Private Sub Form_Ciick()Textl.Text=VB 程 序 设 计”End SubPrivate Sub Textl_Change()Picture I.Print VB ProgrammingEnd Sub程 序 运 行 后，单 击 窗 体，则 在

31、文 本 框 中 显 示 的 内 容 是【7，而 在 图 片 框 中 显 示 的 内 容 是 8】o(8)阅 读 下 面 程 序：Private Sub Form_Click()Dim Check As B（x）lean,Counter As IntegerCheck=TrueCounter=5DoDo While Counter0Print sEnd Sub以 上 程 序 的 功 能 是【10】O 程 序 运 行 后，单 击 窗 体，输 出 结 果 为 11 O(1 0)设 有 如 果 程 序：Option Base 1Private Sub Command 1 _Click(0Dim arr

32、lDim Min As Integer,!As Integeranl=Array(12,435,76,-24,78,54,866,43)Min=12For i=2 lb 8Ifarrl(i)Min Then 13Next iPrint 最 小 值 是：；MinEnd Sub以 上 程 序 的 功 能 是：用 Array函 数 建 立 一 个 含 有 8 个 元 素 的 数 组，然 后 查 找 并 输 出 该 数 组 值 各 元 素 的 最 小 值。请 填 空。(1 1)在 名 称 为 Form】的 窗 体 上 画 一 个 文 本 框，其 名 称 为 Textl,在 属 性 窗 口 值 把 该

33、文 本 框 的 MultiLine属 性 设 置 为 True,然 后 编 写 如 下 的 事 件 过 程：Private Sub Form_Click()Open d:textsmtextl.txt For Input As#1Do While Not 14Line Input#1,aspectsWhole$=whole$+aspect$+Chr$(13)+Chr$(l 0)LoopText 1.Text=whole$Close#1Open d:textsmtext2.txt For Output As#1Print#1.15Close#1End Sub上 述 程 序 的 功 能 是，把 磁

34、 盘 文 件 sntextl.txt的 内 容 读 到 内 存 并 在 文 本 框 中 显 示 出 来，然 后 把 该 文 本 框 中 的 内 容 存 入 磁 盘 文 件 smiex12.【xi.请 填 空。2005年 9 月、选 择 题（每 小 题 2 分，共 7 0分）下 列 各 题 A）、B）、C）、D）四 个 选 项 中，只 有 一 个 选 项 正 确 的，请 将 正 确 选 项 填 涂 在 答 题 k相 应 位 置 上，答 在 试 卷 上 不 得 分。（1）下 列 叙 述 中 正 确 的 是 A）程 序 设 计 就 是 编 制 程 序 B）程 序 的 测 试 必 须 由 程 序 员

35、自 己 去 完 成 C）程 序 经 调 试 改 错 后 还 应 进 行 再 测 试 D）程 序 经 调 试 改 错 后 不 必 进 行 再 测 试（2）下 列 数 据 结 构 中，能 用 二 分 法 进 行 查 找 的 是 A）顺 序 存 储 的 有 序 线 性 表 B）线 性 链 表 C）二 叉 链 表 D）有 序 线 性 链 表（3）下 列 关 于 栈 的 描 述 正 确 的 是 A）在 栈 中 只 能 插 入 元 素 而 不 能 删 除 元 素 B）在 栈 中 只 能 删 除 元 素 而 不 能 插 入 元 素 C）栈 是 特 殊 的 线 性 表，只 能 在 一 端 插 入 或 删 除

36、元 素 D）栈 是 特 殊 的 线 性 表，只 能 在 端 插 入 元 素，而 在 另 端 删 除 元 素（4）下 列 叙 述 中 正 确 的 是 A）一 个 逻 辑 数 据 结 构 只 能 有 一 种 存 储 结 构 B）数 据 的 逻 辑 结 构 属 丁 线 性 结 构，存 储 结 构 属 了 非 线 性 结 构 C）一 个 逻 辑 数 据 结 构 可 以 有 多 种 存 储 结 构，且 各 种 存 储 结 构 不 影 响 数 据 处 理 的 效 率 D）一 个 逻 辑 数 据 结 构 可 以 有 多 种 存 储 结 构，且 各 种 存 储 结 构 影 响 数 据 处 理 的 效 率（5）

37、下 列 描 述 中 正 确 的 是 A）软 件 工 程 只 是 解 决 软 件 项 目 的 管 理 问 题 B）软 件 工 程 主 要 解 决 软 件 产 品 的 生 产 率 问 题 C）软 件 工 程 的 主 要 思 想 是 强 调 在 软 件 开 发 过 程 中 需 要 应 用 工 程 化 原 则 D）软 件 工 程 只 是 解 决 软 件 开 发 中 的 技 术 问 题（6）在 软 件 设 计 中，不 属 于 过 程 设 计 工 具 的 是 A）PDL（过 程 设 计 语 言）B）PAD图 C）N S 图 D）DFD图（7）下 列 叙 述 中 正 确 的 是 A）软 件 交 付 使 用

38、后 还 需 要 进 行 维 护 B）软 件 一 旦 交 付 使 用 就 不 需 要 再 进 行 维 护 C）软 件 交 付 使 用 后 其 生 命 周 期 就 结 束 D）软 件 维 护 是 指 修 复 程 序 中 被 破 坏 的 指 令（8）数 据 库 设 计 的 根 本 目 标 是 要 解 决 A）数 据 共 享 问 题 C）大 量 数 据 存 储 问 题（9）设 有 如 下 关 系 表 则 下 列 操 作 中 正 确 的 是 A）T=ROS B）T=RUS（10）数 据 库 系 统 的 核 心 是 A）数 据 模 型 C）数 据 库 B）数 据 安 全 问 题 D）简 化 数 据 维 护

39、 C）T=RXS D）T=R/SB）数 据 库 管 理 系 统 D）数 据 库 管 理 员（11）假 定 一 个 Visual Basic应 用 程 序 由 一 个 窗 体 模 块 和 一 个 标 准 模 块 构 成。为 了 保 存 该 应 用 程 序，以 下 正 确 的 操 作 是 A）只 保 存 窗 体 模 块 文 件 B）分 别 保 存 窗 体 模 块、标 准 模 块 和 工 程 文 件 C）只 保 存 窗 体 模 块 和 标 潴 模 块 文 件 D）只 保 存 工 程 文 件 12）为 了 清 除 窗 体 上 的 一 个 控 件，下 列 正 确 的 操 作 是 A）按 同 车 键 B）

40、按 Esc键 C）选 择（单 击）要 清 除 的 控 件，然 后 按 Del键 D）选 择（单 击）要 清 除 的 控 件，然 后 按 回 车 健（13）以 下 叙 述 中 错 误 的 是 A）打 开 一 个 工 程 文 件 时，系 统 自 动 装 入 与 该 工 程 有 关 的 窗 体、标 准 模 块 等 文 件 B）当 程 序 运 行 时，双 击 一 个 窗 体，则 触 发 该 窗 体 的 DblClick事 件 C）Visual Basic应 用 程 序 只 能 以 解 释 方 式 执 行 D）事 件 可 以 由 用 户 引 发，也 可 以 有 系 统 引 发（14）设 a=2,b=3,

41、c=4,d=5,下 列 表 达 式 的 值 是 Not a=c Or 4*c=bA2 And boa+cA）-1 B）1 C）True D）False（15）设 a=5,b=I 0,则 执 行 c=In（b-A）*Rnd+A）+1后，c 值 的 范 围 为 A）5 10 B）6 9 C）6-1 0 D）5 9（16）在 窗 体 上 画 一 个 命 令 按 钮，名 称 为 Command1,然 后 编 写 如 下 事 件 过 程:Private Sub Command 1 _Click（）aS=software and hardwarebS=Right（a$,8）c$=Mid（a$,1,8）Ms

42、gBox a$,b$,c$,1End Sub运 行 程 序，单 击 命 令 按 钮，则 在 弹 出 的 信 息 框 的 标 题 栏 中 显 示 的 是 A）software and hardware B）softwareC）hardware D）1（17）在 窗 体 上 画 一 个 命 令 按 钮 和 一 个 文 本 框，其 名 称 分 别 为 Commandl和 T e x tl,把 文 本 框 的 Text属 性 设 置 为 空 白，然 后 编 写 如 下 事 件 过 程：Private Sub Command 1 _Click（）a=InpulBoxCEnter an integer)b

43、=InputBox(Enter an integer)Text 1.Text=b+aEnd Sub程 序 运 行 后，单 击 命 令 按 钮，如 果 在 输 入 对 话 框 中 分 别 输 入 8 和 1 0,则 文 本 框 中 显 示 的 内 容 是 A)108 B)18 C)810 D)出 错(1 8)在 窗 体 上 画 两 个 文 本 框，其 名 称 分 别 为 Tex。和 Texi2,然 用 编 写 如 下 程 序：Private Sub Form_Load()ShowText 1.Text=,HText2.Text=Textl.SetFocusEnd SubPrivate Sub T

44、extl_Change()Text2.Text=Mid(Textl.Text,8)End Sub程 序 运 行 用，如 果 在 文 本 框 蜃 xil中 输 入 BeijingChina,则 在 文 本 框 Texl2中 显 示 的 内 容 是 A)BeijingChina B)China C)Beijing D)BeijingC(1 9)在 窗 体 上 画 一 个 列 表 框 和 一 个 命 令 按 钮，其 名 称 分 别 为 Listl和 C o m m a n d I,然 后 编 写 如 下 事 件 过 程;Private Sub Form_Load()List 1.Additem It

45、em 1Listl.Addkem Item 2List 1.Additem Item 3End SubPrivate Sub Command 1 _Click()List l.List(List I.ListCount)=AAAAEnd Sub程 序 运 行 后，单 击 命 令 按 钮，其 结 果 为 A)把 字 符 串“A A A A”添 加 到 列 表 框 中，但 位 置 不 能 确 定 B)把 字 符 串“A A A A”添 加 到 列 表 框 的 最 后(即“Item3”的 后 面)C)把 列 表 框 中 原 有 的 最 后 一 项 改 为“A A A A”D)把 字 符 串“A A

46、A A”插 入 到 列 表 框 的 最 前 而(即“Iteml”的 前 面)(2 0)假 定 有 如 下 事 件 过 程 Private Sub Form_Click()Dim x As Integer,n As Integerx=1n=0Do While x 28x=x*3n=n+1LoopPrint x.nEnd Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 是A)81 4 B)56 3 C)28 1 D)243 5(21)有 如 下 程 序：Private Sub Form_Click()Dim Check,CounterCheck=TrueCounter=0DoDo Whi

47、le Counter 20Counter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop Until Check=FalsePrint Counter,CheckEnd Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 为 A)15 0 B)20-1 C)10 True D)10 False(22)有 如 下 程 序：Private Sub Form_Click()Dim i As Integer,sum As Integersum=0For i=21b 10If i Mod 2 o 0 And i Mod 3=0

48、 Thensum=sum+iEnd IfNext iPrint sumEnd Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 为 A)12 B)30 C)24 D)18(23)在 窗 体 上 画 一 个 名 称 为 Textl的 文 本 框 和 一 个 名 称 为 Command1的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Command l_Ciick()Dim array 1(10,10)As IntegerDim i As Integer,j As IntegerFor i=I To 3Forj=21b4arrayl(i,j)=i+jNe

49、xt jNext iText 1.Text=array 1(2,3)+array 1(3,4)End Sub程 序 运 行 后，单 击 命 令 按 钮，在 文 本 框 中 显 示 的 值 是A)12 B)13 C)14 D)15(24)在 窗 体 上 画 个 命 令 按 钮，其 名 称 为 Command1,然 后 编 写 如 下 事 件 过 程:Private Sub Command 1 _Click()Dim al(4,4),a2(4,4)For i=1 lb 4For j=1 To 4al(i,j)=i+ja2(i,j)=al(i,j)+i+jNext jNext iPrint a 1(

50、3,3);a2(3,3)End Sub程 序 运 行 后，单 击 命 令 按 钮，在 窗 体 上 输 出 的 是 A)6 6 B)10 5 C)7 21 D)6 12(25)有 如 下 程 序:Option Base IPrivate Sub Form_Click()Dim arr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=I Tb 10If arr(i)/3=arr(i)3 ThenSum=Sum+arr(i)End IfNext iPrint SumEnd Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 为 A)25 B)26