资源描述：
《程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第8章实验答案.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、实验8-1有一个阶梯，如果每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；每步跨7阶，正好到达阶梯顶。问阶梯至少有多少阶？（1）PrivateSubForm_Click()DimmAsIntegerDoIfmMod2=1AndmMod3=2AndmMod4=3AndmMod5=4AndmMod6=5AndmMod7=0ThenPrintmExitDoEndIfm=m+1LoopEndSub（2）PrivateSubForm_Click()DimmAsInteger,nAsIntegerForn=7
2、To32767Step7'n整数，循环的最大值可以采用32767IfnMod2=1AndnMod3=2AndnMod4=3AndnMod5=4AndnMod6=5ThenPrintnExitForEndIfNextnEndSub实验8-2利用循环结构显示如图8-4所示的界面。图8-4程序运行界面图（1）PrivateSubForm_Click()Fori=1To9PrintTab(10-i);String(2*i-1,Trim(Str(i)))NextiEndSub（2）PrivateSubForm_Click()Fori=1To9PrintT
3、ab(10-i);Form=1To2*i-1PrintTrim(Str(i));NextmPrintNextiEndSubPrivateSubForm_Click()Fori=9To1Step-1PrintTab(10-i);String(2*i-1,Chr(64+10-i))NextiEndSubPrivateSubForm_Click()Fori=1To9PrintTab(10-i);String(2*i-1,Trim(Str(i)))NextiFori=8To1Step-1PrintTab(10-i);String(2*i-1,Trim(
4、i))NextiEndSub实验8-3求sn=a+aa+aaa+aaaa+…+aa…aaa（n个a），其中a是一个由随机数产生的1~9（包括1、9）中的一个正整数，n是一个由随机数产生的5～10（包括5、10）中的一个数。PrivateSubForm_Click()Dimsn!,w!,i%,a%,n%Randomizea=Int(Rnd*9+1)n=Int(Rnd*6+5)sn=0:w=0Print"a=";a,"n=";nPrint"sn=";Fori=1Tonw=w*10+asn=sn+wIfi=nThenPrintw;ElsePrintw
5、;"+";NextiPrint"=";snEndSub实验8-4在窗体上显示出所有的水仙花数。水仙花数是指一个3位数，其中各位数字立方和等于该数字本身。例如，153=13+53+33，所以153就是水仙花数。（1）PrivateSubForm_Click()DimmAsInteger,a%,b%,c%,n%n=0Form=100To999Step1a=m100b=(m-a*100)10'十位数上的数计算有多种表示方法，请同学思考c=mMod10Ifa^3+b^3+c^3=mThenPrintm;n=n+1IfnMod5=0ThenPrint
6、EndIfNextmEndSub（2）PrivateSubForm_Click()Dima%,b%,c%,m%Fora=1To9Forb=0To9Forc=0To9m=a*100+b*10+cIfa^3+b^3+c^3=mThenPrintm;NextcNextbNextaEndSub（3）PrivateSubForm_Click()DimmAsInteger,a%,b%,c%,n%DimstrAsStringn=0Form=100To999Step1str=CStr(m)a=Val(Mid(str,1,1))b=Val(Mid(str,2,1
7、))c=Val(Mid(str,3,1))Ifa^3+b^3+c^3=mThenPrintm;n=n+1IfnMod5=0ThenPrintEndIfNextmEndSub（4）思考题PrivateSubForm_Click()Dimi&,n%,s&,m%Fori=1To99999n=Len(CStr(i))s=0Forj=1Tons=s+Mid(CStr(i),j,1)^nNextjIfs=iThenPrinti;m=m+1IfmMod5=0ThenPrintEndIfNextiEndSub实验8-5使用下面的级数公式求π的值，当计算到某一项
8、式的绝对值小于0.0001时，认为满足精度，停止计算。PrivateSubCommand1_Click()DimaAsDouble,mAsDouble
