《计算机二级VB试题.pdf》由会员分享，可在线阅读，更多相关《计算机二级VB试题.pdf（64页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VB控 制 结 构 一、单 选 题 1.下 面 的 程 序 运 行 后，显 示 的 结 果 是 ODim x%If x Then Print x+1 Else Print xA)1B)0C)显 示 错 误 信 息 D)22.语 句 If x=1 Then y=1,下 面 说 法 正 确 的 是 A)x=1 和 y=1均 为 赋 值 语 句 B)x=1 和 y=1均 为 关 系 表 达 式 C)x=1 为 赋 值 语 句，y=1 为 关 系 表 达 式 D)x=1 为 关 系 表 达 式，y=1 为 赋 值 语 句 3.下 面 分 段 函 数,下 面 不 正 确 的 程 序 段 是 _,A)If
2、 x 二 1 then f=sqr(x+1)f=x*x+3B)If x=1 then f=sqr(x+1)If x 1 then f=x*x+3C)If x=1 then f=sqr(x+1)_Else f=x*x+3D)If x 1 then f=x*x+3Else f=sqr(x+1)4.计 算 函 数 的 值。，下 面 程 序 段 中 正 确 的 是 一 A)If x 0 then y=0If x 1 then y=1If x 2 then y=2If x=2 then y=3B)If x=2 then y=3If x 二 1 then y=2If x 0 then y=1If x 0
3、then y=0C)If x 0 theny=0Elself x 0 theny=1Elself x 1 theny=2Elsey=3End IfD)If x=2 theny=3Elself x 二 1 theny=2Elself x 二 0 theny=1Elsey=0End If5.下 面 的 程 序 段，显 示 的 结 果 是 Dim xx=Int(RnD)+5Select Case xCase 5Print“优 秀”Case 4Print“良 好”Case 3Print“及 格”Case ElsePrint“不 及 格”End SelectA)不 及 格 B)良 好 C）及 格D）优
4、秀 6.下 面 程 序 段 求 两 个 数 中 较 大 数，不 正 确。A)Max=IIF(x y,x,y)B)If x y Then Max=x Else Max=yC)Max=xIf y 二 x Max=yD)If y 二 x Max=yMax=x7.下 列 循 环 语 句 能 正 常 结 束 的 是 oA)i=5Doi=i+1Loop Until i 0B)i=1Doi=i+2Loop Until i=10C)i=10Doi=i-1Loop Until i 0D)i=6Doi=i-2Loop Until i=18.下 面 的 程 序 段 的 运 行 结 果 是 For i=3 To 1
5、Step-1Print Spc(5-i)For j=1 To 2*i-1Print$”；Next jPrintNext iA)$0 e e eB)$C)$D)$9.下 列 程 序 当 在 文 本 框 输 入“ABCD”时，窗 体 上 显 示 的 是 Private Sub TextlChange()Print Textl.Text；End SubA)ABCDB)ABCDC)AABABCABCDD)AABABCABCD10.下 列 哪 个 程 序 段 不 能 正 确 显 示 1!、2!、3!、4!的 值 A)for i=1 to 4n=1for j=1 to in=n*jnext jprint
6、nnext iB)for i=1 to 4fo r j=1 to in=1n=n*jnext jp rin t nnext iC)n=1fo r j=1 to 4n=n*jp rin t nnext jD)n=1j=1do while j 二 4n=n*jp rin t nj=j+1loop1 1.下 列 程 序 段 的 执 行 结 果 为 A=0:B=1A=A+B:B=B+A:Print A;BA=A+B:B=B+A:Print A;BA)1 23 5B)1 13 5C)1 33 4D)1 23 412.变 量 未 赋 值 时，数 值 型 变 量 的 值 为。A)0B)空 串“C)NullD
7、)没 任 何 值 13.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()For n=l To 20If n Mod 3 0 0 then m=m+n3Next nprint nEnd sub程 序 运 行 后，如 果 单 击 命 令 按 钮，则 窗 体 上 显 示 的 内 容 是 一 A)15B)18C)21D)241 4.窗 体 中 存 在 命 令 按 钮 Command1,其 C lic k事 件 代 码 如 下：P riv a te Sub Commandl_Cli
8、ck()X=2Y=1I f X*Y 1 Then Y=Y-1 Else Y 二 TP rin t Y-X 0End Sub程 序 运 行 后，单 击 命 令 按 钮，输 出 结 果 为 OA)TrueB)FalseC)-1D)115.设 a=5,b=6,c=7,d=8,执 行 下 列 语 句 后,x 的 值 为 x=IIf(a B)And(c D),10,20)A)10B)20C)TrueD)False16.执 行 以 下 程 序 段 a$=abbacddcba”For i=6 To 2 Step-2X=Mid(a,i,i)Y=Left(a,i)Z=Right(a,i)Z=UCase(X&Y&
9、Z)Next iPrint z输 出 结 果 为 OA)ABAB)BBABBAC)ABBABAD)AABAAB17.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()c=1234cl=Trim(Str(C)For i=l To 4Print _NextEnd Sub程 序 运 行 后，单 击 命 令 按 钮，要 求 在 窗 体 上 显 示 如 下 内 容:1121231234则 在 下 划 线 处 应 填 入 的 内 容 为。A)Right(cl.i)B)Left(cl,i
10、)C)Mid(cl,i,1)D)Mid(cl,i,i)18.InputBox函 数 返 回 值 的 类 型 为 _。A)数 值 B)字 符 串 C)变 体 D)数 值 或 字 符 串(视 输 入 的 数 据 而 定)19.MsgBox函 数 返 回 值 的 类 型 为。A)整 型 数 值 B)字 符 串 C)变 体 D)数 值 或 字 符 串(视 输 入 的 数 据 而 定)20.窗 体 上 画 一 个 命 令 按 钮 和 一 个 文 本 框，其 名 称 分 别 为 commandl和 textl,把 文 本 框 的 text属 性 设 置 为 空 白，然 后 编 写 如 下 事 件 过 程：
11、Private Sub Commandl_Click()a=InputBox(Enter an Integer)b=InputBox(Enter an Integer)Textl.Text=b+aEnd Sub程 序 运 行 后，单 击 命 令 按 钮，如 果 在 输 入 对 话 框 中 分 别 输 入 8 和 10,则 文 本 框 中 显 示 的 内 容 是 oA)108B)18C)810D)出 错 21.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程：Private Sub Commandl_Click()Dim a As
12、 Integer,s As Integera=8s=lDos=s+aa=a-lLoop While a 二 0Print s;aEnd Sub程 序 运 行 后，单 击 命 令 按 钮，则 窗 体 上 显 示 的 内 容 是 A)7 9B)34 00 9 7D)死 循 环 22.下 面 程 序 段 的 执 行 结 果 为 o1=4A=5Do1=1+1A=A+3Loop Until I 二 9Print；IPrint；AA)1=9 B)1=10 C)1=10 D)1=9A=20 A=20 A=23 A=2323.以 下 能 够 正 确 计 算 n!的 程 序 是 _oA)Private Sub
13、Command1_Click()N=5：X=1Dox x*ii=i+1Loop While i nPrint xEnd SubB)Private Sub Command1_Click()N=5：x=1：i=1Dox=x*ii=i+1Loop While i nPrint xEnd SubC)Private Sub Commandl_Click()N=5：x=1：i=1Dox=x*ii=i+1Loop While i 二 nPrint xEnd SubD)Private Sub Command1 Click()N=5：x 1：i=1Dox=x*ii=i+1Loop While i nPrint
14、xEnd Sub24.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()Dim num As Integernum=lDo Until num 6Print num;num=num+2.4LoopEnd Sub程 序 运 行 后，单 击 命 令 按 钮，则 窗 体 上 显 示 的 内 容 是 OA)1 3.4 5.8B)1 3 50 14 7D)无 数 据 输 出 25.设 有 如 下 程 序 段 x=2For i=l to 10 step 2x=x+iNext运 行 以
15、上 程 序 后，X 的 值 是 oA)36B)27C)38D)5726.在 窗 体 上 画 一 个 名 称 为 Textl的 文 本 框 和 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程：Private Sub Commandl_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+lIf i 10 Then Exit ForNextTextl.Text=Str(n)End Sub程 序 运 行 后，单 击 命 令 按 钮，在 文 本 框 中 显 示 的 值 是 OA)2B)3C)4
16、D)527.下 列 程 序 段 的 执 行 结 果 为 X=6For K=1 To 10 Step-2X=X+KNext KPrint K;XA)-1 6B)-1 16C)1 6D)11 3128.执 行 以 下 程 序 段 Dim x As Integer,i As Integerx=0For i=20 To 1 Step-2x=x+i 5Next i后，x 的 值 为 oA)16B)17C)18D)1929.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮 和 一 个 名 称 为 Textl的 文 本 框，然 后 编 写 如 下 事 件 过 程：Private S
17、ub Commandl_Click()n=Val(Textl.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf j Sqr(i)Then Print iNext iEnd Sub该 事 件 过 程 的 功 能 是 OA)输 出 n 以 内 的 奇 数 B)输 出 n 以 内 的 偶 数 C)输 出 n 以 内 的 素 数 D)输 出 n 以 内 能 被 j 整 除 的 数 30.新 建 立 窗 体 中 画 一 个 命 令 按 钮，其 中 事 件 代 码 如 下：For x=4 To 1 Step-1For
18、y=l To 5-xPrint Tab(y+5);；Next yP rin tNext x窗 体 运 行 后，单 击 命 令 按 钮，输 出 结 果 是。A)*B)*C)*D)*3 1.在 窗 体 上 画 一 个 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:P riv ate Sub Commandl_Click()For i=l To 4x=4For j=l To 3x=3For k=l To 2x=x+6Next kNext jNext iPrint xEnd Sub程 序 运 行 后，单 击 命 令 按 钮，输 出 结 果 是 OA)7B)15C)157D)53832.在 窗
19、 体 上 有 一 个 命 令 按 钮，并 有 如 下 代 码，程 序 执 行 后，单 击 命 令 按 钮 输 出 结 果 为 oPrivate Sub Commandl_Click()K=0For J=1 To 2For 1=1 To 3K=I+1Next IFor 1=1 To 7K=K+1Next INext JPrint KEnd SubA)10B)6C)11D)1633.在 窗 体 上 画 一 个 命 令 按 钮 和 两 个 标 签,其 名 称 分 别 为 CommandDLabell和 Label2,然 后 编 写 如 下 事 件 过 程：Private Sub Commandl_C
20、lick()a=0For i=l To 10a=a+lb=0For j=l To 10a=a+lb=b+2Next jNext iLabel1.Caption=Str(A)Label2.Caption=Str(B)End Sub程 序 运 行 后，单 击 命 令 按 钮，在 标 签 Labell和 Label2中 显 示 的 内 容 分 别 是。A)10 和 20B)20 和 110C)200 和 110D)110 和 2034.有 一 个 分 段 函 数，当 X 0 时，Y=-l；当 X=0时，Y=0；当 X 0 时，Y=1。该 分 段 函 数 在 程 序 段 中 可 表 达 为 oA)If
21、 X 0 Then Y=-lIf X=0 Then Y=0Else Y=1B)If X 0 Then Y=1If X=0 Then Y=0Else Y=-lC)If X 0 Then Y=-lElself X=0 Then Y=0Else Y=1End IfD)If X 0 ThenY=-lElself X=0 ThenY=0ElseY=1End if35.下 列 语 句 正 确 的 是.。A)If X 3*Y,X Y Then Y=X3B)If X 3*Y And X Y Then Y=X3C)If X 3*Y：X Y Then Y=X3D)If X 3*Y And X Y Then Y=X
22、*336.下 列 程 序 的 执 行 结 果 为。A=75If A 60 Then1=1Elself A 70 Then1=2Elself A 80 Then1=3Elself A 90 Then1=4End IfPrint I=；IA)I二 1B)1=2C)1=3D)1=437.设 a=a，b=“b，c=“c，d=“d，执 行 语 句 x=IIf(a B)Or(c D),“A，B)后，x 的 值 为 _oA)“a”B)“b”C)“B”D)“A”38.在 窗 体 上 画 一 个 命 令 按 钮，名 称 为 Commandl。然 后 编 写 如 下 程 序：Private Sub Command
23、l_Click()for 1=1 To 4For J=0 To IPrint Chr$(65+1);Next JPrintNext IEnd Sub程 序 运 行 后，如 果 单 击 命 令 按 钮，则 在 窗 体 上 显 示 的 内 容 为 是 oA)BBCCCDDDDEEEEEB)ABBCCCDDDDC)BCCDDDEEEED)AABBBCCCCDDDDD39.有 如 下 程 序：Private Sub Form_Click()xcase=lt=InputBox(“请 输 入 一 个 数：”)Select Case tCase Is 0Y=xcase+1Case Is=OY=xcase+2
24、Case ElseY=xcase+3End SelectPrint xcase;YEnd Sub若 输 入 T,输 出 结 果 为：A)1 4B)1 3C)1 2D)1 140.下 列 程 序 段 中，若 要 使 输 出 结 果 为 输 入 的 两 个 数 中 较 大 者 的 平 方，空 白 处 应 填 写 语 句。x=Val(InputBox(“请 输 入 x 的 值：”)y=Val(InputBox(“请 输 入 y 的 值：”)s=x：_s=s*sPrint sA)If(x B)If x y Then s=yC)If(x D)If x y s=y41.设 X 初 值 为 0,则 下 列
25、循 环 语 句 执 行 后，X 的 值 等 于 oFor i=l To 10 Step 2X=X+INext iA)25B)36C)24D)2742.执 行 以 下 程 序 段 时，ox=lDo While x O 0 x=x*xprint x;LoopA)循 环 体 将 执 行 1 次 B)循 环 体 将 执 行 0 次 C)循 环 体 将 执 行 无 限 次 D)系 统 将 提 示 语 法 错 误 43.设 窗 体 中 包 含 1个 命 令 按 钮 Command 1,1个 标 签 Label 1;并 有 以 下 的 事 件 过 程。程 序 运 行 后，单 击 Commandl按 钮，标
26、签 中 显 示 的 内 容 是。Private Sub Commandl_Click()Dim I As Integer,n As Integer1=1：n=0Do While I(10n=n+I1=1*(1+1)LoopLabel 1=1&”&nEnd SubA)6-3B)24-9C)42-9D)6-94 4.有 如 下 程 序：Do循 环 体 Loop W h i l e 条 件 则 以 下 叙 述 中 错 误 的 是。A)若“条 件”是 一 个 为 0 的 常 数，则 一 次 也 不 执 行 循 环 体 B)“条 件”可 以 是 关 系 表 达 式、逻 辑 表 达 式 或 常 数 C)循
27、 环 体 中 可 以 使 用 Exit Do语 句 D)如 果“条 件”总 是 为 True,则 不 停 地 执 行 循 环 体 4 5.有 如 下 程 序：For i=l to 3For j=5 to 1 Step-1Print i*jNext jNext i则 语 句 Print i*j的 执 行 次 数 是。A)15B)16C)17D)1846.在 窗 体 上 画 一 个 命 令 按 钮，名 称 为 Commandl,然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()Dim i As Integer,x As IntegerFor i=1 T
28、o 6If i=1 Then x=iIf i=4 Thenx=x+1Elsex=x+2End IfNext iPrint xEnd Sub程 序 运 行 后，单 击 命 令 按 钮，其 输 出 结 果 为 _ OA)9B)6C)12D)1547.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程：Private Sub Commandl_Click()c=ABCD”For n=1 To 4Print _NextEnd Sub程 序 运 行 后，单 击 命 令 按 钮，要 求 在 窗 体 上 显 示 如 下 内 容：DCDBCDAB
29、CD则 在 _处 应 填 入 的 内 容 为 oA)Left(c,n)B)Right(c,n)C)Mid(c,n,1)D)Mid(c,n,n)48.如 果 A 为 整 数，且|A|=100,则 打 印“OK”，否 则 打 印“Error”，表 示 这 个 条 件 语 句 的 单 行 语 句 是。A)If Int(A)=A And Sqr(A)=100 Then Print Ok Else Print B)If Int(A)=A And(A=100,A=T00)Then Print“Ok”Else PrintC)If Fix(A)=A And Abs(A)=100 Then Print Ok E
30、lse Print D)If Fix(A)=A And A=100 And A=-100 Then Print“Ok”Else Print49.在 窗 体 上 画 一 个 命 令 按 钮 和 一 l文 本 框，名 称 分 别 为 Commandl和 Textl,写 如 下 程 序：Error”ErrorError”Error”然 后 编 Private Sub Commandl_Click()a=InputBox(“请 输 入 日 期(P31)”)t=旅 游 景 点：”&Ilf(a 0 And a=10,“长 城”，“”)&Ilf(a 10 And a=20,“故 宫”，“”)&Ilf(a 2
31、0 And a 仁 30,“颐 和 园”，”)Textl.Text=tEnd Sub程 序 运 行 后，如 果 从 键 盘 输 入 1 6,则 在 文 本 框 中 显 示 的 内 容 是 A）旅 游 景 点：长 城 故 宫 B）旅 游 景 点：长 城 颐 和 园 C）旅 游 景 点：颐 和 园 D）旅 游 景 点：故 宫 50.下 列 程 序 段 显 示 个。For i=l to 5For j=2 to 5Print“*Next jNext iA)25B)10C)20D)15 在 51.要 使 下 面 程 序 段 能 正 确 显 示 1!、2!、3!、4!的 值，第 一 行 横 线 处 应 填
32、 写 For j=l to 4n=n*jPrint nNext jA)n=0B)n=lC)j=1D)j=052.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()a=ABBACKDIEKEI”For I=9 To 2 Step-3x=Mid(a,I,I)y=Left(a,I)z=Right(a,I)z=x&y&zNext IPrint zEnd Sub程 序 运 行 后，如 果 单 击 命 令 按 钮，则 输 出 结 果 是 OA)BACABBKEIB)EKEIABBACK
33、DIEAACKEIEKEIC)DEIEKEIABBACKDIEKEID)ACKABBKEI53.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()Ml=lM2=2Do While M 2 5M1=M1*M2M2=M2+1LoopPrint；ML；M2End Sub程 序 运 行 后，如 果 单 击 命 令 按 钮，输 出 结 果 是 OA)Ml=24 M2=5B)Ml=1 M2=2C)Ml=24M2二 5D)Ml=1M2=254.阅 读 下 面 的 程 序 段：For i=
34、l To 3For j=l To iFor k=j To 3a=a+lNext kNext jNext i执 行 上 面 的 三 重 循 环 后，a 的 值 为 _ oA)3B)9C)14D)2155.在 窗 体 上 画 两 个 文 本 框(其 Name属 性 分 别 为 Text 1和 Text2)和 一 个 命 令 按 钮(其 Name属 性 为 Conmandl)，然 后 编 写 如 下 事 件 过 程：Private Sub Command1 Click()x=0Do While x 50 x=(x+2)*(x+3)n=n+lLoopTextl.Text=Str(n)Text2.Tex
35、t=Str(x)End Sub程 序 运 行 后，单 击 命 令 按 钮，在 两 个 文 本 框 中 显 示 的 值 分 别 为。A)1 和 0B)2 和 72C)3 和 50D)416856.在 窗 体 上 画 两 个 名 称 分 别 为 Textl、Text2的 文 本 框 和 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程：Private Sub Commandl_Click()Dim x As Integer,n As Integerx=ln=0Do While x 20 x=x*3n=n+lLoopTextl.Text=Str(x)&a
36、,mp;n,bsp;Text2.Text=Str(n)End Sub程 序 运 行 后，单 击 命 令 按 钮，在 两 个 文 本 框 中 显 示 的 值 分 别 是 A)15和 1B)27 和 3C)195和 3D)600 和 457.下 列 语 句 组 中，不 能 循 环 100次 的 有 oA)N=0DON=N+lLOOP UNTIL N=100B)N=0DON=N+1LOOP WHILE N 100C)N=0DON=N+1LOOP UNTIL N 100D)N=0DO WHILE N 100N=N+1LOOP58.假 定 有 如 下 事 件 过 程：Private Sub Form C
37、lick()Dim x As Integerx=ln=0Do While x 28x=x*3n=n+lLoopPrint x,nEnd Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 是 oA)81 4B)56 3C)28 1D)243 559.新 建 窗 体 上 新 建 立 一 个 命 令 按 钮，其 中 有 如 下 事 件 代 码:Private Sub Command1 Click()I 二 0For G=10 To 19 Step 31=1+1Next GPrint IEnd Sub窗 体 运 行 后，单 击 命 令 按 钮，输 出 结 果 为 OA)3B)4C)5D)660
38、.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()x=InputBox(input)Select Case xCase 1,3Print“分 支 1”Case Is 4Print“分 支 2”Case ElsePrint Else 分 支”End SelectEnd Sub程 序 运 行 后，如 果 在 输 入 对 话 框 中 输 入 2,则 窗 体 上 显 示 的 是 oA)分 支 1B)分 支 2C)Else分 支 D)程 序 出 错 61.以 下 Case语 句 中
39、 错 误 的 是。A)Case 0 To 10B)Case Is 10C)Case Is 10 And Is 50D)Case 3,5,Is 1062.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，然 后 编 写 如 下 事 件 过 程:Private Sub Commandl_Click()x=0n=InputBox(”)For i=1 To nFor j=1 To ix=x+1Next jNext iPrint xEnd Sub程 序 运 行 后，单 击 命 令 按 钮，如 果 输 入 3,则 在 窗 体 上 显 示 的 内 容 是 A)3B)4C)5D)66
40、3.下 列 程 序 代 码，执 行 后 单 击 鼠 标 结 果 为 Private Sub Form_Click()A=0：B=0For I=-1 To-2 Step-1For J=1 To 2B=B+1Next JA=A+1Next IPrint A;BEnd SubA)2 4B)-2 20 4 2D)2 364.Private Sub Form Click()Dim Check,CounterCheck=ODoDo While Counter 20Counter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop Unti
41、l Check=FalsePrint Counter,CheckEnd Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 为 A)15 0B)20-1C)10 TrueD)10 False65.设 有 如 下 程 序：Private Sub Commandl_Click()Dim sum As Double,X As Doublesum=0n=0For i=l To 5x=n/in=n+lsum=sum+xNextEnd Sub该 程 序 通 过 For循 环 计 算 一 个 表 达 式 的 值，这 个 表 达 式 是 A)1+1/2+2/3+3/4+4/5B)1+1/2+2/3+3/
42、4C)1/2+2/3+3/4+4/5D)1+1/2+1/3+1/4+1/566.有 如 下 程 序：Private Sub Form_Click()Dim i As Integer,Sum As IntegerSum=0For i=2 to 10If i Mod 2 0 0 And i Mod 3=0 ThenSum=Sum+iEnd IfNext iPrint SumEnd Sub程 序 运 行 后，单 击 窗 体，输 出 结 果 为 OA)12B)30C)24D)1867.设 有 如 下 程 序 Private Sub Commandl_Click()Dim c As Integer,d
43、As Integerc=4d=InputBox(“请 输 入 一 个 整 数”)Do While d 0If d c Thenc=c+lEnd Ifd=InputBox(“请 输 入 一 个 整 数”)LoopPrint c+dEnd Sub程 序 运 行 后，单 击 命 令 按 钮，如 果 在 输 入 对 话 框 中 依 次 输 入 1、2、3、4、5、6、7、8、9、0,则 输 出 结 果 是 oA)12B)11C)10D)968.下 列 程 序 段 的 执 行 结 果 为 oN=10For K=N To 1 Step-1X=Sqr(K)X=X-2Next KP rin t X-2A)-3
44、B)-1C)1D)1.1622776569.在 窗 体 上 画 一 个 名 称 为 Commandl的 命 令 按 钮，一 个 名 称 为 Label 1 的 标 签，然 后 编 写 如 下 事 件 过 程：P riv a te Sub Commandl_Click()s=0For i=1 To 15x=2*i-1I f x M od 3=0 Then s=s+1Next iLabel1.Caption sEnd Sub程 序 运 行 后，单 击 命 令 按 钮，则 标 签 中 显 示 的 内 容 是 oA)1B)5C)27D)457 0.在 窗 体 上 画 一 个 命 令 按 钮，然 后 编
45、 写 如 下 事 件 过 程：P riv ate Sub Commandl_Click()x=0D o U ntil x=-la=InputBox(“请 输 入 a 的 值”)a=Val(A)b=InputBox(请 输 入 b 的 值”)b=Val(B)x=InputBox(请 输 入 x 的 值”)x=Val(x)a=a+b+xL O O PP rin t aEnd Sub程 序 运 行 后，单 击 命 令 按 钮，依 次 在 输 入 对 话 框 中 输 入 5、4、3、2、1、T,输 出 结 果 为 oA)2B)3C)14D)1571.语 句：I f 表 达 式 Then.中 的 表 达
46、 式 不 可 以 是 表 达 式。A)算 术 B)逻 辑 C)关 系 D)字 符 72.下 列 语 句 执 行 后，变 量 w 的 值 是 oW=Choose(weekday(w 2009,4,1)，Red,Green,Blue,Yellow)A)NullB)RedC)BlueD)Yellow73.下 面 if语 句 统 计 满 足 性 别 为 男、职 务 为 副 教 授 以 上、年 龄 小 于 40岁 条 件 的 人 数,不 正 确 的 语 句 是 OA)if sex二 男 And age 40 And InStr(duty,“教 授“)0 Then n=n+1B)if sex二 男 And
47、 age 40 And(duty=教 授 Or duty二”副 教 授)Then n=n+lC)if sex=男 And age 40 And Right(duty,2)二 教 授 Then n=n+lD)if sex二 男“And age 40 And duty=教 授 And duty=副 教 授 Then n=n+l74.关 于 Do-Loop循 环 结 构 执 行 循 环 体 次 数 的 描 述 正 确 的 是 oA)Do WhileLoop循 环 和 DoLoop Until循 环 至 少 都 执 行 一 次 B)Do WhileLoop循 环 和 DoLoop Until循 环 可
48、 能 都 不 执 行 C)Do WhileLoop循 环 至 少 执 行 一 次，DoLoop Until循 环 可 能 不 执 行 D)Do WhileLoop循 环 可 能 不 执 行，DoLoop Until循 环 至 少 执 行 一 次 75.下 面 的 程 序 段 的 运 行 结 果 是 oPrivate Sub Commandl ClickFor i=l To 5n 二 0For j=i To 5n=n+lNext jNext iPrint nEnd SubA)1B)5C)10D)15二、填 空 题 1.下 面 程 序 的 输 出 结 果 是【1】x=Int(RnD)+3If x2
49、 8 Then y=x-2+1If x 2=9 Then y=x 2-2If x 2 8 Then y=x 32.下 面 程 序 的 功 能 是 _ _【2】。Dim n%,m%Private Sub Textl_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf IsNumeric(Textl.Text)ThenSelect Case Textl.Text Mod 2Case 0n=n+Textl.TextCase 1m=m+Textl.TextEnd SelectEnd IfTextl.Text=Textl.SetFocusEnd IfEn
50、d Sub3.下 面 的 程 序 是 检 查 输 入 的 算 术 表 达 式 中 圆 括 号 是 否 配 对。并 显 示 相 应 的 结 果。本 程 序 在 文 本 框 输 入 表 达 式，边 输 入 边 统 计，以 输 入 回 车 作 为 表 达 式 输 入 结 束。Dim Count1%Private Sub Textl_KeyPress(KeyAscii As Integer)If Chr(KeyAscii)“(”Then3Elself Chr(KeyAscii)=ThenCount1=Count1-1End IfIf KeyAscii=13 ThenIf Count 1=0 ThenP