Forj=_________
If_________then
temp=sort（j+1）
sort（j+1）=sort（j）
sort（j）=temp
EndIf
Nextj
Nexti
5．执行下面的程序，窗体上显示的a的值是________，b的值是________。
1.25；1
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle
a=5
b=4
calls（a,b）
Printa,b
EndSub
privateSubs（xAsSingle,yAsSingle）
DimtAsSingle
t=x
x=t/y
y=tMody
EndSub
6．如果两个素数的差为2，就称这两个素数为孪生素数。
下列程序代码输出100以内的孪生素数。
ExitFunction；Prime（i）AndPrime（i+2）
PrivateFunctionPrime（ByValmAsInteger）AsBoolean'判断一个数是否为素数
DimiAsInteger
Prime=False
Fori=2ToSqr（m）
IfmModi=0Then______________
Nexti
Prime=True
EndFunction
PrivateSubCommand1_Click（）
DimiAsInteger,p1AsBoolean,p2AsBoolean
Fori=3To97Step2
If__________________________ThenPrinti;i+2
Nexti
EndSub
1．表达式5\6/2+3Mod2的值是__________。
2
2．已知a="abc":
b="aB"，则表达式a>b的逻辑值结果是__________。
真
3．执行以下语句，在窗体上显示的s的值为________，n的值为________。
7；0
PrivateSubCommand1_Click（）
DimnAsInteger,sAsInteger
n=3
s=1
Do
s=s+n
n=n-1
LoopWhilen>0
Prints;n
EndSub
4．用冒泡排序法对8个数按升序进行排序，请将程序补充完整。
Fori=1to71to8-i；sort（j）>sort（j+1）
Forj=_________
If_________then
temp=sort（j+1）
sort（j+1）=sort（j）
sort（j）=temp
EndIf
Nextj
Nexti
5．执行下列程序后，窗体上显示结果的第一行为_____________,第二行为_________。
8；4
PrivateSubCommand1_Click（）
DimaAsInteger
a=2
Printf（f（a））
Printa
EndSub
PrivateFunctionf（aAsInteger）AsInteger
DimbAsInteger
b=b+1
a=a+2
f=a+b
EndFunction
6．以下程序是找出所有的三位和四位回文数，将其显示在列表框中。
所谓回文，是指正读反读都一样的字符串，如121，1221均是回文，1232则不是。
在程序空白处填写编码，使之能完成相应的功能。
HW（t）；n>=mThenHW=True
PrivateSubCommand1_Click（）
DimtAsString,iAsInteger
Fori=100To9999
t=CStr（i）
If__________________ThenList1.AddItemi
Nexti
EndSub
PrivateFunctionHW（sAsString）AsBoolean'判断一个数是否为回文数
DimnAsInteger,mAsInteger
HW=False
n=1
m=Len（s）
DoWhilen<=m
IfMid（s,n,1）=Mid（s,m,1）Then
n=n+1
m=m-1
Else
ExitDo
EndIf
Loop
If______________________
EndFunction
1．表达式27/3^2+3Mod2的值是__________。
4
2．已知a="ABC":
b="a"，则表达式a>b的逻辑值结果是__________。
假
3．执行以下语句，在窗体上显示的s的值为________，n的值为________。
10；5
PrivateSubCommand1_Click（）
DimnAsInteger,sAsInteger
n=1
s=0
Do
s=s+n
n=n+1
LoopUntiln>4
Prints;n
EndSub
4．用选择排序法对8个数按升序进行排序，请将程序补充完整。
Fori=1to7i+1to8；sort（i）>sort（j）
Forj=_________
If_________then
temp=sort（i）
sort（i）=sort（j）
sort（j）=temp
EndIf
Nextj
Nexti
5．执行下列程序后，窗体上显示结果的第一行为_____________,第二行为_________。
567；246
PrivateSubCommand1_Click（）
Dima（1To3）AsInteger
DimiAsInteger
Fori=1To3
a（i）=4+i
Printa（i）;
Nexti
Print
subpa
Fori=1To3
Printa（i）;
Nexti
EndSub
PrivateSubsubp（b（）AsInteger）
DimiAsInteger
Fori=1To3
b（i）=2*i
Nexti
EndSub
6．下列程序代码是求两个数的最小公倍数。
m*n；mModn
PrivateSubCommand1_Click（）
DimmAsInteger,nAsInteger,pAsLong
m=Val（Text1.Text）
n=Val（Text2.Text）
p=____________
Text3.Text=p/gcd（m,n）
EndSub
PrivateFunctiongcd（ByvalmAsInteger,ByvalnAsInteger）AsInteger'求两个数的最大公约数
DimtAsInteger
Do
m=n
n=r
r=_____________
LoopUntilr=0
gcd=m
EndFunction
1．表达式2*3^2+3Mod2的值是__________。
19
2.已知a=1:
b=2:
c=3，则表达式a=bAndb假
3.执行以下语句，在窗体上显示的s的值为________，n的值为________。
9；7
PrivateSubCommand1_Click（）
DimnAsInteger,sAsInteger
n=1
s=0
DoUntiln>5
s=s+n
n=n+2
Loop
Prints;n
EndSub
4．下段程序的功能是查找x这个元素在数组a中的具体位置，请将程序补充完整。
Ubound（a）；i<=Ubound（a）
ForI=1to_________
Ifa（I）=xthen
Exitfor
EndIf
NextI
If_________Print"该元素位于a（";I;"）"
5．执行下列程序，窗体上显示的结果，第一行为_________,第二行为______。
6；12
PrivateSubCommand1_Click（）
DimkAsInteger,mAsInteger
k=4:
m=1
Printfunc（k,m）
Printfunc（k,m）
EndSub
PrivateFunctionfunc（ByValaAsInteger,ByValbAsInteger）AsInteger
StaticmAsInteger
DimiAsInteger
i=i+m+1
m=i+a+b
func=m
EndFunction
6．下列程序是找出所有三位和四位Armstrong数，并将结果显示在列表框List1中。
Armstrong数是各位数的n次方之和等于原数，例如153=1^3+5^3+3^3，1634＝1^4＋6^4＋3^4＋4^4。
Check（i）；sum=sum+Val（Mid（t,i,1））^Len（t）
PrivateSubCommand1_Click（）
DimiAsInteger
Fori=100To9999
If_____________________ThenList1.AddItemi
Nexti
EndSub
PrivateFunctionCheck（ByValsAsInteger）AsBoolean'判断一个数是否为Armstrong数
DimiAsInteger
DimtAsString,sumAsInteger
Check=False
t=CStr（s）
Fori=1ToLen（t）
_____________________
Nexti
Ifs=sumThenCheck=True
EndFunction
1．表达式20Mod3^2+3*2的值是__________。
8
2．已知a=1:
b=2:
c=3，则表达式a真
3．执行以下语句，在窗体上显示的s的值为________，n的值为________。
3；2
PrivateSubCommand1_Click（）
DimnAsInteger,sAsInteger
n=8
s=1
DoWhilen>2
n=nMod3
s=s+n
Loop
Prints;n
EndSub
4．将数组a的元素在图片框picture1每行5个打印出来，请将程序补充完整。
Fori=1to_________Ubound（a）；countmod5=0
picture1.printa（i）
count=count+1
If_________then
picture1.print
EndIf
Nexti
5．执行下列程序，窗体上显示的结果，第一行为_________,第二行为______。
2010；1010
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=10:
y=15
Callvalue（x,y）
Printx,y
EndSub
PrivateSubvalue（ByValmAsInteger,nAsInteger）
m=m*2
n=n-5
Printm,n
EndSub
6．本程序分别计算1到5阶乘的和。
程序运行后窗体上显示的结果为1！
+2！
+3！
+4！
+5！
=153。
sum=sum+fact（i）；fact=n*fact（n-1）
PrivateSubCommand1_Click（）
DimsumAsInteger,iAsInteger
Fori=1To5
__________________
Ifi<>5Then
Printi&"!
+";
Else
Printi&"!
=";
EndIf
Nexti
Printsum
EndSub
PrivateFunctionfact（ByValnAsInteger）AsLong'求一个数的阶乘
Ifn=0Orn=1Then
fact=1
Else
__________________
EndIf
EndFunction
1．表达式5Mod2*3+2^3的值是__________。
13
2．已知a=1:
b=2，则表达式NotTrueAnda假
3．执行下列程序，窗体上显示的s的结果为_________，i的值为________。
aaa；4
PrivateSubForm_Click（）
DimiAsInteger,sAsString
Fori=1To3
s=s+"a"
Nexti
Prints;i
EndSub
4.在文本框中按5行5列显示数组a（5,5），请将程序补充完整。
a（i,j）;vbcrlf
Fori=1to5
Forj=1to5
Text1.text=Text1.text&_________&space
（2）
Nextj
Text1.text=Text.text&_________
Nexti
5．执行下列程序，窗体上显示的结果，第一行为_________,第二行为______。
369；31821
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger,zAsInteger
x=1:
y=2:
z=3
Callsub1（x,y,z）
Callsub1（x,y,z）
EndSub
PrivateSubsub1（ByValxAsInteger,yAsInteger,zAsInteger）
x=3*x
y=2*z
z=x+y
Printx,y,z
EndSub
6．下面的程序求任意一个正整数的因子。
程序运行时，通过文本框Text1输入一正整数，在列表框List1中显示其所有的因子。
Callfactor（a,m）ReDimPreserves（k）
PrivateSubCommand1_Click（）
DimaAsInteger,m（）AsInteger
DimiAsInteger
a=Text1.Text
__________________
Fori=1ToUBound（m）
List1.AddItemm（i）
Nexti
EndSub
PrivateSubfactor（ByValnAsInteger,s（）AsInteger）'求一个数n的因子，并将其存入动态数组s中
DimiAsInteger,kAsInteger
Fori=1Ton-1
IfnModi=0Then
k=k+1
__________________
s（k）=i
EndIf
Nexti
EndSub
1．表达式9Mod8\3+2*3的值是__________。
7
2．已知a=1:
b=2:
c=3，则表达式a=bAndb=c的逻辑值结果是__________。
假
3．执行下列程序，窗体上显示的s的结果为_________，i的值为________。
6；4
PrivateSubCommand1_Click（）
DimiAsInteger,sAsInteger
Fori=1To3
s=s+i
Nexti
Prints;i
EndSub
4．求数组a（5，5）的各行行和，并依次打印出来，请将程序补充完整。
sum=0；sum+a（i,j）
Fori=1to5
_________
Forj=1to5
sum=_________
Nextj
Printsum;
Nexti
5．执行下列程序，窗体上显示的结果，第二行为_________,第三行为______。
2；4
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=1:
y=1
Printfunc1（x,y）
Printfunc1（y,x）
EndSub
PrivateFunctionfunc1（ByValxAsInteger,yAsInteger）AsInteger
x=x+y
y=y+x
func1=x
EndFunction
6．下列程序的功能是找出100～999之间的“水仙花数”并显示在列表框List1中，（“水仙花数”是指一个三位数，其各位数字立方和等于该数本身，例如：
153=1^3+5^3+3^3）。
s=m；daffo（n）
PrivateFunctiondaffo（mAsInteger）AsBoolean'判断一个数是否为水仙花数
DimsAsInteger
s=0
Fori=1To3
s=s+Val（Mid（m,i,1））^3
If_____________Thendaffo=True
EndFunction
PrivateSubCommand1_Click（）
DimnAsInteger,pAsString
Forn=100To999
If_____________Then
List1.Additemn&
升级会员 