18个VB经典例题.doc

《18个VB经典例题.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。DimxAsInteger,yAsInteger,zAsIntegerDimcAsSingle,sAsSinglex=Int(Rnd*201+100)y=Int(Rnd*201+100)z=Int(Rnd*201+100)Ifx+y>zAndx+z>yAndy+z>xThenc=(x+y+z)/2s=Sqr(c*(c-x)*(c-y)*(c-z))Print"三角形面积是："&sElsePrint"构不成三角形"EndIf2、随机产生0－100之间的60名学生的数学分数，分别统计分数在、、

2、、、、、、、、、之间的学生人数。Dima%,b%,c%,d%,e%,f%,g%,h%,i%,j%DimxAsSingleForm=1To60'产生60名学生的分数x=Rnd*101'产生0－100的分数Printx;Ifx>=90Thena=a+1ElseIfx>=80Thenb=b+1ElseIfx>=70Thenc=c+1ElseIfx>=60Thend=d+1ElseIfx>=50Thene=e+1ElseIfx>=40Thenf=f+1ElseIfx>=30Theng=g+1ElseIfx>=20Thenh=h+1ElseIfx>=10Theni=i+1Elsej=j+1..End

3、IfNextmPrinta,b,c,d,e,f,g,h,i,j3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。DimxAsDouble'人数一定要定义成双精度的DimnAsIntegerx=1300000000n=0DoWhilex<=2600000000#x=x*1.008n=n+1LoopPrintn;"年以后，我国人口将超过26亿"4、编写一个程序求一元二次方程的根，要求对输入系数的合法性进行验证，并规范输出结果（保留两位小数）。（上机指导P44）Dima!,b!,c!,d!,x1!,x2!a=Text1.Textb=Text2.Textc=Text3

4、.Textd=b*b-4*a*cIfa=0ThenMsgBox"a不能为0"'判断是否能构成一元二次方程ElseIfd>=0Thenx1=(-b+Sqr(d))/(2*a)'求方程的两个根x2=(b+Sqr(d))/(2*a)x1=Format(x1,".##")'对根规范化输出x2=Format(x2,".##")EndIfPrintx1,x25、某次歌手大奖赛，共有10名选手，有10名评委打分。要求评委给10位选手打分，去掉一个最高分，去掉一个最低分，求出该选手的平均分。DimiAsIntegerDimjAsIntegerDimmaxAsSingle,minAsSingle,sumAs

5、Single,averAsSingleFori=1To10'十个选手的成绩max=0min=100sum=0Forj=1To10'十个评委的分数x=Rnd*101'产生0－100的分数Ifx>maxThenmax=xIfx

6、EndIfNextjIfprimeThen'如果prime=True则i是素数Printi&"是素数"ElsePrinti&"不是素数"'如果prime=False则i不是素数EndIfNexti7、求出100以内的所有勾股数（勾股数为a2+b2=c2,c为自然数，且a<>b）DimaAsInteger,bAsInteger,cAsIntegerFora=1To100Forb=1To100Forc=1To100Ifc*c=a*a+b*bAnda<>bThenPrinta;b;c;PrintEndIfNextcNextbNexta8、把输入的字符串逆序输出。DimstrAsString,st

7、rReAsStringDimiAsIntegerstr=Text1.Text'原字符串Fori=1ToLen(str)strRe=Mid(str,i,1)&strRe'字符串逆序NextiText2.Text=strRe'逆序后的字符串9、随机产生0－100之间的60名学生的数学分数，分别统计分数在、、、、、、、、、、之间的学生人数。（用数组实现）DimiAsInteger,s(1To10)AsInteger,mark(