1、控制结构与数组及答案解析(总分：176.00，做题时间：90 分钟)一、选择题(总题数：51，分数：102.00)1.以下说法不正确的是_。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组中的所有元素进行初始化2.有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a 3 Or b 3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是_。（分数：2.00）A.16B.3C.6D.83
2、.下列程序段的执行结果为_。x=6For k=1 To 10 Step-2x=x+kNext kPrint k：x（分数：2.00）A.-1 6B.-1 16C.1 6D.11 314.如下程序运行后输出的结果是x=0For k=3 To 5x=x+2s=s+xNext kPrint s（分数：2.00）A.3B.12C.6D.95.下面程序段的执行结果为_。I=4A=5DoI=I+1A=A+2Loop Until I=7Print“I=“：IPrint“A=“：A（分数：2.00）A.I=4 A=5B.I=7 A=13C.I=8 A=7D.I=7A=116.有如下程序：For m=1 To
3、4a=0For j=1 To 5a=1For k=1 To 6a=a+3Next kNext jNext mPrint a运行后输出的结果是_。（分数：2.00）A.18B.19C.90D.3607.下述程序段中，与其他 3 个程序段作用不同的是_。（分数：2.00）A.s=0 i=0While i100 s=s+i WendB.s=0i=0While i100i=i+1WendC.s=0i=1Do While i100s=s+1LoopD.s=0i=0Do Until i100s=s+1Loop8.在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入
4、 5、4、3、2、1、-1，输出结果为_。Private Sub Command1_Click()x=0Do Until x=-1a=Val(InputBox(“请输入 A 的值“)b=Val(InputBox(“请输入 B 的值“)x=Val(InputBox(“请输入 X 的值“)a=a+b+xLoopPrint aEnd Sub（分数：2.00）A.2B.3C.14D.159.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(10，10)As
5、 IntegerFor i=1 To 3For j=1 To 3a(i，j)=(i-1)*3+jPrint a(i，j); Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。（分数：2.00）A.12 3246369B.23 4345456C.14 7 258369D.12345678910.下列语句正确的是_。（分数：2.00）A.If x不 y Then Print“x 不等于 y“B.If xy Then Print“x 不等于 y“C.If xy Then Print“x 不等于 y“D.If xy Print“x 不等于 y“11.下述程序的
6、运行结果是_。j=0Do While j 30j=(j+1)*(j+2)k=k+1LoopPrint k;j（分数：2.00）A.0 1B.3 182C.30 30D.4 3012.使用语句 Dim A(1 To 10)As Integer 声明数组 A 之后，以下说法正确的有_。（分数：2.00）A.A 数组中的所有元素值为 0B.数组中的所有元素值不确定C.A 数组中的所有元素值为 EmptyD.执行 Erase A 后，A 数组中的所有元素值为 Null13.有如下程序：a=0For j=1 To 20 Step 2a=a+j/5Next jPrint a运行后，输出的结果是_。（分数：
7、2.00）A.12B.16C.40D.10014.下列程序的输出结果为_。Private Sub Command1_Click()Dim a(20)For j=1 To 20 Step 2a(j)=jNext jPrint a(1)+a(2)+a(3)End Sub（分数：2.00）A.4B.5C.6D.715.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需要使用名称 Command1C.命令按钮的大小都相同D.命令按钮共享相同的事件过程
8、16.有如下程序：x=-5s=InputBox(“input value of s:“)Select Case xCase xy=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x; y运行时，从键盘输入-5，输出的结果是_。（分数：2.00）A.-5-2B.-5-4C.-5-3D.-5-517.设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim I As Integera=Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i=0 To 3Print a(5-i); Nex
9、tEnd Sub程序运行后，单击窗体，则在窗体上显示是_。（分数：2.00）A.4321B.5432C.6543D.765418.以下_是 Visual Basic 合法的数组元素。（分数：2.00）A.X9B.X(9)C.X(I+1)D.X619.下列程序的输出结果是_。Dim aa=Array(1, 2, 3, 4, 5, 6, 7, 8)i=0For k=100 To 90 Step-2s=a(i)2If a(i)3 Then Exit Fori=i+1Next kPrint k; a(i); s（分数：2.00）A.88 6 36B.88 1 2C.90 2 4D.94 4 1620.
10、下列程序的运行结果是_。s=0:t=0:u=0For x=1 To 3For y=1 To xFor z=y To 3s=s+1Next zt=t+1Next yu=u+1Next xPrint s;t;u（分数：2.00）A.3 6 14B.14 6 3C.14 3 6D.16 4 321.语句 Dim abc(-2 To 4, 0 To 4, 5)As Long 定义的三维数组，其数组元素有_。（分数：2.00）A.96 个B.112 个C.140 个D.210 个22.设 a=6，则执行 x=IIf(a5, -1, 0)后，x 的值为_。（分数：2.00）A.5B.6C.0D.-123.
11、下面的数组声明语句中_是正确的。（分数：2.00）A.Dim A3, 4As IntegerB.Dim A(3, 4)As IntegerC.Dim A3;4As IntegerD.Dim A(3;4)As Integer24.下列程序段的执行结果为_。n=0For i=1 To 3For j=5 To 1 Step-1n=n+1Next j，iPrint n; j; i（分数：2.00）A.12 0 4B.15 0 4C.12 3 1D.15 3 125.在窗体上画 3 个单选按钮，组成一个名为 chkOption 的控件数组。用于标记各个控件数组元素的参数是_。（分数：2.00）A.Tag
12、B.IndexC.ListIndexD.Name26.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click()Dim City As Variantcity=Array(“北京“，“上海“，“天津“，“重庆“)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.00）A.空白B.错误提示C.北京D.上海27.设有数组声明语句：Option Base 1Dim A(2，-1 To 1)以上语句所定义的数组 A 为_维数组，共有_个元素，第一维下
13、标从_到_，第二维下标从_到_。（分数：2.00）A.1, 2, 6, 2, -1, 1B.6, 2, 1, 2, -1, 1C.2, 6, 1, 2, -1, 1D.2, 1, 6, -1, 1, 228.下列语句组中，不能实现循环 100 次的有（分数：2.00）A.N=0DoN=N+1Loop Until N=100B.N=0DoN=N+1Loop While n100C.N=0DoN=N+1Loop Until N100D.N=0Do While n100N=N+1Loop29.执行以下 Command1 的 Click 事件过程，在窗体上显示_。Option Base 0Privat
14、e Sub Command1_Click()Dim aa=Array(“a“, “b“, “c“, “d“, “e“, “f“, “g“)Print a(1); a(3); a(5)End Sub（分数：2.00）A.abcB.bdfC.aceD.出错30.下列程序输出结果为_。Private Sub Command1_Click()Dim a As Booleana=TrueIf a Then GoTo L1 Else GoTo L2L1:Print“VB“L2:Print“VC“End Sub（分数：2.00）A.VBB.VCC.VBVCD.出错!31.下列程序段的执行结果为_。Dim A
15、(4)n=3A(1)=1For k=0 To n-1For 1=1 To k+1X=k+2-1A(X)=A(X)+A(X-1)If kn-1 Then Exit ForPrint A(X);Next 1Next k（分数：2.00）A.1 2 1B.1 2 3C.2 4 6D.1 3 132.有如下程序：infocase$=InputBox(“Input one letter:“)Select Case infocase$Case“a“grade$=“Very good“Case“b“grade$=“good“Case“c“grade$=“OK“Case“d“grade$=“Qualified
16、“Case Elsegrade$=“Bad“End SelectPrint grade$运行时从键盘上输入英文小写字母 d 后，输出的结果是_。（分数：2.00）A.Very goodB.GoodC.BadD.Qualified33.下述程序的功能是_。x=“(a+B) *（分数：2.00）A.-(a*b+C)“n=Len(x)m=0For k=1 To np$=Mid(x, k, 1)If p$=“(“Thenm=m-1Elself p$=“)“Thenm=m+1End IfIf m0 ThenPrint“:-p“End IfNext kPrint“:-)“A) 统计输入的字符串中括号的总数
17、B.统计输入的字符串中匹配的括号的对数C.检查输入的字符串中的括号是否能够匹配D.删除字符串的括号34.如果 A 为整数且|A|=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是_。（分数：2.00）A.If Int(A)=A And Sqr(A) =100 Then Print“OK“ Else PrintB.lf Fix(A)=A And Abs(A) =100 Then Print“OK“ Else PrintC.If Int(A)=A And (A=100, A=-100) Then Print“OK“ Else PrintD.If Fix(A)=A
18、 And A=100 And A=-100 Then Print“OK“ Else Print35.下述程序的输出结果是_。x=0For i=0 To 1x=x+1For j=0 To 3If Not(j Mod 2)Then x=x+1Next jNext iPrint“x=“：x（分数：2.00）A.x=12B.x=10C.x=8D.x=636.下述语句的运行结果是_。Dim ai=0a=Array (1, -2, 9, 0, -1, 9)DoK=a(i)For m=10 To k Step-2n=k+mNext mPrint n+mi=i+1Loop While Abs(m+n)27（分
19、数：2.00）A.3-8 27B.3 27 -8C.-8 27 3D.-8 3 2737.有如下程序：a$=“122345876“d$=Left$(a$，1)For i=2 To Len(a$); z$=Mid$(a$，i，1)If z$d$ Then d$=z$Next iPrint d$运行后，输出的结果是_。（分数：2.00）A.1B.7C.4D.838.下列程序的执行结果是_。s=0i=1Do While i=100s=s+iLoopPrint S（分数：2.00）A.5050B.505C.死循环，无输出D.无穷大的数39.有如下程序：Dim arr (3, 3)For j=1 To
20、3For k=1 To 3arr(j, k)=(j-1)*3+kNext kNext jFor j=2 To 3For k=2 To 3Print arr(k, j);Next kPrintNext j运行后，输出的结果是_。（分数：2.00）A.2 53 6B.5 8 6 9C.4 7 5 8D.5 96 840.下列程序段的执行结果为_。K=0For J=1 To 2For I=1 To 3K=I+1Next IFor I=1 To 7K=K+1Next INext JPrint K（分数：2.00）A.10B.6C.11D.1641.设有数组声明语句：Option Base 0Dim b
21、(-1 To 10, 2 To 9, 20)As Integer则数组 B 中共有_个元素。（分数：2.00）A.1800B.1848C.2016D.231042.使用 ReDim Preserve 可以改变数组的（分数：2.00）A.最后一维的大小B.第一维的大小C.所有维的大小D.改变维数和所有维的大小43.下列程序段的执行结果为_。x=Int(Rnd+4)Select Case xCase 5Print“优秀“Case 4Print“良好“Case 5Print“合格“Case ElsePrint“不合格“End Select（分数：2.00）A.优秀B.良好C.合格D.不合格44.在窗
22、体上画一个名称为 Command1 的命令按钮，一个名称为 Label1 的标签，然后编写如下事件过程：Private Sub Command1_Click()s=0For i=1 To 15x=2 *1-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是_。（分数：2.00）A.1B.5C.27D.4545.下列程序的功能是：依次将列表框 List2 中的项目移入列表框 List1 中，并将列表框 List2 中移走的项目删除，给程序的空白行选择适当的语句。_List1.Addltem Li
23、st2.List(0)List2.ReMoveltem 0Loop（分数：2.00）A.Do Until List2.ListCountB.Do While List2.ListCountC.Do Until List1.ListCountD.Do While List1.ListCount46.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0n=InputBox(“)For i=1 To nFor j=1 To ix=x+1Next jNext iPrint XEnd Sub程序运行后，单击命令按钮，如果
24、输入 3，则在窗体上显示的内容是_。（分数：2.00）A.3B.4C.5D.647.有如下程序，运行后输出的结果是_。j=0:n=0Do While n3j=(j+1)*(j+2)n=n+1LoopPrint j; n（分数：2.00）A.0 1B.182 3C.30 4D.3 348.有如下程序：For x=1 To 3Print Tab(3*x); 22*xNext x运行后，输出的结果是_。（分数：2.00）A.224466B.224466C.224466D.22 44 6649.下列程序的执行结果是_。a=75If a90 Then i=4If a80 Then i=3If a70 T
25、hen i=2If a60 Then i=1Print“i=“：i（分数：2.00）A.i=1B.1=2C.i=3D.i=450.有如下程序：Const n=-5:Const M=6Dim a (n To M)For i=Lbound(a, 1) To Ubound(a, 1)a(i)=iNext iPrint a(Lbound(a, 1);a(Ubound(a, 1)运行后输出结果为_。（分数：2.00）A.0 0B.-5 0C.-5 6D.0 651.语句 Dim arr(-3 To 5，2 To 6)As Integer 定义的数组元素有_。（分数：2.00）A.45 个B.40 个C.
26、11 个D.54 个二、填空题(总题数：24，分数：74.00)52.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Private Sub Command1_Click()Dim a(5)For i=0 To 4a(i)=i+1t=i+1If t=3 ThenPrint a(i)a(t-1)=a(1-2)Elsea(t)=a(i)End ifIf i=3 Then a(i+1)=a(t-4)a(4)=1Print a(i)Next iEnd Sub程序运行后，单击命令按钮，输出结果是_。（分数：2.00）填空项 1:_53.在窗体上画一个命令按钮，然后编写
27、如下程序：Function M(x As Integer, y As Integer)As IntegerM=IIf(xy, x, y)End FunctionPrivate Sub Command1_Click()Dim a As integer, b As integera=1b=2Print M(a, b)End Sub程序运行后，单击命令按钮，输出结果为_。（分数：2.00）填空项 1:_54.执行下面的程序段后，s 的值为_。s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i（分数：2.00）填空项 1:_55.下面的程序是用冒泡法将数组 a 中的 10
28、个整数按升序排列，并将程序补充完整。Private Sub Command1_Click()Dim aDim Tmp As Integera=Array(678 , 45 , 324 , 528 , 439 , 387 , 87 , 875 , 273 , 823)For i=_For j=_If a(i)_a(j)ThenTmp=a(i)a(i)=a(j)a(j)=TmpEnd IfNext jNext iFor i=0 To 9Print a(i)Next iEnd Sub（分数：6.00）填空项 1:_56.执行下列程序，输入数字 3，则输出结果为_。Private Sub Comman
29、d1_Click()a=InputBox(“Input a Number“)If a5 ThenGoTo L5Elself a2 ThenGoTo L2ElseGoTo L3End IfExit SubL5：Print a Mod 5Exit SubL3：Print a Mod 3Exit SubL2:Print a Mod 2End Sub（分数：2.00）填空项 1:_57.以下程序的目的是将多维数组 a(1 To m, 1 To n)中的元素转移到一个名为 b(1 To n*m)的一维数组中，完成该程序。Option Base 1Private Sub Command1_Click(In
30、dex As Integer)Dim a(1 To 20, 1 To 10)Dim b()ReDim_For i=1 To 20For j=1 To 10a(i，j)=i 术 jNext jNext iTran a, 20 , 10 bEnd SubSub Tran(a(), m, n, b()Dim i As IntegerFor i=1 To mFor j=1 To n_=a(i，j)Next jNext iEnd Sub（分数：4.00）填空项 1:_58.下列程序是将数组 a 的元素倒序交换，即第 1 个变为最后一个，第 2 个变为倒数第 2 个，设数组中有10 个元素。完成下列程序。
31、Private Sub Backward(a()Dim i As Integer, Tmp As IntegerFor i=1 To 5Tmp=a(i)_Next iEnd Sub（分数：4.00）填空项 1:_59.下列程序的输出结果为_。Private Sub Command1_Click()Dim a(5)For i=LBound(a)To UBound(a)a(i)=i*i+2*i+1Next iPrint a(LBound(a)End Sub（分数：2.00）填空项 1:_60.控件数组共用事件和方法，区分控件元素需要引用控件的 1 属性。（分数：2.00）填空项 1:_61.在程序
32、的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的操作。窗体上有文本框 Text1 和若干复选框，其中复选框 Check1 设置文本框 Text1 上显示的文本是否加下画线。Check1的单击事件过程如下：Private Sub Check1_Click()_Text1.FontUnderLine=TrueElself_Text1.FontUnderLine=FalseEnd IfEnd Sub（分数：4.00）填空项 1:_62.11，在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的计算。程序计算 Sn 的值，Sn=a+aa+aaa+aaaa，
33、其中最后一项为 n 个。例如，a=5，n=4 时，则：Sn=5+55+555+5555Dim a As Integer, n As Integer, Cout As IntegerDim Sn As Long，Tn As LongCount=1:Sn=0.Tn=0A=InputBox(“请输入 a 的值：“)_DoTn=Tn+aSn=Sn+TnCount=Count+1Debug.Print a，n，Sn（分数：2.00）填空项 1:_63.下列程序段运行结果是_。Dim c As Integer, num As Integernum=29483Doc=num Mod 10Print c：nu
34、m=num /10Loop While num0（分数：2.00）填空项 1:_64.下列程序段的运行结果是_。For i=10 To 20For j=2 To i-1If i Mod j=0 Then Exit forNext jIf j =i Then Print i; Next i（分数：2.00）填空项 1:_65.下列程序段的运行结果是_。Dim num As Integer, a As Integer, b As Integera=88：b=24Do While b 0num=a Mod ba=bb=numPrint aLoop（分数：2.00）填空项 1:_66.下列程序段的运行
35、结果是_。Dim t As Single, s As SingleDim n As Integers=0:t=1For n=1 To 5t=t*ns=s+tNext nDebug.Print s（分数：2.00）填空项 1:_67.简述下列程序的功能：_。Sub Form_Load()Dim d As Dated=NowWeekx=Weekday(d)Weeky=WeekdayName(Weekx)If Weekx=1 Or Weekx=7ThenDebug.Print“今天是：“; WeekyDebug.Print“今天是休息日!“ElseDebug.Print“今天是：“; WeekyDe
36、bug.Print“今天是工作日!“End IfEnd Sub（分数：2.00）填空项 1:_68.下面是一个体操评分程序，20 位评委，除去一个最高分和一个最低分，计算平均分(设满分为 10 分)。请在空白处填入适当的代码。Max=0Min=10For i=1 To 20n=Val(InputBox(“请输入分数“)If_Then Max=nIf_Then Min=ns=s+nNext is=_p=s/18Print“最高分：“; Max，“最低分：“; MinPrint“最后得分：“; p（分数：6.00）填空项 1:_69.下面程序用来计算：（分数：6.00）填空项 1:_70.以下程序
37、段的输出结果是_。num=0While num2num=num+1WendPrint num（分数：2.00）填空项 1:_71.下列程序用 IIf 函数改写为_。x=bIf ab Then x=a（分数：2.00）填空项 1:_72.下列程序的输出结果为_。Sub OnGousbGotoDemo()Dim Number，MyStringNumber=2On Number GoTo Line1, Line2Exit SubLine 1：MyString=“In Line 1“Print MyStringLine2：MyString=“In Line2“Prnt MyStringEnd Sub（
38、分数：2.00）填空项 1:_73.以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在空白处填入适当的内容，将程序补充完整。Private Sub Form_Click()Dim x As Single, amax As Single, amin As Singlex=InputBox(“Enter a score“)amax=xamin=xDo, While_If xamax Thenaman=XEnd IfIf_Thenamin=xEnd Ifx=InputBox(“Enter a Score“)LoopPnnt“Max=“;
39、amax, “Min=“;aminEnd Sub（分数：4.00）填空项 1:_74.以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和。请填空。Private Sub Command1_Click()For i=i To 20x=Int(_*101 +200)If_=0 ThenPrint xS=S+_Ena IfNext iPrint“Sub=“; SEnd Sub（分数：6.00）填空项 1:_75.定义动态数组需要分两步进行，首先在模块级或程序级定义一个没有下标的数组，然后在 1 使用 2 语句定义数组的实际元素个数。（分数：
40、4.00）填空项 1:_填空项 1:_控制结构与数组答案解析(总分：176.00，做题时间：90 分钟)一、选择题(总题数：51，分数：102.00)1.以下说法不正确的是_。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型 C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组中的所有元素进行初始化解析：2.有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a 3 Or b 3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是_。（
41、分数：2.00）A.16 B.3C.6D.8解析：3.下列程序段的执行结果为_。x=6For k=1 To 10 Step-2x=x+kNext kPrint k：x（分数：2.00）A.-1 6B.-1 16C.1 6 D.11 31解析：4.如下程序运行后输出的结果是x=0For k=3 To 5x=x+2s=s+xNext kPrint s（分数：2.00）A.3B.12 C.6D.9解析：5.下面程序段的执行结果为_。I=4A=5DoI=I+1A=A+2Loop Until I=7Print“I=“：IPrint“A=“：A（分数：2.00）A.I=4 A=5B.I=7 A=13C.I
42、=8 A=7D.I=7A=11 解析：6.有如下程序：For m=1 To 4a=0For j=1 To 5a=1For k=1 To 6a=a+3Next kNext jNext mPrint a运行后输出的结果是_。（分数：2.00）A.18B.19 C.90D.360解析：7.下述程序段中，与其他 3 个程序段作用不同的是_。（分数：2.00）A.s=0 i=0While i100 s=s+i Wend B.s=0i=0While i100i=i+1WendC.s=0i=1Do While i100s=s+1LoopD.s=0i=0Do Until i100s=s+1Loop解析：8.在
43、窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，输出结果为_。Private Sub Command1_Click()x=0Do Until x=-1a=Val(InputBox(“请输入 A 的值“)b=Val(InputBox(“请输入 B 的值“)x=Val(InputBox(“请输入 X 的值“)a=a+b+xLoopPrint aEnd Sub（分数：2.00）A.2 B.3C.14D.15解析：9.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_C
44、lick()Dim i As Integer, j As IntegerDim a(10，10)As IntegerFor i=1 To 3For j=1 To 3a(i，j)=(i-1)*3+jPrint a(i，j); Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。（分数：2.00）A.12 3246369B.23 4345456C.14 7 258369D.123456789 解析：10.下列语句正确的是_。（分数：2.00）A.If x不 y Then Print“x 不等于 y“B.If xy Then Print“x 不等于 y“ C.
45、If xy Then Print“x 不等于 y“D.If xy Print“x 不等于 y“解析：11.下述程序的运行结果是_。j=0Do While j 30j=(j+1)*(j+2)k=k+1LoopPrint k;j（分数：2.00）A.0 1B.3 182 C.30 30D.4 30解析：12.使用语句 Dim A(1 To 10)As Integer 声明数组 A 之后，以下说法正确的有_。（分数：2.00）A.A 数组中的所有元素值为 0B.数组中的所有元素值不确定C.A 数组中的所有元素值为 EmptyD.执行 Erase A 后，A 数组中的所有元素值为 Null 解析：13
46、.有如下程序：a=0For j=1 To 20 Step 2a=a+j/5Next jPrint a运行后，输出的结果是_。（分数：2.00）A.12B.16 C.40D.100解析：14.下列程序的输出结果为_。Private Sub Command1_Click()Dim a(20)For j=1 To 20 Step 2a(j)=jNext jPrint a(1)+a(2)+a(3)End Sub（分数：2.00）A.4 B.5C.6D.7解析：15.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需要使用名称 Command1 C.命令按钮的大小都相同D.命令按钮共享相同的事件过程解析：16.有如下程序：x=-5s=InputBox(“input value of s:“)Select Case xCase xy=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPr
