VB程序改错Word格式文档下载.docx
- 文档编号:17315655
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:14
- 大小:18.09KB
VB程序改错Word格式文档下载.docx
《VB程序改错Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB程序改错Word格式文档下载.docx(14页珍藏版)》请在冰豆网上搜索。
day=day-1
Loop
Printsum
EndSub
3.程序功能:
计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50),要求:
按四舍五入的方式精确到小数点后第二位。
程序中有一处错误。
DimsAsSingle
DimnAsInteger
s=0
Forn=1To50
下一行程序有错
s=s+n/(2*n–1)
Nextn
PrintRound(s,2)
4.程序功能:
计算两个数的最大公约数。
程序中有一处错误,改正错误,使程序能输出正确结果。
Printfun(14339,507)
EndSub
PrivateFunctionfun(u,v)
m=u
ForI=mTo1Step-1
IfvModI=0AnduModI=0Then
Fun=1___i____
ExitFor
EndIf
NextI
EndFunction
5.程序功能:
计算两个数的最小公倍数。
Printfun(248,848)
t=u
DoWhiletModu<
>
0OrtModv<
0
t=t+u
fun=ut
6.程序功能:
求[1,130]间所有整数的立方和并输出结果。
DimsAsIntegerDouble/Long
DimxAsInteger
x=1
DoWhilex>
130until
s=s+x^3
x=x+1
Prints
7.程序功能:
求[351,432]之间既不能被3整除,也不能被8整除的正整数的个数。
DimcAsInteger
Forx=351To432
IfxMod3<
0AndxMod8<
0Thenc=c+1
Nextcx
Printc
8.程序功能:
求1~200之间的能被7整除的数的平方和。
程序有一处错误。
DimsumAsLong
sum=0
Whilex<
=200
Ifx/7=0Thenxmod7=0
sum=sum+x^2
x=x+1Wend
9.程序功能:
求1~200之间能被7整除的数的平方和。
DimsumAsIntegerdouble
IfxMod7=0Then
WendPrintsum
10.程序功能:
求1~60之间的所有整数的平方和。
程序中有错误。
DimsAsLong
Forx=1To60
s=s+x^2
Nextsx
11.程序功能:
求1~99的平方根的和并输出结果。
(保留小数点两位),程序中有错误。
下一行程序有错DimsumAsIntegerdouble
DoWhilex<
=99
sum=sum+Sqr(x)
LoopPrintRound(sum,2)
12.程序功能:
求1到400间,同时能被3和7整除的数的个数。
PrivateSubForm_Click()
DimcountAsInteger
DimxAsInteger
Forx=1To400
IfMod(x,3)=0AndMod(x,7)=0Thenxmod3=0andxmod7=0
count=count+1
Nextx
Printcount
13.程序功能:
求200到400间,能被3整除但不能被7整除的数的个数。
DimcountAsInteger
count=0
x=200
=400
IfxMod3=0AndxMod7<
0Then
Loopwend
14.程序功能:
求S=1+1/2+1/3+……+1/100,程序中有两行错误。
sum1=sumd(100)
Printsum1
PrivateFunctionsumd(nAsInteger)AsSinglei=0
Do
i=i+1
s=s+1/I
LoopUntili<
=nwhile
Sumd=I
15.程序功能:
求s=1+3+5+7+...直到s>
2000为止。
程序中有一行有错误。
DimiAsInteger,sAsLong
i=1
DoUntils>
2000
s=s+i
i=i+2
16.程序功能:
求个位数是6,且能被3整除的所有四位数之和。
程序中有一行错误,改正错误,使程序能输出正确的结果。
Dimi%
Dims&
Fori=1000To9999
IfiMod3=0andiMod1000=6Thenimod10=6
NextI
17.程序功能:
求所有符合算式ij*ji=1300的最小数ij。
其中i、j是1~9之间的一位整数。
程序中有一行错误。
Fori=1To9
Forj=1To9
Ifij*ji=1300Then
Print10*i+j
ExitSub
Nextj
18.程序功能:
我国今年的国民生产总值为275600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?
DimpAsLong,p1AsLong
p1=275600
p=p1
p=p*(1+0.09)
n=n+1
Loopwhilep<
=2*p1
Printn
19.程序功能:
有一堆零件(零件个数不超过1000),如果分成4个零件一组余2个;
7个一组余3个;
9个一组余5个。
求这堆零件的个数有几种可能。
程序中有错误,改正错误,使程序能输出正确的结果。
Forx=1To1000
IfxMod4=2OrxMod7=3OrxMod9=5Then都改成and
Printi
20.程序功能:
建立一个过程来计算11的阶乘,程序中有错误,改正错误,使程序能输出正确的结果。
Calln(11)
PublicSubn(aAsInteger)
DimiAsInteger
DimfAsLong
f=01
Fori=1Toa
f=f*i
NextiPrintf
21.程序功能:
按以下递归公式求函数fun(10)的值。
其中函数过程中有一处错误,改正错误,使它能输出正确结果。
n=1时fun(n)=10
n>
1时fun(n)=fun(n-1)+2
Printfun(10)
PrivateFunctionfun(nAsInteger)AsInteger
Ifn=1Then
c=10
Else
c=fun(n-1)+2
F=cfun=c
22.程序功能:
计算1000以内,既能被6整除又能被8整除的数的个数。
程序中有一行错误。
n=0DoWhilex<
=1000
IfxMod6=0OrxMod8=0Thenand
23.程序功能:
计算在[100,500]内有多少个这样的数:
各位数字之积大于各位数字之和(如:
133,1*3*3>
1+3+3)。
m=0
Fori=100To500a=i\100
b=i\10Mod10
c=iMod10
Ifa*b*c>
a+b+cThen
m=m+im=m+1
Nexti
Printm
24.程序功能:
某班级有学生若干名(不超过50名),依次编号为1,2,3,……,除去编号1与2的两名学生外,所有学生编号之和是100的整数倍,问共有学生多少人。
Dimk%,i%'
i为学生人数,K为学生编号之和
k=0
Fori=3To50
k=k+1k=k+i
IfkMod100=0Then
ExitDofor
25.程序功能:
某试卷由26个问题组成,答对一题得8分,答错一题扣5分。
今有一考生虽然回答了全部26个问题,但所得总分为零,问他答错多少题。
Dimi%,j%'
i代表正确数,j代表错误数
Fori=1To26
j=26-i
If8*i<
5*jThenPrintj8*i-5*j=0
26.程序功能:
求[10,1000]之间满足除以7余5、除以5余3、除以3余1的所有整数的个数。
Forx=10To1000
IfxMod7=5OrxMod5=3OrxMod3=1Thenand
27.程序功能:
求当N=20时,1/(1*2)+1/(2*3)+1/(3*4)+….+1/(N*(N+1))的值。
要求:
DimsAsIntegerdouble
n=1
DoWhilen<
=20
s=s+1/(n*(n+1))
PrintFormat(s,"
0.##"
)
28.程序功能:
求平方小于2000的最大奇数。
DimiAsLong
Fori=1999To1Step-2
Ifi*i<
2000Then
Nexti
29.程序功能:
已知一个数列的前2项为1、1,以后每项为前2项的和,求此数列的第36项。
程序中有两处错误。
Dima(36)AsLong
a
(1)=1:
a
(2)=1
Fori=1To363to36
a(i)=a(I-1)+a(I-2)
Printa(i)(36)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 改错