PrintA(X);
Next1
Nextk
A.121B・123C・246D・131
12、卜•列程序的输出结果为o
PrivateSubCommandl_Click()
Dima(20)
Forj=1To20Step2
a(j)=j
Nextj
Printa
(1)+a
(2)+a(3)
EndSub
A.4B.5C.6D.7
13、使用ReDimPreserve可以改变数组的
A.最后一维的大小B.第一维的大小
C.所有维的大小D.改变维数和所有维的大小
14、下列程序段的执行结果为。
K=0
ForJ=1To2
For1=1To3
K=I+1
NextI
For1=1To7
K=K+1
NextI
NextJ
PrintK
A.10B・6C.11D.16
15、卜•列程序段的执行结果为o
x=Int(Rnd+4)
SelectCasex
Case5
Print”优秀"
Case4
Print"良好”
Case5
Print”合格”
CaseElse
Print"不合格"
EndSelect
A.优秀B.良好C.合格D.不合格
16、有如下程序:
Forx=lTo3
PrintTab(3*x);22*x
Nextx
运行后,输出的结果是O
A・22
44
66
B・22
44
66
C・22
44
66
D・224466
17、有如下程序:
a=0
Forj=lTo20Step2
a=a+j\5
Nextj
Printa
运行后,输出的结果是。
A.12B・16C.40D・100
18、有如下程序:
a=l:
b=2:
c=3
a=a+b:
b=b+c:
c=b+a
Ifa<>3Orb<>3Then
a=b-a:
b=c-a:
c=b+a
EndIf
Printa+b+c
运行后,输出的结果是O
A.16B.3C・6D.8
19、有如下程序:
a$="122345876n
d$=Left$(a$,1)
Fori=2ToLen(a$);
z$=Mid$(a$,i,1)
Ifz$>d$Thend$=z$
Nexti
Printd$
运行后,输出的结果是o
A.1B.7C.4D.8
20、有如卜•程序:
infocase$=InputBox("Inputoneletter:
n)
SelectCaseinfocase$
Case"a"
grade$="Verygood"
Case"b"
grade$="good"
CaseHc"
grade$=nOK"
CaseHd"
grade$="Qualified"
CaseElse
grade$=nBadn
EndSelect
Printgrade$运行时从键盘上输入英文小写字母d后,输出的结果是O
A.VerygoodB.GoodC・BadD.Qualified
21、如果A为整数>=100,则打卬、'OK〃,否则打卬''Error",表示这个条件的单行格式工壬语
句是o
A.IfInt(A・=AAndSqr(A.>=100ThenPrint"OK"ElsePrint"Error"
B.IfFix(A.=AAndAbs(A.>=100ThenPrint"OK"ElsePrint"Error"
C.IfInt(A.=AAnd(A>=100,A<=-100)ThenPrint"OK"ElsePrint"Errorn
D.IfFix(A.=AAndA>=100AndA<=-100ThenPrint"OK"ElsePrint"Error'*
22、下面程序段的执行结果为o
1=4
A=5
Do
1=1+1
A=A+2
LoopUntilI>=7
Print"I=":
I
Print"A=":
A
A.1=4
A=5
B.1=7
A=13
C・1=8
A=7
D.1=7
A=ll
23、有如下程序,运行后输出的结果是o
j=0:
n=0
DoWhilen<3
j=(j+1)*(j+2)
n=n+l
Loop
Printj;n
A.01B・1823C・304D・33
24、下列程序段的执行结果为。
n=0
Fori=lTo3
Forj=5To1Step-1
n=n+l
Nextj,i
Printn;j;i
A.1204B・1504C.1231D・1531
25、下列语句正确的是o
A.IfxH不yThenPrint"x不等于y”B.Ifx<>yThenPrint"x不等于y”
C.Ifx>yPrint"x4s等于y”
26、下列程序的执行结果是。
a=75
If
a>90
Then
i=4
If
a>80
Then
i=3
If
a>70
Then
i=2
If
a>60
Then
i=l
PrintHi=
":
i
A.i=lB.1=2C・i=3D.i=4
27、卜•列程序的执行结果是o
s=0
i=l
DoWhilei<=100
s=s+i
Loop
PrintS
A.5050B.505C.死循环,无输出D.无穷大的数
28、有如下程序:
x=-5
s=InputBox(11inputvalueofs:
n)
SelectCasex
Casex
y=x+l
CaseIs=0
y=x+2
CaseElse
y=x+3
EndSelect
Printx;y
运行时,从键盘输入-5,输出的结果是o
A.-5-2B.-5-4C.-5-3D.-5-5
29、卜•列程序段的执行结果为o
x=6
Fork=lTo10Step-2
x=x+k
Nextk
Printk:
x
A.6B.-116C.16D.1131
30、有如下程序:
Form=lTo4a=0
Forj=lTo5
a.=l
Fork=lTo6
a=a+3
Nextk
Nextj
Nextm
Printa
运行后输出的结果是o
A.18B.19C.90D・360
31、下列语句组中,不能实现循环100次的冇
A.N=0
Do
N=N+1
LoopUntilN>=100
B・N=0
Do
N=N+1
LoopWhilen<100
C・N=0
Do
N=N+1
LoopUntilN<100
D.N=0
DoWhilen<100
N=N+1
Loop
32、下述程序的输岀结果是o
x=0
Fori=0To1
x=x+l
Forj=0To3
IfNot(jMod2)Thenx=x+lNextj
Nexti
Printnx=":
x
A.x=12B.x=10
C・x=8D・x=6
34、下列程序输岀结果为o
PrivateSubCommandl_Click()DimaAsBoolean
a=True
IfaThenGoToLIElseGoToL2
LI:
Print"VBn
L2:
Print“VC”
EndSub
A.VBB.VC
C.VB
VC
D・出错!
35、在窗体上1间一个名称为Commandl的命令按钮,然后编写如下事件过程:
PrivateSubCommandl_Click()
x=0
n=InputBox("")
Fori=lTon
Forj=lToi
x=x+l
Nextj
Nexti
PrintX
EndSub
程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是。
A.3B.4
C.5D.6
36、在窗体上1師一个名称为Commands的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:
PrivateSubCommandl_Click()
s=0
Fori=lTo15
x=2*1-1
IfxMod3=0Thens=s+l
Nexti
Labell.Caption=s
EndSub
程序运行后,单击命令按钮,则标签屮显示的内容是o
A.1B・5
C・27D・45
37^使用语句DimA(1To10)AsInteger声明数组A之后,以下说法正确的有。
A.A数组中的所有元素值为0
B.数组屮的所冇元素值不确定
C.A数组中的所有元素值为Empty
D.执行EraseA后,A数组屮的庙有元素值为Null38、设冇数组声明语句:
OptionBase1
DimA(2,-1To1)
以上语句所定义的数组A为
维数组,
共冇
个元素,第一维下标从
到
第二维下标从到
O
A.1,2,6,2,-1,1
B.6,2,
lz2,•
-1,1
C.2,6,1,2,-1,1
D.2,1,
6,-1,
1,2
39、以下是VisualBasic合法的数组元素。
A.X9・X(9)
C・X(I+1)D・X[6]
40、下列程序的输出结果是。
Dimaa=Array(1,2z3z4,5,6,7z8)
i=0
Fork=100To90Step-2
s=a(i)入2
Ifa(i)>3ThenExitFor
i=i+l
Nextk
Printk;a(i);s
A.88636B.8812
C.9024D・94416
41、设用复制、粘贴的方法建立了一个命令按钮数组Commandl,以下对该数组的说法错误的是
A.命令按钮的所有Caption属性都是Commandl
B.在代码屮访问任&一个命令按钮只需要使用名称Command1
C・命令按钮的大小都相同
42、语句Dimarr(-3To5,2To6)As:
[nteger定义白勺数组元素冇
A.45个B.40个
C.11个D.54个
43、执行以下Commandl的Click事件过程,在窗体上显示。
OptionBase0
PrivateSubCommandl_Click()
Dima
a=Array("a","b1'z"c","d","enz"fnz"g")
Printa
(1);a(3);a(5)
EndSub
A.abcB.bdf
C.aceD.出错
44、有如下程序:
Constn=-5:
ConstM=6
Dima(nToM)
Fori=Lbound(a,1)ToUbound(a,1)
a(i)=i
Nexti
Printa(Lbound(az1));a(Ubound(a,1))运行后输出结果为o
A.00B・-50
C・-56D・06
45、设有数组声明语句:
OptionBase0
Dimb(-1To10,2To9,20)AsInteger则数组B中共有个元索。
A.1800B.1848
C.2016D.2310
46、以卜•说法不止确的是。
A.使用ReDim语句可以改变数组的维数
B.使用ReDim语句可以改变数组的类型
C.使用ReDim语句可以改变数组每一维的大小
D.使用ReDim语句可以对数组中的所冇元索进行初始化
47、在窗体上画一个名称为Commands的命令按钮,然后编写如卜'程序:
PrivateSubCommandl_Click()
DimiAsInteger,jAsInteger
Dima(10,10)AsInteger
Fori=lTo3
Forj=lTo3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Print
Nexti
EndSub程序运行后,单击命令按钮,窗体上显示的是。
A.123
246
369
B.234
C.147
258
369
D.123
456
789
48、设有如卜•程序:
OptionBase0
PrivateSubForm_Click()
Dima
DimIAsIntegera=Array(1,2,3,4z5z6,7,8,9)
Fori=0To3
Printa(5-i);
Next
EndSub
程序运行后,单击窗体,则在窗体上显示是o
A.4321B.5432
C.6543D.7654
49、在窗体上画3个单选按钮,组成一个名为chkOption的控件数组。
用于标记各个控件数组元素
的参数是o
A.TagB.Index
C.ListindexD.Name
50、在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:
OptionBase0
PrivateSubCommandl_Click()
DimCityAsVariantcity=Array("北京“,"上海”,“天津”,”重庆")Printcity
(1)
EndSub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是。
A.空ClB.错误提示
C.北京D.上海
51、下列程序的功能是:
依次将列表框List2中的项目移入列表^Listl中,并将列表框List2中移走的项目删除,给程序的空口行选择适当的语句。
Listl.AdditemList2.List(0)
List2.ReMoveItem0
Loop
A.DoUntilList2.ListCountB.DoWhileList2.ListCountC.DoUntilListl.ListCountD.DoWhileListl.ListCount
二、填空题
52、在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:
PrivateSubCommandl_Click()
Dima(5)
Fori=0To4
a(i)=i+l
t=i+l
Ift=3Then
Printa(i)
a(t-1)=a(1-2)
Else
a(t)=a(i)
53、
54、
55、
56.
Endif
Ifi=3Thena(i+1)=a(t-4)
a(4)=l
Printa(i)
Nexti
EndSub
程序运行后,单击命令按钮,输出结果是O
在窗体上画一个命令按钮,然后编写如下程序:
FunctionM(xAsInteger,yAsInteger)AsInteger
M=IIf(x>yzx,y)
EndFunction
PrivateSubCommandl_Click()
DimaAsinteger,bAsinteger
a=1
b=2
PrintM(a,b)
EndSub
程序运行后,单击命令按钮,输出结果为O
执行下面的程序段后,S的值为O
s=5
Fori=2・6To4.9Step0.6
s=s+l
Nexti
卜•面的程序是用冒泡法将数组a中的10个整数按升序排列,并将程序补充完整。
PrivateSubCommandl_Click()
Dima
DimTmpAsInteger
a=Array(678,45,324z528,439,387z87z875,273Fori=
Forj=
Ifa(i)a(j)Then
Tmp=a(i)
a(i)=a(j)
a(j)=Tmp
EndIf
Nextj
Nexti
Fori=0To9
Printa(i)
Nexti
EndSub
执行下列程序,输入数字3,则输出结果为o
PrivateSubCommandl_Click()
a=InputBox("InputaNumber")
Ifa>5Then
GoToL5
Elselfa>2Then
GoToL2
Else
GoToL3
EndIf
ExitSub
L5:
PrintaMod5
ExitSub
823)
L3:
PrintaMod3
ExitSub
L2:
PrintaMod2
EndSub
57、以卜•程序的目的是将多维数组a(1Tom,1Ton)中的元素转移到一个名为b(ITon*m)的一维数组中,完成该程序。
OptionBase1
PrivateSubCommandl_Click(IndexAsInteger)
Dima(1ToDimb()ReDim
20,
1To
Fori=l
To
20
For
j=l
To
10
a(i,
j)=
术j
Nextj
Nexti
Tranaz
20
z10b
End
Sub
Sub
Tran(a(),mzn
b())
DimiAsInteger
For
i=lTo
m
Forj=1
To
n
=a(i,
j)
Nextj
Nexti
EndSub
58、下列程序是将数组a的元索倒序交换,即第丄个变为最后一个,第2个变为倒数第2个,设数组