完整word版江苏计算机二级VB 填空题.docx
《完整word版江苏计算机二级VB 填空题.docx》由会员分享，可在线阅读，更多相关《完整word版江苏计算机二级VB 填空题.docx（17页珍藏版）》请在冰豆网上搜索。
完整word版江苏计算机二级VB填空题
填空题1
1.执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是
（1），最后一行是
（2）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimnAsLong,kAsInteger,a（）AsInteger
n=123456789
Do
k=k+1
ReDimPreservea（k）
a（k）=nMod100
n=n\100
LoopUntiln=0
Fork=1ToUBound（a）
Printfun（a（k））
Nextk
EndSub
PrivateFunctionfun（nAsInteger）AsInteger
DimkAsInteger
k=nMod10
fun=k*10+（n\10）
EndFunction
2.执行下面程序，单击命令按钮Command1，则数组元素a（2,1）的值是（3），a（1,2）的值是
（4）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dima（3,3）AsInteger,iAsInteger,kAsInteger
DimnAsInteger
n=9
Fork=1To3
Fori=1To3
a（i,k）=n
n=n-1
Nexti
Nextk
Fori=1To3
Fork=1To3
Printa（i,k）;
Nextk
Print
Nexti
EndSub
3.执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是（5），第二行是
（6），第三行是（7）。
OptionExplicit
PrivateSubCommand1_Click（）
DimiAsInteger,aAsInteger,bAsInteger
a=1
b=2
i=a
DoWhilefun（i,b）<=7
i=i+a
b=b+1
Printi
Loop
EndSub
PrivateFunctionfun（ByValxAsInteger,yAsInteger）AsInteger
x=x+1
y=y+1
fun=x+y
Printfun
EndFunction
4.执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是（8），第二行是
（9），最后一行是（10）。
OptionExplicit
DimkAsInteger'k为模块级变量
PrivateSubCommand1_Click（）
DimNAsInteger,MAsInteger,LcmAsInteger
N=6
M=9
Lcm=Rec（N,M）
PrintLcm
EndSub
PrivateFunctionRec（AAsInteger,BAsInteger）AsInteger
k=k+1
PrintA
IfAModB=0Then
Rec=A
Else
Rec=Rec（A+A/k,B）
EndIf
EndFunction
2
5.执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是
（1），第三行是
（2）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimsAsString,kAsInteger
DimqAsString,a（）AsString,nAsInteger
s="ABCDEFG"
n=1
Do
k=k+1
ReDimPreservea（k）
a（k）=Mid（s,n,n）
n=n+1
LoopWhilen+Len（a（k））<=Len（s）
Forn=1ToUBound（a）
q=""
Callsub1（a（n）,q）
Printq
Nextn
EndSub
PrivateSubsub1（sAsString,qAsString）
DimiAsInteger
Fori=1ToLen（s）
q=Mid（s,i,1）&q
Nexti
EndSub
6.执行下面程序，单击命令按钮Command1，则数组元素a（1,2）的值是（3），a（3,1）的值是
（4）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dima（3,3）AsInteger,iAsInteger,jAsInteger
Fori=1To3
Forj=1To3
If（i+j）Mod2=0Then
a（i,j）=i+j
Else
a（i,j）=（i*3+j）/2
EndIf
Printa（i,j）;
Nextj
Print
Nexti
EndSub
7.执行下面程序，单击命令按钮Command1，则数组元素a（5）的值是（5），窗体上显示的第二行是（6），第三行是（7）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimiAsInteger,a（5）AsInteger,jAsInteger
Fori=1To5
a（i）=2*i-1
Printa（i）;
Nexti
Print
Fori=a（5）Toa（3）Step-1
Printfun（i,a（i-4））
Nexti
EndSub
PrivateFunctionfun（aAsInteger,bAsInteger）AsInteger
a=a-1
b=b-1
fun=（a+b）/2
EndFunction
8.执行下面程序，单击命令按钮Command1，则数组元素yz
（1）的值是（8），数组元素yz（3）的值是（9），窗体上显示的最后一行是（10）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimnAsInteger,yz（）AsInteger,sAsInteger
DimiAsInteger
n=12
Callsub1（n,yz）
Fori=1ToUBound（yz）
s=s+yz（i）
Printyz（i）
Nexti
Prints
EndSub
PrivateSubsub1（nAsInteger,a（）AsInteger）
DimkAsInteger,iAsInteger
Fori=2Ton/2
IfnModi=0Then
k=k+1
ReDimPreservea（k）
a（k）=i
EndIf
Nexti
EndSub
3
9.执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是
（1），第三行是
（2）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimsAsString,kAsInteger,a（）AsString,iAsInteger
s="VBASIC"
i=1
Do
k=k+1
ReDimPreservea（k）
a（k）=Mid（s,i,i）
i=i+1
LoopWhilei+Len（a（k））-1<=Len（s）
Fork=1ToUBound（a）
Printfun（a（k））
Nextk
EndSub
PrivateFunctionfun（sAsString）AsString
DimkAsInteger,tAsString
Fork=Len（s）To1Step-1
t=t&Mid（s,k,1）
Nextk
fun=t
EndFunction
10.执行下面程序，单击命令按钮Command1，则数组元素a（2,1）的值是（3），a（1,3）的值是
（4）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dima（3,3）AsInteger,iAsInteger,jAsInteger
DimkAsInteger,nAsInteger
k=2
n=1
DoWhilek<=6
Fori=1To3
Forj=1To3
Ifi+j=kThena（i,j）=n:
n=n+1
Nextj
Nexti
k=k+1
Loop
Fori=1To3
Forj=1To3
Printa（i,j）;
Nextj
Print
Nexti
EndSub
11.执行下面程序，单击命令按钮Command1，则数组元素a（3）的值是（5），窗体上显示的第二行是（6），第四行是（7）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimiAsInteger,a（5）AsInteger,jAsInteger
Fori=1To5
a（i）=2*i-1
Printa（i）;
Nexti
Print
j=UBound（a）
Fori=jTo2Step-1
Printfun（a（i）,a（i-1））
Nexti
EndSub
PrivateFunctionfun（ByValaAsInteger,bAsInteger）AsInteger
fun=（a+b）/2
a=a+1
b=b+1
EndFunction
12.执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是（8），第二行是
（9），最后一行是（10）。
OptionExplicit
PrivateSubCommand1_Click（）
DimnAsInteger,kAsInteger
n=59
k=5
PrintTran（n,k）
EndSub
PrivateFunctionTran（nAsInteger,kAsInteger）AsString
DimrAsInteger
Ifn<>0Then
r=nModk
Tran=Tran（n\k,k）&r
Printr
EndIf
EndFunction
4
1.已知在列表框中有5个列表项，从上到下内容分别为0、1、2、3、4。
执行下面程序，单击窗体后，列表框上显示的第二个列表项内容是
（1），列表框中共有
（2）项。
OptionExplicit
PrivateSubForm_Click（）
DimiAsInteger
Fori=0ToList1.ListCount/2-1
List1.RemoveItemi
Nexti
EndSub
2.执行下面程序，单击命令按钮Command1，在弹出的InputBox对话框中输入8，并按“确定”按钮，则a
（1）的值是（3），a（5）的值是（4）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dima（）AsInteger,iAsInteger,nAsInteger
n=InputBox（"输入N",,8）
ReDima（n）
Callprocess（a,1,1）
Fori=1Ton
Printa（i）
Nexti
EndSub
PrivateSubprocess（a（）AsInteger,mAsInteger,nAsInteger）
DimiAsInteger
i=UBound（a）
a（i）=m
a（i-1）=n
i=i-2
DoWhilei>=1
a（i）=a（i+1）+a（i+2）
i=i-1
Loop
EndSub
3.执行下列程序，单击Command1按钮后，窗体上第一行为（5），第二行为（6），最后一行为（7）。
OptionExplicit
DimnAsInteger
PrivateSubCommand1_Click（）
DimiAsInteger
n=1
Fori=1To5
CallSub1（i,n）
Printn
Nexti
Printi
EndSub
PrivateSubSub1（xAsInteger,yAsInteger）
DimiAsInteger
n=n+2
x=x+2
y=y+x
EndSub
4.执行下面程序，单击Command1按钮，则在窗体上显示的第一行内容是（8），第三行内容是（9），最后一行内容是（10）。
OptionExplicit
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=3
b=1
CallP1（a,b）
Printb
CallP1（b,a）
Printb
EndSub
PrivateSubP1（xAsInteger,ByValyAsInteger）
StaticzAsInteger
x=x+z
y=x-z
z=10-y
Printz
EndSub
5
1.执行下面的程序，单击命令按钮Command1，则窗体上显示的第一行是
（1），最后一行是
（2）。
OptionExplicit
PrivateSubCommand1_Click（）
Dimm（10）AsInteger,kAsInteger,xAsInteger
Fork=1To10
m（k）=11-k
Nextk
x=3
Printm（2+m（x））
Printm（m（x-1）+m（x+1）-6）*2
Ifm（2+m（x））<3Then
Printx+m（k+m（k-1）-9）
Else
Printx-m（k+m（k-1）-9）
EndIf
EndSub
2.执行下面的程序，单击命令按钮Command1，则图片框Picture2中显示的第一行是（3），第二行是（4），第三行是（5）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dimsa（3,3）AsString*1,iAsInteger,jAsInteger,sAsString,kAsInteger
s="ABCDEFXYZ"
k=1
Fori=1To3
Forj=1To3
sa（i,j）=Mid（s,k,1）
Picture1.Printsa（i,j）;
k=k+1
Nextj
Picture1.Print
Nexti
Fori=1To3
Forj=1To3
k=（Asc（sa（i,j））-Asc（"A"）+i+j）Mod26
sa（i,j）=Chr（k+Asc（"A"））
Picture2.Printsa（i,j）;
Nextj
Picture2.Print
Nexti
EndSub
3.执行下面的程序，单击命令按钮Command1，则窗体上显示的第一行是（6），第二行是
（7），最后一行是（8）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,cAsInteger
a=6
b=20
c=Fun（a,b）
Printb
EndSub
PrivateFunctionFun（ByValxAsInteger,yAsInteger）AsInteger
x=x-2
y=y-3
Ifx=0Ory=0Then
Fun=1
Else
Fun=Fun（x-2,y-3）
EndIf
Printx
EndFunction
4.执行下面程序，单击命令按钮Command1，则在窗体上显示的第二行是（9），最后一行是
（10）。
OptionExplicit
DimbAsInteger
PrivateSubCommand1_Click（）
DimaAsInteger,iAsInteger
a=8
Fori=1To3
PrintF（a）
Nexti
EndSub
FunctionF（aAsInteger）AsInteger
StaticcAsInteger
b=b+1
c=c+2
F=a+b-c
EndFunction
6
1.执行下面程序，单击命令按钮Command1，若文本框Text1中生成的数据为“866348”，则列表框List1中共输出
（1）行数据，其中第一行为
（2），最后一行为（3）。
OptionExplicit
PrivateSubCommand1_Click（）'运行
Dima（6）AsInteger,b（1To10）AsInteger
DimiAsInteger
Fori=1To6
a（i）=1+Int（Rnd*10）
Text1.Text=Text1.Text&Str（a（i））
Nexti
Callnum（a,b）
Fori=1To10
Ifb（i）<>0ThenList1.AddItemb（i）
Nexti
EndSub
PrivateSubnum（x（）AsInteger,y（）AsInteger）
DimiAsInteger
Fori=1To6
y（x（i））=y（x（i））+1
Nexti
EndSub
2.执行下面程序，单击命令按钮Command1，则窗体上输出的data数组元素个数为（4），最后一行是（5）。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimstAsString,charAsString
Dimdata（）AsString,iAsInteger,jAsInteger
st="66*97*115*105*99*"
Fori=1ToLen（st）
IfMid（st,i,1）<>"*"Then
char=char&Mid（st,i,1）
Else
j=j+1
ReDimPreservedata（j）
data（j）=char
char=""
EndIf
Nexti
Print"data数组元素个数为";j
PrintConver（data）
EndSub
PrivateFunctionConver（a（）AsString）AsString
DimiAsInteger
Fori=1ToUBound（a）
Conver=Conver&Chr（Val（a（i）））'字母A、a的ASCII码分别为65、97
Nexti
EndFunction
3.执行下面程序，单击命令按钮Command1，则窗体上显示的第三行是（6），最后一行是
（7）。
OptionExplicit
DimiAsInteger
PrivateSubCommand1_Click（）
PrintTest（"D"）
EndSub
PrivateFunctionTest（tAsString）AsInteger
Ift>="A"Then
CallTest（Chr（Asc（t）-1））
Printt
i=i+1
EndIf
Test=i
EndFunction
4.执行下面程序，单击窗体，在弹出的Input
升级会员 