VB上机指导习题答案

《VB上机指导习题答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

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"构不成三角形"EndIf分别统计分数

2、在［0,10）、［10,20）、［20,30）、2、随机产生0—100之间的60名学生的数学分数,［30,40）、［40,50）、［50,60）、［60,70）、［70,80）＞［80,90）、［90,100】、之间的学生人数。e%tf%,g%,h%,i%fj%'产生60名学生的分数'产生0—100的分数Dima%,b%,c%,d%,DimxAsSingleForm=1To60x=Rnd♦101Printx;Ifx>=90Thena=a+1Elselfx>=80ThenElselfx>=70ThenElselfx>=60Thend=

3、d+1Elselfx>=50Thene=e+1Elselfx>=40Thenf=f+1Elselfx>=30Theng=g+1Elselfx>=20Thenh=h+1Elselfx>=10Theni=i+1Elsej=j+1NextmPrinta9bycfd,eff,g,hfifj3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。DimxAsDoubIe'人数一定要定义成双精度的DimnAsIntegerx=1300000000n=0DoWhilex<=2600000000#x=x*1.008n=n+1

4、LoopPrintn;"年以后，我国人口将超过26亿"4、编写一个程序求一元二次方程的根，要求对输入系数的合法性进行验证，并规范输出结果(保留两位小数)。(上机指导P44)Dima!,b!,c!,d!,x1!,x2!a=Textl.Textb=Text2.Textc=Text3.Textd=b*b-4*a*cIfa=0ThenMsgBox"a不能为0"'判断是否能构成一元二次方程Elselfd>=0Thenx1=(-b+Sqr(d))/(2*a)'求方程的两个根x2=(b+Sqr(d))/(2*a)x1二Format(x1,〃・##

5、〃)’对根规范化输出x2=Format(x2,".##")EndIfPrintx1,x25、某次歌手大奖赛，共有10名选手，有10名评委打分。要求评委给10位选手打分，去掉一个最高分，去掉一个最低分，求出该选手的平均分。DimiAsIntegerDimjAsIntegerDimmaxAsSingle,minAsSingle,sumAsSingle,averAsSingleFori=1To10'十个选手的成绩max=0min=100sum=0Forj=1To10'十个评委的分数x=Rnd♦101，产生0—100的分数Ifx>maxTh

6、enmax=xIfx

7、则i不是素数ElsePrintEndIfNexti7、求出100以内的所有勾股数（勾股数为a2+b2=c2,c为自然数，且a〈＞b）DimaAsInteger,bAsInteger,cAsIntegerFora=1To100Forb=1To100Forc=1To100lfc*c=a*a+b*bAnda<>bThenPrinta;b;c;PrintEndIfNextcNextbNexta8、把输入的字符串逆序输出。DimstrAsString,strReAsStringDimiAsIntegerstr=Textl.Text，原字符串F

8、ori=1ToLen(str)strRe=Mid(str,i,1)&strRe，字符串逆序NextiText2.Text=strRe'逆序后的字符串9.随机产生0—100之间的60名学生的数学分数，分别统计分数在［0,10）、［10,