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