计算机等级考试国家控制结构与数组doc.docx

1、计算机等级考试国家控制结构与数组doc控制结构与数组一、选择题K如下程序运行后输出的结杲是x=0For k=3 To 5x=x+2s = s+xNext kPrint sA.3 B. 12C. 6 D. 92、 下述程序的功能是 ox= ( (a+B. *A -(Ab+C. “n=Len(x)m=0For k=l To n p$=Mid(x, kz 1) If p$=(Then m=m-lElself p$=)Thenm=m+lEnd IfIf m0 ThenPrint:-pEnd IfNext kPrint：-)A统计输入的字符串屮括号的总数B统计输入的字符串中匹配的括号的对数C.检查输入的

2、字符串中的括号是否能够匹配D.删除字符串的括号3、 下述程序段中，与其他3个程序段作用不同的是 A.s = 0i = 0While i100s = s + iWendB s = 0i = 0While i100i = i + lWendC. s = 0i = lDo While i100s = s + lLoop4、 下列程序的运行结果是 os=0:t=0:u=0For x=l To 3For y=l To xFor z=y To 3s = s + lNext zt=t+lNext yu=u+lNext xPrint s；t；uA.C. 14 3 6 D. 16 4 33 6 14 B. 14

3、 6 35、下述程序的运行结果是 oj= Do While j 30j=(j+l)*(j+2)k=k+lLoopPrint k；jA.0 1 B 3 182 C 30 30 D 4 306、在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1,输出结果为 Private Sub Commandl_Click() x=0Do Until x=-la=Val (InputBox (请输入A的值“) b=Val (InputBox ( ”请输入B的值”) x=Val (InputBox (请输入X的值”) a=a+b+xLoopPri

4、nt aEnd SubA. 2 B 3 C. 14 D. 157、下面的数组声明语句中 是正确的。8、下述语句的运行结果是 oDim ai = 0a=Array (1, -2, 9, 0, -1, 9) DoK=a(i)For m=10 To k Step-2 n=k+mNext mPrint n+mi = i + lLoop While Abs (m+n) 27A. 3-8 27 B. 3 27 -89、有如下程序：Dim arr (3 z 3)For j=l To 3For k=l To 3 arr(j, k)=(j-1)*3+kNext kNext jFor j=2 To 3For k=

5、2 To 3 Print arr(kz j)；Next kPrintNext j 运行后，输出的结果是 oA.2 53 6B.5 86 9C.4 758D.5 96810、语句Dim abc(-2 To 4, 0 To 4, 5) As Long定义的三维数组，-其数组元素冇 A. 96 个 B. 112 个 C. 140 个 D. 210 个1K下列程序段的执行结果为 oDim A(4)n=3A(l)=lFor k=0 To n-1For 1=1 To k+lX=k+2-lA(X) =A(X) +A(X ：L)If kn-l Then Exit ForPrint A(X)；Next 1Nex

6、t kA. 12 1 B 12 3 C 2 4 6 D 13 112、 卜列程序的输出结果为 oPrivate Sub Commandl_Click()Dim a(20)For j =1 To 20 Step 2a(j)=jNext jPrint a(1)+a(2)+a(3)End SubA. 4 B. 5 C. 6 D. 713、 使用ReDim Preserve可以改变数组的A.最后一维的大小 B.第一维的大小C.所有维的大小 D.改变维数和所有维的大小14、 下列程序段的执行结果为 。K=0For J=1 To 2For 1=1 To 3K=I + 1Next IFor 1=1 To 7

7、K=K+1Next INext JPrint KA. 10 B 6 C. 11 D. 1615、 卜列程序段的执行结果为 ox=Int(Rnd+4)Select Case xCase 5Print ”优秀Case 4Print良好”Case 5Print” 合格”Case ElsePrint不合格End SelectA.优秀 B.良好 C.合格 D.不合格16、 有如下程序:For x=l To 3Print Tab(3*x)； 22*xNext x运行后，输出的结果是 OA224466B224466C224466D 22 44 6617、 有如下程序：a= 0For j=l To 20 St

8、ep 2a=a+j5Next jPrint a运行后，输出的结果是 。A.12 B 16 C. 40 D 10018、 有如下程序：a=l: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运行后，输出的结果是 OA. 16 B. 3 C 6 D. 819、 有如下程序：a$=122345876nd$=Left$(a$, 1)For i=2 To Len(a$);z$=Mid$(a$, i, 1)If z$d$ Then d$ = z$Next iPrint d$运行后，输出的结果是 oA.1

9、 B. 7 C. 4 D. 820、 有如卜程序：infocase$=InputBox(Input one letter:n)Select Case infocase$Caseagrade$=Very goodCasebgrade$=goodCaseHcgrade$=nOKCaseHdgrade$=QualifiedCase Elsegrade$=nBadnEnd SelectPrint grade$ 运行时从键盘上输入英文小写字母d后，输出的结果是 OA.Very good B. Good C Bad D. Qualified21、 如果A为整数 = 100,则打卬、OK，否则打卬Error

10、,表示这个条件的单行格式工壬语句是 oA.If Int(A=A And Sqr(A. =100 Then PrintOK Else PrintErrorB.If Fix(A.=A And Abs(A. =100 Then PrintOK Else PrintErrorC . If Int (A. =A And (A = 100 , A = 100 And A = 7PrintI=： IPrintA=： AA.1=4A=5B.1 = 7A=13C 1 = 8A=7D. 1 = 7A=ll23、 有如下程序，运行后输出的结果是 oj =0:n=0Do While n3j=(j+1)* (j+2)n

11、=n+lLoopPrint j； nA. 0 1 B 182 3 C 30 4 D 3 324、 下列程序段的执行结果为 。n=0For i=l To 3For j=5 To 1 Step-1n=n+lNext j, iPrint n； j； iA. 12 0 4 B 15 0 4 C. 12 3 1 D 153125、 下列语句正确的是 oA. If xH不y Then Print x不等于y” B . If xy Then Print x不等于y”C.If xy Then Printx4x等于y” D. If xy Printx4s等于y”26、 下列程序的执行结果是 。a=75Ifa90

12、Theni = 4Ifa80Theni = 3Ifa70Theni = 2Ifa60Theni = lPrintHi=:iA. i=l B. 1=2 C i=3 D. i=427、 卜列程序的执行结果是 os = 0i = lDo While i = 100B N=0DoN=N+1Loop While n100C N=0DoN=N+1Loop Until N100D.N=0Do While n3 Then Exit Fori = i + lNext kPrint k； a(i)； sA. 88 6 36 B. 88 1 2C. 90 2 4 D 94 4 1641、 设用复制、粘贴的方法建立了

13、一个命令按钮数组Commandl,以下对该数组的说法错误的是A.命令按钮的所有Caption属性都是CommandlB.在代码屮访问任&一个命令按钮只需要使用名称Command 1C命令按钮的大小都相同42、 语句Dim arr (-3 To 5, 2 To 6) As :nteger定义白勺数组元素冇A. 45个 B. 40个C.11 个 D. 54 个43、 执行以下Commandl的Click事件过程，在窗体上显示 。Option Base 0Private Sub Commandl_Click()Dim aa=Array ( a , b1 z c , d , en z f n z g)

14、Print a (1) ； a (3 ) ; a (5)End SubA. abc B. bdfC. ace D.出错44、 有如下程序: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(az 1)；a(Ubound(a, 1) 运行后输出结果为 oA. 0 0 B-5 0C-5 6 D 0 645、 设有数组声明语句：Option Base 0Dim b(-1 To 10, 2 To 9, 20)As Integer 则数组B中共有 个元索。A. 180

15、0 B. 1848C. 2016 D. 231046、 以卜说法不止确的是 。A.使用ReDim语句可以改变数组的维数B.使用ReDim语句可以改变数组的类型C.使用ReDim语句可以改变数组每一维的大小D.使用ReDim语句可以对数组中的所冇元索进行初始化47、 在窗体上画一个名称为Commands的命令按钮，然后编写如卜程序： Private Sub Commandl_Click()Dim i As Integer, j As IntegerDim a(10, 10)As IntegerFor i=l To 3For j=l To 3a (i, j) = (i-1)*3 + jPrint

16、a (i, j )；Next jPrintNext iEnd Sub 程序运行后，单击命令按钮，窗体上显示的是 。A.12 3246369B.23 4C.14 7258369D.12345678948、 设有如卜程序：Option Base 0Private Sub Form_Click()Dim aDim I As Integer a=Array(1, 2, 3, 4 z 5 z 6, 7, 8, 9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示是 oA. 4321 B. 5432C. 6543 D. 765449、 在窗体上画

17、3个单选按钮，组成一个名为chkOption的控件数组。用于标记各个控件数组元素的参数是 oA. Tag B. IndexC. Listindex D. Name50、 在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：Option Base 0Private Sub Commandl_Click()Dim City As Variant city=Array(北京“，上海”,“天津”,”重庆) Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 。A.空Cl B .错误提示C.北京 D.上海51、 下列程序的功能是：依次将列表框L

18、ist2中的项目移入列表Listl中，并将列表框List2中 移走的项目删除，给程序的空口行选择适当的语句。Listl.Additem List2.List(0)List2.ReMoveItem 0LoopA. Do Until List2.ListCount B . Do While List2.ListCount C. Do Until Listl.ListCount D . Do While Listl.ListCount二、填空题52、在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码： Private Sub Commandl_Click()Dim a(5)

19、For i=0 To 4a(i)=i+lt = i + lIf t=3 ThenPrint a(i)a(t-1)=a (1-2)Elsea(t) =a(i)53、54、55、56.End ifIf i=3 Then a(i+1)=a(t-4)a(4)=lPrint a (i)Next iEnd Sub程序运行后，单击命令按钮，输出结果是 O在窗体上画一个命令按钮，然后编写如下程序：Function M (x As Integer, y As Integer) As IntegerM=IIf (xyz x, y)End FunctionPrivate Sub Commandl_Click()Di

20、m a As integer, b As integera=1b=2Print M(a, b)End Sub程序运行后，单击命令按钮，输出结果为 O执行下面的程序段后，S的值为 Os = 5For i=2 6 To 4.9 Step 0.6s=s+lNext i卜面的程序是用冒泡法将数组a中的10个整数按升序排列，并将程序补充完整。 Private Sub Commandl_Click()Dim aDim Tmp As Integera=Array(678 , 45 , 324 z 528 , 439 , 387 z 87 z 875 , 273 For i= For j = If a (i)

21、 a (j ) ThenTmp=a(i)a(i)=a (j)a(j)=TmpEnd IfNext jNext iFor i=0 To 9Print a(i)Next iEnd Sub执行下列程序，输入数字3,则输出结果为 oPrivate Sub Commandl_Click()a=InputBox(Input a Number)If a5 ThenGoTo L5Elself a2 ThenGoTo L2ElseGoTo L3End IfExit SubL5：Print a Mod 5Exit Sub823)L3：Print a Mod 3Exit SubL2 :Print a Mod 2En

22、d Sub57、以卜程序的目的是将多维数组a (1 To m, 1 To n)中的元素转移到一个名为b (I To n*m) 的一维数组中，完成该程序。Option Base 1Private Sub Commandl_Click(Index As Integer)Dim a(1 To Dim b() ReDim20,1 ToFor i=lTo20Forj=lTo10a (i,j)=术jNext jNext iTran az20z 10 bEndSubSubTran(a(), mz n,b()Dim i As IntegerFori = l TomFor j =1Ton=a (i，j)Next jNext iEnd Sub58、下列程序是将数组a的元索倒序交换，即第丄个变为最后一个，第2个变为倒数第2个，设数组