vb程序设计 习题及答案第5章 循环结构程序设计

《vb程序设计 习题及答案第5章 循环结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第5章循环结构程序设计 5．1试编程序，打印出自然数1到20的立方数。【参考答案】程序代码设计PrivateSubForm_Click()Form1.Print"x","x^2"Forx=1To20Form1.Printx,x^2NextxEndSub PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"打印自然数1到20的立方数"Form1.Print"单击窗体开始"EndSub图5-1程序运行结果程序运行结果如图5-1所示： 5．2试编程序，打印出1到500之间所有偶数的和。【参考答案】程序代码设计Priv

2、ateSubCommand1_Click()Sum=0Fork=1To500IfkMod2=0ThenSum=Sum+kNextkForm1.Print"1到500的偶数和为：";SumEndSub PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.PrintForm1.Print"打印1到500之间所有偶数的和"Form1.Print图5-2程序运行结果EndSub程序运行结果如图5-2所示： 5．3试编写打印下面图案的源程序。***************【参考答案】程序代码设计PrivateSubCommand1_

3、Click()Fori=1To5Form1.PrintTab(5+i);Forj=iTo5Form1.Print"*";NextjForm1.PrintNextiEndSub程序运行结果如图5-3所示： 图5-3程序运行结果 5．4试编写打印下面图案的源程序。************************* 【参考答案】程序代码设计PrivateSubCommand1_Click()Fori=1To4Form1.PrintTab(10-i);Forj=1To2*i-1Form1.Print"*";NextjForm1.PrintNextiFork=3To1Step

4、-1Form1.PrintTab(10-k);Forj=1To2*k-1Form1.Print"*";NextjForm1.Print图5-4程序运行结果NextkEndSub程序运行结果如图5-4所示： 5．5编写程序，计算下面表达式的值（1）1!+3!+5!+……+(2N+1)!【参考答案】程序代码设计PrivateSubCommand1_Click()n=Val(InputBox("请输入N值"))Sum=1term=1Fork=3To2*n+1Step2term=term*(k-1)*kSum=Sum+termNextkForm1.Print"1!+3!+5

5、!+……+(2N+1)!=";Sum图5-5（1）程序运行结果EndSub PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1!+3!+5!+……+(2N+1)!"EndSub运行结果:若n输入的值为5,则程序运行结果如图5-5（1）所示。 （2）1+X/2!+X2/4!+X3/6!+……+XN/(2N)!【参考答案】程序代码设计PrivateSubCommand1_Click()x=Val(InputBox("请输入x值"))n=Val(InputBox("请输入N值"))Sum=1t1=1t2=1F

6、ork=2To2*nStep2t1=t1*xt2=t2*(k-1)*kSum=Sum+t1/t2NextkForm1.Print"1+X/2!+X^2/4!+……+X^N/(2N)!=";SumEndSub PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1+X/2!+X^2/4!+……+X^N/(2N)!"EndSub运行结果：图5-5（2）程序运行结果若x输入值为：1.5,n输入值为:5,则程序运行结果如图5-5（2）所示。 （3）1+1×3+1×3×5+……+1×3×……(2N+1)【参考答案】程

7、序代码设计PrivateSubCommand1_Click()n=Val(InputBox("请输入N值"))Sum=1term=1Fork=3To2*n+1Step2term=term*kSum=Sum+termNextkForm1.Print"1+1×3+1×3×5+……+1×3×……(2N+1)=";SumEndSub PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1+1×3+1×3×5+……+1×3×……(2N+1)"EndSub运行结果:若n输入值为5,则程序运行结果如图5-5（3）所示