vb改错Word格式.docx
《vb改错Word格式.docx》由会员分享，可在线阅读，更多相关《vb改错Word格式.docx（102页珍藏版）》请在冰点文库上搜索。
。
DimkAsInteger,iAsInteger
DimsAsLong,tAsLong
DoWhilei&
=3
t=1
k=1
Whilek&
=2*i
t=t*k
k=k+1
Wend
s=s+t
Wend
40346
3004题:
+6!
=2^i
41066
3005题:
求200到400间，能被３整除但不能被７整除的数的个数。
DimcountAsInteger
DimxAsInteger
count=0
x=200
Whilex&
=400
IfxMod3=0OrxMod7&
&
0Then
count=count+1
EndIf
x=x+1
Printcount
57
3006题:
求200到500间，能被13整除但不能被17整除的数的个数。
=500
IfxMod13=0OrxMod17&
21
3007题:
求1到400间，同时能被3和7整除的数的个数。
PrivateSubForm_Click（）
Forx=1To400
ifmod（x,3）=0andmod（x,7）=0then
endif
Nextcount
printcount
19
3008题:
求1到500间，同时能被5和9整除的数的个数。
Forx=1To500
ifmod（x,5）=0andmod（x,9）=0then
endif
11
3009题:
求能被3整除且至少有一位数字为5的三位数的个数。
DimaAsInteger,bAsInteger,cAsInteger
x=100
DoWhilex&
=999
IfxMod3=0Then
a=Int（x/100）
b=Int（（x-a*100）/10）
c=x-a*100-b*10
Ifa=5Andb=5Andc=5Then
85
3010题:
求能被7整除且至少有一位数字为9的三位数的个数。
IfxMod7&
Ifa=9andb=9Andc=9Then
x=x+1
36
3011题:
求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。
b=Int（x/10）-a*10
ifmod（x,2）=0ORmod（b+c,10）=athen
Loop
45
3012题:
求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。
ifxmod2=0Orb+cmod10=athen
3013题:
求平方和小于2000的最大自然数。
DimsAsInteger
x=0
DoWhiles&
=2000
x=x+2
s=s+x*x
loop
Printx
18
3017题:
解百马百瓦古题。
大、小马和马驹共100匹，共驮100片瓦。
大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?
程序中有三行有错误。
DimxAsInteger,yAsInteger,zAsInteger
Forx=1To33
Fory=1To50
z=100-x-y
If3*x+2*y+z/2&
100Then
s=s+1
Nextx
Nexty
Prints
6
3018题:
程序中有一行有错误。
dm=1
DoWhiledm&
=100/3
xm=1
DoWhilexm&
=100/2-dm
mj=100-dm-xm
Ifdm+xm+mj=100Then
xm=xm+1
dm=dm+1
3019题:
求100-200之间的所有素数个数，程序中有两行有错误。
Number=0
Forx=101To199Step2
i=2
k=Int（x/2）
DoWhilei&
=k
IfxModi=0ThenExitFor
Ifi&
kThen
Number=Number+1
Nextx
PrintNumber
3020题:
sum=d+dd+ddd+……+ddd..d（d为1-9的数字）。
例如：
3+33+333+3333（此时d=3,n=4）。
从键盘上输入d的值为8，n的值为9，求sum的值。
DimdAsInteger,nAsInteger,iAsInteger
DimsumAsLong
sum=0
d=Val（InputBox（"
请输入数值d:
"
））
n=Val（InputBox（"
请输入数值n:
Fori=1Ton
tn=tn+d
sum=sun+tn
Nexti
Printsum
864197523
3021题:
输出水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。
例如153是一个水仙花数，因为1^3+5^3+3^3=153）程序中有两行有错误。
OptionExplicit
DimnumberAsInteger
DimnAsInteger,iAsInteger,jAsInteger,kAsInteger
Forn=100To999
i=n/100‘百位
j=Int（n/10）-i*10‘十位
k=nMod10‘个位
If（n=i*i*i+j*j*j+k*k*k）Then
number=numbre+1
Nextn
Printnumber
4
3022题:
求数列2/1，3/2，5/3，8/5，13/8，……的前10项之和。
DimiAsInteger,tAsInteger,nAsInteger
DimaAsInteger,bAsInteger
DimsAsSingle
a=2:
b=1:
n=10:
s=0
s=s+a/b
t=b
a=a+b
a=t
Nexti
16.47991
3023题:
猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；
以此类推，到第10天只剩余1个。
问第1天共摘了多少桃子。
DimdayAsInteger,sumAsInteger
day=10;
sum=1
DoWhileday&
1
sum=sum*2
day=day-1
Printsum
1534
3025题:
求1～200之间的能被7整除的数的平方和。
程序有两处错误。
DimsumAsinteger
x=1
=200
IfxMod7=0
sum=sum+x^2
EndIf
377986
3026题:
求1~99的平方根的和并输出结果。
（保留小数点两位），程序中有两行有错误。
DimsumAsInteger
=99
sum=sum+Sqrt（x）
PrintRound（sum,2）
661.46
3027题:
求1~55的平方根的和并输出结果。
（保留小数点两位）程序中有两行有错误。
=55
275.43
3028题:
统计1~1000中能被3整除的数的个数。
DimiAsInteger
i=3
DoWhileI&
=1000
Ifxmod3=0Then
i=i+1
333
3029题:
输出1~100中所有整数的平方和。
程序中有错误。
DoUntilx&
100
sum=sum+x^2
328350
3030题:
求[1,5000]内能被5整除的前若干个偶数之和，直到和大于50000为止。
DimsAsLong
x=2
=5000
IfxMod5＝0Then
s=s+x
Ifs&
50000Then
Exitfor
x=x+1
50500
3031题:
求3000以内能被17或23整除的正整数的个数。
Forx=1To3000step-1
IfxMod17=0andxMod23=0Then
299
3032题:
已知一个数列的前3项为0，0，1，以后每项为前3项的和，求此数列的第36项。
DimaAsLong
DimbAsLong
DimcAsLong
DimdAsLong
a=0:
b=0:
c=1
Fori=1To36
d=a
a=b
b=c
c=a+b+c
Printc
334745777
3033题:
求数列2,4,8,16,32,…前若干项之和。
当和大于9000时，终止求和并输出结果。
Do
Untils&
9000
16382
3034题:
求[351,432]之间既不能被3整除,也不能被8整除的正整数的个数。
DimcAsInteger
Forx=351To432
IfxMod3&
0orxMod8&
c=c+1
Nextc
试题要求：
源程序文件名：
试题答案：
47
考试语种：
试卷编号：
1034
第35小题：
求[444,666]中最大的素数。
Forx=666To444
k=Int（Sqr（x））
Fori=2Tok
IfxModi=0Then
ExitDo
Printx
ExitFor
661
3035题:
已知24有8个正整数因子（即
升级会员 