2021年度VB题库及答案.pdf

《2021年度VB题库及答案.pdf》由会员分享，可在线阅读，更多相关《2021年度VB题库及答案.pdf（18页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、最 新 V B题 库 及 答 案 一、选 取 题 第 1某 些 1、在 窗 体(名 称 为 F orm l)上 画 一 种 名 称 为 T extl文 本 框 和 一 种 名 称 为 Commandl命 令 按 钮，然 后 编 写 一 种 事 件 过 程。程 序 运 营 后，如 果 在 文 本 框 中 输 入 一 种 字 符,则 把 命 令 按 钮 标 题 设 立 为“计 算 机 级 别 考 试”。如 下 能 实 现 上 述 操 作 事 件 过 程 是 A Private Sub Textl Change()Command 1.Caption=”计 算 机 级 别 考 试”End SubB、P

2、rivate Sub Commandl_Click()Caption=计 算 机 级 别 考 试”End SubC、Private Sub Form_Click()Text 1.Caption=计 算 机 级 别 考 试”End SubD Private Sub Commandl_Click()Textl.Text=计 算 机 级 别 考 试”End Sub2、在 一 行 内 写 多 条 语 句 时，每 个 语 句 之 间 用()符 号 分 隔。A、，B：C、.D、；3、下 面()是 合 法 变 量 名。B、123ABC C、INTEGER D、X-Y4、下 面()是 合 法 字 符 常 量。

3、A、ABC$B、ABC C、ABC D、ABC5、表 达 式 16/4-2A5*8MOD52 值 为()。A、14 B、4 C、20 D、26、设 a=MicrosoftVisualBasic”，则 如 下 使 变 量 b 值 为 VisualBasic”语 句 是 A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,l 1,10)7、设 a=a,b=b,c=c,d=d,执 行 语 句 x=IIf(a d),A,B)后，x 值 为 A、a B.b C、B D.A8、在 窗 体 上 画 一 种 文 本 框，然 后 编 写 如 下 事 件 过 程

4、：Private Sub Form_Click（）x=InputBox（请 输 入 一 种 整 数）Print x+Text 1.TextEnd Sub程 序 运 营 时，在 文 本 框 中 输 入 4 5 6,然 后 单 击 窗 体，在 输 入 对 话 框 中 输 入 1 2 3,单 击“拟 定”按 钮 后，在 窗 体 上 显 示 内 容 为 A、123 B、456 C、579 D、1234569、在 BASIC中，三 个 逻 辑 运 算 符 NOT,AND,O R在 运 算 过 程 中，优 先 级 从 高 到 低 顺 序 是（）oA、AND-NOT-OR B、NOT-AND-ORC、OR-

5、NOT-AND D、NOT-OR-AND10、下 面 程 序 段 运 营 时 内 层 循 环 循 环 总 次 数（）。FOR X=1 TO 2FOR Y=1 TOXNEXTYNEXTXA.、1 B、2 C、3 D、411、在 V B中，复 写 框（Check）Value值 有 三 种，分 别 是（）。A、-1,0,1 B、0,1,2C、1,2,3 D、True,False,012、若 要 退 出 For循 环，可 使 用 语 句 为（）oA、Exit B、Exit Do C、Time D、Exit For13、运 用 V B设 计 程 序 基 本 环 节 可 分 四 步：（1）设 计 顾 客

6、界；（2）（）；（3）运 营 调 试 程 序；（4）生 成 执 行 文 献。A、编 写 代 码 B、设 计 算 法 C、信 息 反 馈 D、系 统 集 成 14、在 代 码 窗 口 内 将 表 单 Form Caption”属 性 设 立 为“时 钟”，对 的 书 写 形 式 是（）A、Forml.Caption时 钟 B、Forml.Caption=时 钟 C、Caption=时 钟”D、Fopml.Caption（“时 钟”）15、保 存 文 献 时，窗 体 所 有 数 据 存 储 格 式 为（）A、*.PRG B、*.FRM C、*.VBP D、*.EXE16、在 窗 体 上 画 一 种

7、 文 本 框 和 一 种 计 时 器 控 件，名 称 分 别 为 Text 1和 Timer 1,在 属 性 窗 口 中 把 计 时 器 Interval属 性 设 立 为 1000,Enabled属 性 设 立 为 False。程 序 运 营 后，如 果 单 击 命 令 按 钮，则 每 隔 一 秒 中 在 文 本 框 中 显 示 一 次 当 前 时 间。如 下 是 实 现 上 述 操 作 程 序:Private Sub Command 1 _Click()Timer 1._End SubPrivate Sub Timerl_Timer()Text 1.Text=TimeEnd Sub在 _

8、处 应 填 入 内 容 是 A Enabled=True B、Enabled=False C Visible=True D Visible=False17、把 窗 体 KeyPreview属 性 设 立 程 为 T r u e,然 后 编 写 如 下 事 件 过 程 Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch=Chr(Key Ascii)Key Ascii=Asc(UCase(ch)Print Chr(Key Ascii+2)End Sub程 序 运 营 后，按 键 盘 上“A”键，则 在 窗 体 上 显 示

9、 内 容 是 A、A B、B C、C D、D18、V B中 变 量 如 果 没 有 显 示 声 明 其 数 据 类 型，则 默 以 为（）A、日 期 型 B、数 据 型 C、字 符 型 D、变 体 型 19、在 V B中，通 过 变 化 列 表 框（）属 性 值，可 觉 得 列 表 框 添 加 项 目。A List B、（名 称）C、Caption D、Text20、已 知 A$=12345678“，贝 1 表 达 式 丫 或 怕 在$伯$,4）+11$（$,4,2）值 为（）。A、12345 B、123445 C、8 D.621、下 面 程 序 段 显 示 成 果 是（）oDim xIf x

10、 then print x else print x+1B、0 C.、-1 D、显 示 出 错 信 息 22、用 来 测 试 指 定 文 献 结 束 状 态 函 数 是（）A、Eof B、FreeFile C、Loc D、Open23、当 Long类 型 数 据 与 Single类 型 运 算 时，运 算 成 果 类 型 为（A、Integer B、Long C、Single D、Double24、某 一 V B工 程 含 F l、F 2两 个 窗 体，执 行“Fl.Show：F2.Hide”语 句 后，F l、F 2窗 体 显 示 成 果 为（）oA、都 显 示 B、都 不 显 示 C、仅

11、显 示 F l窗 体 D、仅 显 示 F 2窗 体 25、数 学 关 系 3=x 10表 达 到 对 的 V B表 达 式 为（）A、3=x(10 B、3=x AND x 10C、x)=3 ORx(10 D、3=x AND(1026.在 窗 体 上 画 一 种 名 称 为 Labell标 签，然 后 编 写 如 下 事 件 过 程:Private Sub Form_Click()Dim arr(10,10)As IntegerDim i As Integer,j As IntegerFor i=2 To 4For j=2 To 4arr(i,j)=i*jNext jNext iLabel 1.

12、Caption=Str(arr(2,2)+arr(3,3)End Sub程 序 运 营 后，单 击 窗 体，在 标 签 中 显 示 内 容 是 A、12 B、13 C、14 D、1527.在 窗 体 上 画 一 种 名 称 为 L i s t l列 表 框，一 种 名 称 为 L a b e ll标 签，列 表 框 中 显 示 若 干 个 项 目，当 单 击 列 表 框 中 某 个 项 目 时，在 标 签 中 显 示 被 选 中 项 目 名 称。下 列 能 正 的 确 现 上 述 操 作 程 序 是 A Private Sub Listl_Click()Labell.Caption=Listl

13、.ListindexEnd SubB、Private Sub Listl_Click()Label l.Name=Listl.ListindexEnd SubC Private Sub Listl_Click()Labell.Name=Listl.TextEnd SubD、Private Sub L istl CIick()Labell.Caption=Listl.TextEnd Sub28、设 a=5,b=4,c=3,d=2,下 列 表 达 式 值 是 32*b Or a=c And bc Or cdA 1 B、True C False D、230、下 列 操 作 不 能 打 开 代 码 窗

14、 口 是（）A、选 中 对 象,单 击 鼠 标 右 键，在 弹 出 快 捷 菜 单 中 选 取“查 看 代 码”命 令 B、选 中 对 象,双 击 鼠 标 左 键 C、按 F 7键 D、按 F 4键 第 2 某 些 1、V B语 言 语 法 规 定，多 条 语 句 放 在 同 一 行 中，语 句 之 间 用（）分 隔。A、逗 号 B、冒 号 C、分 号 D、单 引 号 2、在 V B中，执 行“A=l8 MOD 4”语 句 后，A 值 为（）。A、2 B、4 C、6 D、83、A 为 True,B 为 F a l s e,则“A and B”和“A O rB”值 分 别 是（）。A True

15、True B、True False C、False True D、False False4、在 V B中，执 行“Dim A,BAs String”语 句 后，A,B 数 据 构 造 为（）。A、整 型 数 B、实 型 数 C、字 符 型 D、字 节 型 5、在 V B中，执 行“A=123：B=Str$（A）”语 句 后，B 数 据 构 造 为（5A、整 型 数、B、字 节 型 C、实 型 数 D、字 符 型 6、在 V B中，复 写 框（Check）Value值 有 三 种，分 别 是（）。A、-1,0,1 B、0,1,2 C、1,2,3 D、True,False,07、若 要 退 出 F

16、or循 环，可 使 用 语 句 为（）oA、Exit B、Exit Do C、Time D、Exit For8,运 用 V B设 计 程 序 基 本 环 节 可 分 四 步：（1）设 计 顾 客 界；（2）（）；（3）运 营 调 试 程 序；（4）生 成 执 行 文 献。A、编 写 代 码 B、设 计 算 法 C、信 息 反 馈 D、系 统 集 成 9,在 代 码 窗 口 内 将 表 单 Forml“Caption”属 性 设 立 为“时 钟”，对 的 书 写 形 式 是（）A、Form.C aption时 钟 B、Form.Caption=时 钟 C、Caption=时 钟 D、Fopm.C

17、aption（“时 钟”）10、保 存 文 献 时，窗 体 所 有 数 据 存 储 格 式 为（）。A、*.PRG B、*.FRM C*.VBP D、*.EXE11、窗 体 初 始 化 程 序 应 写 在（）事 件 中。、Unload C、Activate D、GotFocus12、某 一 V B工 程 含 F l、F 2两 个 窗 体，执 行“Fl.Show:F2.Hide”语 句 后,F l、F 2窗 体 显 示 成 果 为（）。A、都 显 示 B、都 不 显 示 C、仅 显 示 F I窗 体 D、仅 显 示 F 2窗 体 13、V B数 据 类 型 分 为（）A、数 值 型、字 符 型、

18、布 尔 型、日 期 型 B、数 值 型、字 符 型、对 象 型、日 期 型 C、基 本 类 型、扩 展 类 型 D、整 型、实 型、字 符 型、日 期 型、布 尔 型 14、V B中 变 量 如 果 没 有 显 示 声 明 其 数 据 类 型，则 默 以 为（）A、日 期 型 B、数 据 型 C、字 符 型 D、变 体 型 15、在 V B 中，通 过 变 化 表 框（）属 性 值，可 觉 得 列 表 框 添 加 项 目。B、（名 称）C、Caption D、Text16、在 V B中，三 个 逻 辑 运 算 符 NOT,AND,OR在 运 算 过 程 中，优 先 级 从 高 到 低 顺 序

19、是（）oA、AND-NOT-OR B、NOT-AND-ORC、OR-NOT-AND D、NOT-OR-AND17、下 面 程 序 段 运 营 时 内 层 循 环 循 环 总 次 数（）oFOR X=1 TO 2FOR Y=0 TO X-lNEXT YNEXTXA、1 B、2 c、3 D、418、对 的 算 术 表 达 式 是（）。A、-3/8+5INT24.6 B、8*3/5c、（X+Y）*Z/30 D、（XA2+Y/3）*X319、若 A=2,B=3,C=4,则 值 为 真 关 系 式 是（）oA.12/A+2=BA2 B、32*B OR A=C AND BC OR ABC、AB AND B

20、 C D、A*B C+320、当 Long类 型 数 据 与 Single类 型 运 算 时，运 算 成 果 类 型 为（）。A、Integer B、Long C、Single D、Double2 1、下 面 关 于 顺 序 文 献 描 述 对 的 是（）。A.每 条 记 录 长 度 必 要 相 似 B.可 通 过 编 程 对 文 献 中 某 条 记 录 以 便 修 改。C.数 据 只 能 以 ASCH码 形 式 存 储 在 文 献 中，因 此 可 通 过 文 本 编 辑 软 件 显 示。D.文 献 组 织 构 造 复 杂。2 2、下 列（）不 属 于 VB控 件。A、窗 体 B、数 据 C、

21、形 状 D、直 线 2 3、下 面（）是 合 法 变 量 名。A、X YZ B、123+ABC C、INTEGER D、X-Y24、下 面 程 序 段，输 入 9 后，输 出 成 果 是（）。X=inputbox（“输 入 一 种 数”）Select case xCase 1 to 5Y=-lCase 5 to 10Y=0Case 10 to 15Y=1End select25、下 列 说 法 中 对 的 是（）。A、数 组 只 具 备 数 组 名，而 没 有 数 组 类 型 B、数 组 只 具 备 数 组 类 型，而 没 有 数 组 名 C、数 组 类 型 和 数 组 元 素 类 型 不 同

22、 D、数 组 和 变 量 同 样，均 有 名 称 和 类 型 这 两 种 属 性 26、创 立 公 用 数 组 办 法 是（）。A、在 模 块 中 用 Private语 句 声 明 C、在 过 程 中 用 Private语 句 声 明 B、在 模 块 中 用 Public语 句 声 明 D、在 过 程 中 用 Public语 句 声 明 不 是 B就 是 D27、Visual Basic 6.0中 缺 省 参 数 传 递 机 制 是（）。A、传 值 B、传 地 址 C、传 值 和 传 地 址 D、从 实 参 到 形 参 28、已 知 A$=12345678”,贝 1 表 达 式 丫 己 1（后

23、 仕$5$,4）+161$,4,2）值 为（）。A、12345 B、123445 C、8 D、629、下 面 对 的 赋 值 语 句 是（）A、x+y=30 B、y=*r*r C、y=x+30 D、3y=x30、要 保 存 动 态 数 组 原 有 内 容，应 当 使 用（）语 句。A、Redim Preserve B、RedimC、Dim C、Public不 是 A 就 是 B二、填 空 题（每 空 2 分，共 2 0分）1、下 面 程 序 是 求 100以 内 奇 数 和 s 值（S=l+3+5+7+99）。请 在 有（）地 方 填 上 恰 当 语 句 或 表 达 式。（8 分）Privat

24、e Sub Command 1 _Click()Dim s As SingleDim i As Singles=(9)For i=l to 100(ktep 2|)S=(|s+i|)(next i)Print sEnd Sub2、在 下 列 程 序()内 写 上 恰 当 内 容，使 能 输 出 如 下 图 形。*程 序 如 下：Private Sub Commandl_Click()For i=l to(|6)For j=l to(i-6)Print()Next j(jrin l String。，*)Next iEnd Sub3、写 出 下 列 程 序 执 行 成 果 Private Sub

25、Form_Click()Dim a(l To 10)As IntegerDim b(1 To 10)As IntegerDim c(1 To 10)As IntegerFor i=1 To 10a(i)=iNext ib(l)=10For j=9 To 1 Step-1b(10-j+1)=jNext jFor k=1 To 10c(k)=a(k)+b(k)Next kFor 1=1 To 10Print c(1);If 1=5 ThenPrintEnd IfNext 1End Sub成 果：11 11 11 11 111 1 11 1 1 1 1 II4、在 窗 体 上 画 一 种 文 本 框

26、 和 一 种 图 片 框，然 后 编 写 如 下 两 个 事 件 过 程：Private Sub Form_Click()Textl.text=VB 程 序 设 计 End SubPrivate Sub Textl_Change()Picturel.PrintVB ProgrammingEnd Sub程 序 运 营 后，单 击 窗 体，在 文 本 框 显 示 内 容 是 _ V B 程 序 设 计,而 在 图 片 框 显 示 内 容 是 _ VB P r o g r a m m i n g。5、下 列 程 序 输 出 值 是 多 少？Private Sub Command 1 _Click()

27、s=0For i=9 To 42 Step 11s=s+iNext iI f i 5 0 Thens=s+iElses=s-iEnd IfPrint sEnd Sub成 果 是：155 o6、设 有 如 下 程 序:Private Sub Form_Click()Dim a As Integer.s As Integern=8s=0Dos=s+nn=n-1Loop While n0Print sEnd Sub以 上 程 序 功 能 是 计 算 1 到 8 累 加。程 序 运 营 后，单 击 窗 体，输 出 成 果 为-36一 07、设 有 如 下 程 序：用 A rra y函 数 建 立 一

28、种 具 有 8 个 元 素 数 组，然 后 查 找 并 输 出 该 数 组 中 各 元 素 最 小 值。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer,!As Integerarr1=Array(12,435,76,-24,78,54,866,43)Min=arr1 For i=2 To 8If arr1(i)Min Then min=arr1(i)Next iP rint最 小 值 是：；minEnd Sub8、在 名 称 为 F o rm l窗 体 上 画 一 种 文 本 框，其 名 称 为 Textl

29、,在 属 性 窗 口 中 把 该 文 本 框 MultiLine属 性 设 立 为 T ru e,然 后 编 写 如 下 事 件 过 程：如 下 程 序 功 能 是，把 磁 盘 文 献 smtext1.txt内 容 读 到 内 存 并 在 文 本 框 中 显 示 出 来，然 后 把 该 文 本 框 中 内 容 存 入 磁 盘 文 献 smtext2.txtoPrivate Sub Form_Click()Opend:testsmtext1.txtFor Input As#1Do While Not eof(1)Line Input#1,aspect$whole$=whole$+aspect$+

30、Chr$(13)+Chr$(10)LoopTextl.Text=whole$Close#1Open d:testsmtext2.txtFor Output As#1Print#1,textl.textClose#1End Sub三、程 序 设 计 题 1、编 写 一 种 函 数 计 算 1*2*n值，函 数 名 为 fact。Private Function fact(n As Integer)As IntegerDim i As IntegerDim r As Integerr=1For i=1 To nNext ifact=rEnd FunctionEnd Sub2、编 写 一 种 过 程

31、，求 成 1*2*3*N 值，过 程 名 为 NA。3、新 建 一 种 窗 体，程 序 运 营 时，当 用 鼠 标 单 击 窗 体 任 一 地 方，程 序 弹 出 lnputbox()函 数 输 入 框。当 输 完 15个 整 数 后，程 序 把 刚 输 入 15个 整 数 分 3 行 在 窗 体 上 显 示,每 行 5 个 整 数。提 问：(1)、应 当 对 窗 体 什 么 事 件 进 行 编 程？(2)、编 写 程 序 代 码，实 现 上 述 功 能。应 当 对 窗 体 单 击(C lic k)事 件 进 行 编 辑 Private Sub Command1_Click()Dim a(15

32、),i As IntegerFor i=1 To 15a=lnputBox(”请 输 入 15个 整 数，单 击 拟 定 按 钮.“，H)NextFor i=1 To 15Print a(i)；nIf i Mod 5=0 Then PrintNext iEnd Sub4、已 知 三 角 形 三 条 边，编 写 一 种 函 数 求 其 面 积，函 数 名 自 命 名。Private Sub Command1 Click()Dim a,b,c,I,Sa=Val(lnputBox(请 输 入 第 一 条 边 长：”)b=Val(lnputBox(请 输 入 第 二 条 边 长：”)c=Val(lnputBox(请 输 入 第 三 条 边 长：)I=(a+b+c)/2If I=a Or I=b Or I=c ThenMsgBox”输 入 数 据 不 能 构 成 三 角 形!”岫 t SulfEnd If幅 露 I卿 IB踊 剧 翩 踊 利&题 酬 nt胃 End Sub