《2020年VisualBasic程序设计期末模拟考试题库288题（含答案）.pdf》由会员分享，可在线阅读，更多相关《2020年VisualBasic程序设计期末模拟考试题库288题（含答案）.pdf（42页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2020年 Visual Basic程 序 设 计 期 末 测 试 复 习 题 288题 含 答 案 一、选 择 题 i.若 要 将 窗 体 隐 臧 起 来，则 实 现 的 方 法 为。a)Unloadb)Showc)WindowsStated)Hide 答 案：D2.单 击 命 令 按 钮 时，下 列 程 序 的 执 行 结 果 为 oPrivate Function P(N As Integer)Static sumFor I=1 To Nsum=sum+1Next IP=sumEnd FunctionPrivate Sub Command 1 _Click()S=P(1)+P(2)+P(
2、3)+P(4)Print S;End Suba)20b)30c)115d)135 答 案：A3.写 列 选 项 中，合 法 的 变 量 是 oa)c%aaab)sum_3c)Elsed)5persons 答 案：B4.要 想 改 变 一 个 窗 体 的 标 题 内 容，则 应 该 设 置 属 性 的 值。a)Nameb)Fontnamec)Captiond)Text 答 案：C5.在 程 序 中 使 用 日 期 型 数 据 时，必 须 用 符 号 将 日 期 型 数 据 括 起 来。a)b)$c)%d)#答 案：D6.下 列 选 项 中，为 字 符 串 常 量 的 是 oa)6/12/2001
3、b)6/12/2001c)#6,12,2001#d)6,12,2001#答 案：B7.下 列 选 项 中，哪 一 项 是 所 有 控 件 共 有 的 属 性.a)Captionb)Valuec)Textd)Name 答 案：D8.下 列 数 据 类 型 不 可 能 占 8 个 字 节 的 是 数 据 类 型。a)Dateb)Longc)Doubled)Currency 答 案：B9.在 Visual Basic程 序 设 计 中，过 程 名 称 的 长 度 不 能 超 过 个 字 符。a)8b)40c)255d)1 1 答 案：B10.下 列 程 序 的 运 行 结 果 为 oFor 1=1
4、to 3d(I)=2*I-l?d(I)Next Ia)1 35b)2 4 6c)1 4 6d)5 6 7 答 案：A11.如 下 数 组 声 明 语 句，正 确 的 是 oa)dim a3,4 as intigerb)dim a(3,4)as stringc)dim a(n,n)as singled)dim a(3 4)as integer 答 案：B12.若 要 以 代 码 方 式 设 置 在 文 本 框 中 显 示 文 本 的 字 体 大 小，则 可 用 文 本 框 的 属 性 来 实 现。a)FontNameb)Fontc)FontSized)FontBold 答 案：C13.下 列 程
5、 序 段 的 执 行 结 果 是 oN=10For k=n To 1 Step-1x=Sqr(k)x=x-2Next kPrint x-2a)-3b)-1c)1d)1.16 答 案：A14.若 要 使 标 签 的 大 小 自 动 适 应 所 显 示 的 文 本，可 通 过 设 置 _属 性 的 值 来 实 现。a)AutoSizeb)Alignmentc)Enabledd)Visble 答 案：A15.下 列 属 性 用 于 设 置 或 返 回 文 本 框 中 的 文 本。a)Captionb)Textc)Named)Dragicon 答 案：B16.复 选 框 控 件 其 Value属 性
6、的 可 取 值 是。a)Trut 和 Falseb)0 和 1c)1、2、3d)0、1、2 答 案：D17.所 有 控 件 都 有 的 属 性 是,在 程 序 中 作 为 对 象 的 标 识 引 用。a)Captionb)Valuec)Textd)name 答 案：D18.要 声 明 一 个 长 度 为 256个 字 符 的 定 长 字 符 串 变 量 s t r,以 下 语 句 正 确 的 是 a)Dim str As Stringb)Dim str As String(256)c)Dim str As String(256)d)Dim str As String*256 答 案：D19.下
7、 列 输 出 语 句 中，错 误 的 是 oa)?X,yb)Print x,yc)Debug.Print x,yd)Print.Form x,y 答 案：D20.下 列 方 法 是 将 项 目 添 加 到 L ist控 件 中。a)Listb)ListCountc)Moved)Additem 答 案：D21.在 visual basic中，要 将 一 个 窗 体 从 内 存 中 释 放，应 使 用 语 句。a)showb)hidec)loadd)unload 答 案：D22.假 设 变 量 BOOLVAR是 一 个 布 尔 型 变 量，则 下 面 正 确 的 赋 值 语 句 是？a)BOOLV
8、AR=TRUEb)BOOLVAR=.TRUEc)BOOLVAR=#TRUE#d)BOOLVAR=False答 案：D23.下 列 控 件 不 能 改 变 大 小 的 有 oa)TextBoxb)Labelc)Timerd）PictureBox 答 案：C24.程 序 的 基 本 控 制 结 构 是.a）顺 序 结 构、多 分 支 结 构 和 单 分 支 结 构 b）ForNext结 构、Doloop结 构 c）顺 序 结 构、选 择 结 构 和 循 环 结 构 d）单 行 结 构 和 多 行 结 构 答 案：C25.循 环 结 构 for i=l to 10 step 1.5的 执 行 次 数
9、 是。a）6b）7c）9d）10 答 案：B26.在 Visual Basic中 按 文 件 的 访 问 方 式 不 同，可 以 将 文 件 分 为 a）顺 序 文 件、随 机 文 件 和 二 进 制 文 件 b）文 本 文 件 和 数 据 文 件 c）数 据 文 件 和 可 执 行 文 件 d）ASCII文 件 和 二 进 制 文 件 答 案：A27.在 Visual B asic中，要 设 置 菜 单 项 的 快 捷 访 问 键，应 使 用 哪 个 符 号：a）&b）*c）$d）答 案：A28.在 Visual B asic中，称 对 象 的 数 据 为：=a）属 性 b）方 法 c）事
10、件 d）封 装 答 案：A29.在 V B中，常 量 12#的 数 据 类 型 是。a）整 型 b）双 精 度 浮 点 型 c）长 整 型 d）字 符 串 答 案：B30.语 句 Print 5*5/5的 输 出 结 果 是。a）5b)25c)0d)5*5/5 答 案：A31.用 于 设 定 文 本 框 中 最 多 可 接 受 的 字 符 数 的 属 性 是 oa)AutoSize 属 性 b)PasswordChar 属 性 c)SelLength 属 性 d)MaxLength 属 性 答 案：D32.用 于 获 取 字 符 串 长 度 的 函 数 是 oa)Len()b)Length()
11、c)Strlen()d)L o f o()答 案：A33.窗 体 能 响 应 的 事 件 是 oa)ActiveFromb)Drivec)Loadd)Change 答 案：C34.在 拖 动 滚 动 条 的 滚 动 块 的 时 候，在 没 有 松 开 鼠 标 前 会 触 发 滚 动 条 的 事 件。a)Changeb)keyDownc)Scrolld)DragOver 答 案：C35.8.6787E+8写 成 普 通 的 十 进 制 数 是。a)86787000b)867870000c)8678700d)8678700000 答 案：B36.某 顶 级 菜 单 项 的 热 键 字 母 为 F,
12、以 下 操 作 等 同 于 单 击 该 菜 单 项。a)同 时 按 下 Ctrl+F键 b)按 下 F键 c)同 时 按 下 Alt+F键 d)同 时 按 下 Shift+F键 答 案：C37.下 列 语 句 可 以 将 变 量 A、B 的 值 互 换。a)A=B:B=Ab)A=A+B:B=A-B:A=A-Bc)A=C:C=B:C=Ad)A=(A+B)/2:B=(A-B)/2 答 案：B38.下 列 语 句 可 以 将 变 量 A、B 的 值 互 换。a)A=B:B=Ab)C=A:A=B:B=Cc)A=C:C=B:C=Ad)B=A:A=B 答 案：B39.以 下 程 序 段 执 行 后 整 型
13、 变 量 n 的 值 为 oN=0for 1=1 to 20 step 5n=n+lnext Ia)3b)4c)5d)2 答 案：B40.以 下 程 序 输 出 的 结 果 为 oX=1y=4Do Until y4x=x*yy=y+lLoopPrint xa)4b)8c)12d)16 答 案：A41.以 下 面 _ 那 种 方 式 打 开 的 文 件，只 能 读 不 能 写。a)Inputb)Outputc)Randomd)Append 答 案：A42.以 下 哪 个 是 合 法 的 变 量 名 oa)Lenb)Testqwc)6cost_ld)count2s 答 案：D43.以 下 程 序
14、段 的 执 行 结 果 是 oX=2:y=lIf x*y0End Ifa)Tureb)Falsec)-1d)1 答 案：B44.下 列 程 序 运 行 后，变 量 s 的 值 为 oJ=O:s=OFor 1=1 To 4j=j+Is=s+jNext Ia)20b)10c)5d)15 答 案：A45.下 列 程 序 段 的 执 行 结 果 为 oDimM(10),N(10)1=3forT=l To 5M(T)=TN=2*I+TNext Tprint N(I);M(I)a)3 1 1b)3 15c)1 1 3d)15 3 答 案：C46.使 用 CommonDialog控 件 的 方 法 可 显
15、示“打 印”对 话 框。a)ShowOpenb)ShowSavec)ShowColord)ShowPrinter 答 案：D47.窗 体 设 计 器 是 用 来 设 计()a)应 用 程 序 的 代 码 段 b)应 用 程 序 的 界 面 c)对 象 的 属 性 d)对 象 的 事 件 答 案：B48.下 列 控 件 中 可 自 动 设 置 滚 动 条 的 是 oa)复 选 框 b)框 架 c)列 表 框 d)标 签 框 答 案：C49.“对 象”是 计 算 机 系 统 运 行 的()a)程 序 单 位 b)逻 辑 单 位 c)物 理 实 体 d)基 本 实 体 答 案：D50.如 果 X 是
16、 一 个 正 的 实 数，将 千 分 位 四 舍 五 入，保 留 两 位 小 数 的 表 达 式 是 a)0.0l*int(x+0.05)b)0.01*int(100*(x+0.005)c)0.01*int(100*(x+0.05)d)0.0 1*in t(x+0.0 0 5)答 案：B51.表 达 式 2+3*4八 5-SIN(X+l)/2中 最 先 进 行 的 运 算 是？a)4A5b)3*4c)x+1d)SIN 答 案：C52.设 A、B、C 表 示 三 角 形 的 3 条 边，表 示 条 件“任 意 两 边 之 和 大 于 第 三 边”的 布 尔 表 达 式 可 以 用(？?)表 示。
17、a)A+B=C Or A+O=B Or B+C=Ab)Not(A+B=C Or A+C=B Or B+CC And?A+CB And B+CAd)A+B=C And A+C=B Or B+C=A 答 案：B53.将 任 意 一 个 正 的 两 数 N 的 个 位 数 与 十 位 数 对 换 的 表 达 式 为 a)(N-INT(N/10)*10)*10+INT(N/10)b)N-7INT(N/10)*10)*10+INT(N)/10c)INT(N/10)+(N-INT(N/10)d)(N-7INT(N/10)*10)*10+INT(N/10)答 案：A54.如 果 X 是 一 个 正 的 实
18、数，将 千 分 位 四 舍 五 入，保 留 两 位 小 数 的 表 达 式 是 a)0.01*int(x+0.05)b)0.0Pint(100*(x+0.005)c)0.01*int(100*(x+0.05)d)0.0Pint(x+0.005)答 案：B5 5.设 A、B、C 表 示 三 角 形 的 3 条 边，表 示 条 件“任 意 两 边 之 和 大 于 第 三 边”的 布 尔 表 达 式 可 以 用()表 示。a)A+B=C Or A+C=B Or B+C=Ab)Not(A+B=C OrA+C=B Or B+CC And A+CB And B+CAd)A+B=C And A+C=B Or
19、 B+C=A 答 案：B56.表 达 式 25.28 Mod 10的 值 是()a)1b)5c)4d)出 错 答 案：B57.为 了 在 按 下 回 车 键 时 执 行 某 个 按 钮 的 事 件 过 程，需 要 把 该 命 令 按 钮 的 一 个 属 性 设 置 为 T r u e,这 个 属 性 是()a)Valueb)Canclec)Enabled)Default 答 案：D58.设 A=abcdefghijklm,下 面()的 函 数 值 为“jklm”。?a)Mid(A,10,4)b)Ringht(A,5)c)Ringht(A,l,4)d)Left(A,10,4)答 案：A59.要
20、使 一 个 标 签 透 明 且 不 具 有 边 框，则 应()a)将 其 BackStyle属 性 设 置 为 0,BorderStyle属 性 设 置 为 0b)将 其 BackStyle属 性 设 置 为 0,BorderStyle属 性 设 置 为 1c)将 其 BackStyle属 性 设 置 为 1,BorderStyle属 性 设 置 为 0d)将 其 BackStyle属 性 设 置 为 1,BorderStyle属 性 设 置 为 1 答 案：B60.逻 辑 运 算 符 Xor、Or、Eqv、A nd中，级 别 最 高 的 运 算 符()a)Xorb)Orc)Eqvd)And
21、答 案：D6 1.哪 个 不 是 Visual Basic的 数 据 类 型。a)Singleb)Objectc)Integerd)Bool 答 案：D62.除 时 钟 外 其 它 控 件 都 没 有 的 属 性 是 a)Topb)Namec)Visibled)Interval 答 案：D63.叹 金 丁 眼 说 法 不 正 确 的 是 a)必 须 是 字 母 开 头，不 能 是 数 字 或 其 他 字 符 b)不 能 用 Visual Basic保 留 字 c)可 以 包 含 字 母、数 字、下 划 线 和 标 点 符 号 d)不 能 超 过 255个 字 符 答 案：C64.V B应 用
22、程 序 的 运 行 模 式 是 a)解 释 运 行 模 式 b)编 译 运 行 模 式 c)两 者 都 有 d)汇 编 模 式 答 案：C65.任 何 控 件 都 具 有 的 属 性 是 0a)TEXTb)CAPTIONc)NAMEd)FORECOLOR 答 案：C6 6.变 量 未 赋 值 时，数 值 型 变 量 的 值 为()a)0b)空 c)1d)0.1 答 案：A67.以 下()程 序 段 可 以 实 施 X、Y 变 量 值 的 变 换 a)Y=X：X=Yb)Z=X：Y=Z：X=Yc)Z=X：X=Y：Y=Zd)Z=X：W=Y：Y=Z：X=Y 答 案：C68.下 列 语 句 中 正 确
23、的 是 a)txtl.text+txt2.text=txt3.textb)command 1,name=cmdokc)121abel.caption=1234d)a=in p u tb o x(h ello)答 案：D69.在 一 个 语 句 行 内 写 多 条 语 句 时，语 句 之 间 应 该 用()分 隔 a)逗 号 b)分 号 c)顿 号 d)冒 号 答 案：D70.表 达 式 Fix(-23.87)+int(24.56)的 值 为。a)-1b)0c)1d)2 答 案：C71.已 知 变 量 A、B、C 中 C 的 值 最 小，则 判 断 A、B、C 可 否 构 成 三 角 形 的 逻
24、 辑 表 达 式 是 a)A=B AND B=C AND C0b)A+O B AND B+O A AND C0c)(A+B)=C OR A-B0d)A+BC AND A-BO 答 案：B72.下 面 的 运 算 符 中，优 先 级 别 最 高 的 是 a)ANDb)*c)=d)&答 案：B73.要 使 一 个 命 令 按 钮 成 为 图 形 命 令 按 钮，则 应 首 先 设 置 属 性 值。a)Pictureb)Stylec)Downpictured)Disabledpicture 答 案：B74.以 下 过 程 不 属 于 Sub过 程 的 是 oa)编 译 过 程 b)Sub通 用 过
25、程 c)proper属 性 过 程 d)Event事 件 过 程 答 案：A7 5.当 x=-5时，下 列 语 句 丫=优 仪()3八 2+1网 1)执 行 后 y 的 值。a)0b)26c)-6d)4 答 案：C76.Strc=Mid(HVisual Basic,1 0,3),则 Sire 的 值 _。a)nVisnb)“sua”c)HBasd)sic”答 案：D77.表 达 式 Int(17.8)+Sgn(17.8)的 值 是。a)18b)-17c)-18d)-16 答 案：B78.表 达 式 val(17.8)+Abs(17.8)的 值 是。a)0b)0.8c)-0.2d)-34.8 答
26、 案：A79.若 x=5,y=6,则 表 达 式 x+y=l 1的 值 是。a)x+y=l 1b)1 1c)Trued)False 答 案：C80.能 够 改 变 窗 体 边 框 线 类 型 的 属 性 是()a)FontStyleb)BorderStylec)BackStyled)Border 答 案：B81.表 达 式 Right(Beijing”,4)的 值 是。a)Beijingb)jingc)eijid)ijin 答 案：B82.下 面 四 个 选 项，不 是 事 件 的 是 oa)Clickb)Visibalec)Unloadd)Change 答 案：B83.下 面 四 个 选 项
27、，不 是 事 件 的 是。a)Loadb)Enabledc)Unloadd)Activate 答 案：B84.表 达 式 Abs(5)+Len(ABCDE)的 值 是 a)5ABCDEb)-5ABCDEc)10d)0 答 案：C85.能 够 改 变 窗 体 边 框 线 类 型 的 属 性 是 oa)Fontstyleb)Borderstylec)Backstyled)Border 答 案：B86.V B 6.0中，执 行 下 面 的 四 个 语 句 时 出 现 错 误 的 是a)x=SGN(O)b)x=SQR(O)c)x=LOG(0)d)x=S I N(O)答 案：C87.如 果 有 声 明
28、Option base 1 dim arr(3,3),则 该 数 组 共 有 个 元 素。a)16b)9c)4d)6 答 案：B88.文 本 框 控 件 中 将 Text的 内 容 全 部 显 示 为 所 定 义 的 字 符 的 属 性 项 是(?？)a)PasswordCharb)需 要 编 程 来 实 现 c)Passwordd)以 上 都 不 是 答 案：A89.以 下 关 于 复 选 框 的 说 法，正 确 的 是(?)a)一 个 窗 体 上 的 所 有 复 选 框 一 次 只 能 有 一 个 被 选 中 b)一 个 容 器 中 的 所 有 复 选 框 一 次 只 能 有 一 个 被
29、选 中 c)在 一 个 容 器 中 的 复 选 框 可 以 同 时 有 多 个 被 选 中 d)无 论 是 在 容 器 中 还 是 在 窗 体 中，都 不 可 以 同 时 选 中 多 个 复 选 框 答 案：C90.要 清 除 组 合 框 Combol中 的 所 有 内 容，可 以 使 用()语 句 a)Combol.CISb)Combol.Clearc)Combol.Deleted)Combo 1.R e m o v e?答 案：B91.可 以 用 作 其 它 控 件 容 器 的 控 件 有()a)窗 体 控 件，列 表 控 件，图 像 控 件 b)窗 体 控 件，文 本 框 控 件，框 架
30、 控 件 c)窗 体 控 件，框 架 控 件，图 片 框 控 件 d)窗 体 控 件，标 签 控 件，图 片 控 件 答 案：C92.列 表 框 中 的 列 表 项 的 数 目 可 通 过 以 下 哪 个 属 性 的 值 获 得。a)Countb)Listcountc)Listindexd)Index 答 案：B93.Visual Basic是 一 种 面 向 对 象 的 程 序 设 计 语 言，构 成 对 象 的 三 要 素 是 a)属 性、事 件、方 法 b)控 件、属 性、事 件 c)窗 体、控 件、过 程 d)窗 体、控 件、模 块 答 案：A94.下 面 的 运 算 符 中，哪 个
31、是 算 术 运 算 符 oa)Modb)=c)Eqvd)Xor 答 案：A95.下 列 程 序 段 的 执 行 结 果 为 oM=0For 1=1 To 3For J=5 To 1 Step-1N=N+1Next J,IPrint N;J;Ia)1204b)1504c)123 1d)15 3 1 答 案：B96.下 列 程 序 共 执 行 了 循 环。Dim intsum As IntegerDim I As IntegerDim j As IntegerFor 1=1 To 10 Step 2For j=l To 5 Step 2intsum=intsum+jNext jNext Ia)10
32、b)20c)25d)15 答 案：D97.x 是 小 于 100的 非 负 数，用 v b表 达 式 正 确 的 是 oa)0b)0=x=0 AND x100d)0=x ORx100 答 案：C98.15.52的 结 果 是。a)1b)1.5c)7d)8 答 案：D99.a 和 b 中 有 且 只 有 一 个 为 0,可 以 用 以 下 表 达 式 来 表 示 a)a=0 or b=0b)a=0 Xor b=0c)a*b=0 And a+b0d)a=0 And b=0 答 案：B100.Boolean类 型 的 数 据 由 几 个 字 节 组 成。a)1b)2c)3d)4 答 案：B101.C
33、 int函 数 返 回 值 类 型 是。a)整 型 b)字 符 串 c)变 体 d)双 精 度 浮 点 型 答 案：A102.dim a(-3 to 3)所 定 义 的 数 组 元 素 个 数 是。a)6b)7c)8d)9 答 案：B1 0 3.下 列 程 序 段 的 执 行 结 果 为 oX=6For K=1 To 10 Step-2X=X+KNextKPrint K;Xa)-1 6b)-1 16c)1 6d)1 1 31 答 案：C104.Inputbox函 数 的 参 数 中，必 选 参 数 Prompt的 作 用 是。a)输 出 信 息 b)定 义 提 示 信 息 c)定 义 隐 含
34、信 息 d)定 义 输 入 的 位 置 答 案：B105.下 列 程 序 段 的 执 行 结 果 为 oN=O:J=1Do Until N2N=N+1J=J+N*(N+1)LoopPrint N;Ja)0 1b)3 7c)321d)3 13 答 案：C106.变 量 A%的 类 型 是 o Dim a as integera)Integerb)Singlec)Stringd)Boolean 答 案：A107.窗 体 模 块 保 存 在 一 个 扩 展 名 为 的 文 件 中。a)basb)cisc)frmd)bmp 答 案：C108.如 有 数 组 声 明 语 句 D im a(2,3to2,
35、4),则 数 组 a 包 含 元 素 的 个 数 是 a)40b)75c)12d)90 答 案：D109.能 显 示 窗 体 的 方 法 是 oa)Visibleb)showc)Hided)open 答 案：B110.P rin t方 法 可 以 输 出 多 个 表 达 式 值，若 使 用 标 准 格 式 输 出，各 表 达 式 的 分 割 符 应 是 a)空 格 b)逗 号 c)冒 号 d)分 号 答 案：B111.把 InputBox的 返 回 值 转 换 为 数 值 应 该 使 用 的 函 数 是。a)Logb)Strc)Lend)Vai 答 案：D112.通 用 对 话 框 中 能 打
36、 开“颜 色 对 话 框”的 方 法 是 oa)ShowOpenb)ShowColorc)ShowSaved)ShowPrinter 答 案：B113.如 果 要 改 变 窗 体 的 标 题,需 要 设 置 窗 体 对 象 的 属 性。a)Nameb)Captionc)BackColord)BorderStyle 答 案：B114.若 要 将 窗 体 从 内 存 中 卸 载 出 去，应 该 使 用 的 方 法 是 oa)Showb)UnLoadc)Loadd)Hide 答 案：B115.Dim bl,b2 as boolean语 句 显 式 声 明 变 量 _ a)b l和 b 2都 为 布
37、尔 型 变 量 b)b l是 整 型，b 2是 布 尔 型 c)b l是 变 体 型(可 变 型)，b 2是 布 尔 型 d)b l和 b 2都 是 变 体 型(可 变 型)答 案：C116.写 列 程 序 段 的 执 行 结 果。A=Habbacddcbanfor 1=6 to 2 step-2x=mid(a,I,I)y=left(aj)z=right(a,I)z=x&y&znext Iprint Ucase(z)a)ABAb)AABAABc)BBABBAd)ABBABA 答 案：C117.设 执 行 以 下 程 序 段 时 依 次 输 入 1、3、5,执 行 结 果 为 oDim a(4)
38、As IntegerDim b(4)As IntegerFor K=0 To 2a(K+l)=Val(InputBox(“请 输 入 数 据：”)b(3-K)=a(K+l)Next KPrint b(K)a)1b)3c)5d)0 答 案：A118.下 列 程 序 执 行 后，变 量 s 的 值 为 oDim s As long,x As Integers=0:x=lDo While(x10)s=s+xx=x+2LoopPrint sa)10b)25c)50d)100 答 案：B119.编 写 如 下 事 件 过 程：Private Sub Form_MouseDown(Button As In
39、teger,Shift As Integer,X As Single,Y As Single)If Shift=6 And Button=2 ThenPrint“Hello”End IfEnd Sub程 序 运 行 后，为 了 在 窗 体 上 输 出 H e llo,应 在 窗 体 上 执 行 以 下 操 作。a)同 时 按 下 Shift键 和 鼠 标 左 键 b)同 时 按 下 Shift键 和 鼠 标 右 键 c)同 时 按 下 Ctrl、A lt键 和 鼠 标 左 键 d)同 时 按 下 Ctrl、A lt键 和 鼠 标 右 键 答 案：D120.当 变 量 x=2,y=5时，以 下
40、程 序 的 输 出 结 果 为 oDo until y5x=x*yy=y+lloopprint xa)2b)5c)10d)20 答 案：C121.设 有 如 下 语 句：strl=inputbox(输 入 二 二“练 习”)从 键 盘 上 输 入 字 符 串“示 例”后，s t r l的 值 是 a)“输 入”b)c)“练 习”d)“示 例”答 案：D122.我 们 在 一 个 窗 体 上 建 立 两 个 文 本 框，名 称 分 别 为 T extl和 T e x t2,事 件 过 程 如 下,Private Sub Textl_change()Text2.text=Ucase(Textl.t
41、ext)End Sub则 在 Textl 文 本 框 输 入“visual basic，Text2 将。a)Text2中 无 内 容 显 示。b)Text2 显 示“VISUAL BASIC”。c)Text2 显 示 visual basic1d)Textl 显 示 visual basic”答 案：B123.下 列 程 序 的 执 行 结 果 是 一 oK=0For 1=1 To 3a=IAIAKprint a;Next Ia)1 1 1b)1 2 3c)0 0 0d)1 4 9 答 案：A124.下 列 程 序 的 执 行 结 果 是，Dim a(5)As StringDim b As I
42、ntegerDim I As IntegerFor I=0 To 5a=1+1Print a(I)Next Ia)123456b)6c)654321d)0 答 案：A125.下 列 程 序 的 执 行 结 果 为 Dim S As Integer,n As IntegerS=0:n=lDo While n=100S=S+nn=n+lLoopPrintsa)5050b)2500c)3000d)4000 答 案：A126.下 列 程 序 段 的 执 行 结 果 为 _K=0For J=1 to 2For I=1 to 3K=I+1Next IFor I=1 to 7K=K+1Next INext
43、JPrint Ka)10b)6c)1 1d)16 答 案：C1 2 7.下 面 程 序 段 的 循 环 结 构 执 行 后，的 输 出 值 是 一 程 序 段 为：For 1=1 to 10 step 2y=y+INext Iprint I;a)25b)10c)1 1d)因 为 Y 的 初 值 不 知 道，所 以 不 确 定 答 案：C128.M sgbox函 数 返 回 值 的 类 型 是。a)数 值 b)字 符 串 c)变 体 d)数 值 或 字 符 串(视 输 入 情 况 而 定)答 案：A129.有 如 下 程 序：For 1=1 To 3For j=5 To 1 Step-1Prin
44、t I+jNext jNEXT I其 循 环 执 行 的 次 数 为 oa)12b)13c)14d)15 答 案：D1 3 0.执 行 下 列 程 序 后，X 的 值 为 oX=3y=6Do While y=6x=x*yy=y+lLoopa)3b)6c)18d)20 答 案：C131.执 行 完 下 面 的 程 序 段 后，循 环 将 执 行 一 次。For 1=1.7 To 5.9 Step 0.9a=a+lPrint aNext Ia)3b)4c)5d)6 答 案：C132.以 下 是 计 算 10的 阶 乘 的 程 序，请 补 充 该 程 序。Dim t as singleDim k a
45、s Integerk=O:t=lWhile_k=k+lt=t*kWendPrint ta)k10c)k=10d)k=10 答 案：A133.是 由 Visual Basic提 供 的 一 种 专 门 的 子 程 序，由 对 象 本 身 所 具 有,反 映 该 对 象 功 能 的 内 部 函 数 或 过 程。a)文 件 b)属 性 c)方 法 d)窗 体 答 案：C134.以 下 不 属 控 件 的 一 项 是。a)文 本 框 b)标 签 框 c)列 表 框 d)消 息 框 答 案：D135.没 有 Caption属 性 的 控 件 是。a)Labelb)OptionButtonc)Framed
46、)LisBox 答 案：D136.RG B函 数 通 过 红、绿、蓝 三 基 色 混 合 产 生 某 种 颜 色，其 语 法 为 RGB(红，绿，蓝)，括 号 中 红、绿、蓝 三 基 色 的 成 分 使 用 0-255之 间 的 整 数。若 使 用 3 个 滚 动 条 分 别 输 入 3 种 基 色，为 保 证 输 入 数 值 有 效，则 应 设 置 _ 属 性。a)Max 和 Minb)SmallChange 和 LargeChangec)Scroll 和 Changed)Value 答 案：A137._控 件 可 以 使 用 SetFocus。方 法。a)Frameb)Labelc)Tex
47、tBoxd)Timer 答 案：C138.下 面 程 序 执 行 的 结 果 是 oPrivate Sub Form_Click()A$=,123,:B$=,456C=Val(A$)+Val(B$)Print CM 00End Suba)123b)3c)5d)579 答 案：C139.下 列 哪 一 个 是 正 确 的 变 量 名 oa)$abcb)Intc)141abcd)abcf 答 案：D140.下 列 变 量 名 中 不 合 法 的 是。a)strnameb)3abcc)A_oned)vaone 答 案：B141.下 拉 式 组 合 框 的 Style属 性 值 为 oa)0b)1c)
48、2d)3 答 案：A142.设 定 当 鼠 标 移 动 到 文 本 框 控 件 上 时 给 用 户 提 示 文 本 的 属 性 是 oa)HideSelectionb)ToolTipTextc)Aligmmentd)Wordwrap 答 案：B143.文 件 列 表 框 中 用 于 设 置 或 返 回 所 选 文 件 的 文 件 名 的 属 性 是 oa)Fileb)FilePathc)Pathd)FileName 答 案：D144.以 下 不 是 Visual Basic特 点 的 选 项 是。a)可 视 编 程 b)算 法 设 计 c)事 件 驱 动 d)面 向 对 象 答 案：B145.
49、要 改 变 控 件 的 宽 度，应 修 改 该 控 件 的 属 性。a)Topb)Leftc)Widthd)Height 答 案：C146.要 改 变 Label控 件 中 文 字 的 颜 色，可 以 设 置 Label控 件 的 属 性。a)FontColorb)FillColorc)ForeColord)BackColor 答 案：C147.如 果 将 布 尔 常 量 值 True赋 给 一 个 整 型 变 量，则 整 型 变 量 的 值 为.a)0b)-1c)TRUEd)FALSE 答 案：B148.命 令 Picture.Cirle(500,800),800能 够 在 图 片 框 Pi
50、cture中 画 出 的 图 形 是 a)半 径 为 sin的 椭 圆 b)细 而 高 的 椭 圆 c)扁 而 平 的 椭 圆 d)圆 心 在(500,800)的 一 个 圆 弧 答 案：D149.删 除 字 符 串 前 导 和 尾 随 空 格 的 函 数 是 oa)Ltrim()b)Rtrim()c)Trim()d)L c a s e()答 案：C150.通 过 文 本 框 的 属 性 可 以 获 得 当 前 插 入 点 所 在 的 位 置。a)Positionb)SelStartc)SelLengthd)Left 答 案：B151.双 击 窗 体 中 的 对 象 后，Visual Basi