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

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

ID:48691809

大小:187.00 KB

页数:14页

时间:2020-02-27

VB程序设计习题及答案第5章循环结构程序设计.doc_第1页
VB程序设计习题及答案第5章循环结构程序设计.doc_第2页
VB程序设计习题及答案第5章循环结构程序设计.doc_第3页
VB程序设计习题及答案第5章循环结构程序设计.doc_第4页
VB程序设计习题及答案第5章循环结构程序设计.doc_第5页
资源描述:

《VB程序设计习题及答案第5章循环结构程序设计.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

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试编程序

2、,打印出1到500之间所有偶数的和。【参考答案】程序代码设计PrivateSubCommand1_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-

3、2所示: 5.3试编写打印下面图案的源程序。***************【参考答案】程序代码设计PrivateSubCommand1_Click()Fori=1To5Form1.PrintTab(5+i);Forj=iTo5Form1.Print"*";NextjForm1.PrintNextiEndSub程序运行结果如图5-3所示: 图5-3程序运行结果 5.4试编写打印下面图案的源程序。************************* 【参考答案】程序代码设计PrivateSubComman

4、d1_Click()Fori=1To4Form1.PrintTab(10-i);Forj=1To2*i-1Form1.Print"*";NextjForm1.PrintNextiFork=3To1Step-1Form1.PrintTab(10-k);Forj=1To2*k-1Form1.Print"*";NextjForm1.Print图5-4程序运行结果NextkEndSub程序运行结果如图5-4所示: 5.5编写程序,计算下面表达式的值(1)1!+3!+5!+……+(2N+1)!【参考答案】程序

5、代码设计PrivateSubCommand1_Click()n=Val(InputBox("请输入N值"))Sum=1term=1Fork=3To2*n+1Step2term=term*(k-1)*kSum=Sum+termNextkForm1.Print"1!+3!+5!+……+(2N+1)!=";Sum图5-5(1)程序运行结果EndSub PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1!+3!+5!+……+(2N+1)!"En

6、dSub运行结果:若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=1Fork=2To2*nStep2t1=t1*xt2=t2*(k-1)*kSum=Sum+t1/t2NextkForm1.Print"1+X/2!+X^2/4!+……+

7、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)【参考答案】程序代码设计PrivateSubCommand1_Click()n=Val(InputBox("请

8、输入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)所示

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。