实验D循环结构

实验D循环结构

ID:38697815

大小:224.00 KB

页数:8页

时间:2019-06-17

实验D循环结构_第1页
实验D循环结构_第2页
实验D循环结构_第3页
实验D循环结构_第4页
实验D循环结构_第5页
资源描述:

《实验D循环结构》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、实验D循环结构一、实验目的1、掌握For语句的使用。2、掌握Do语句的各种形式的使用。3、掌握如何控制循环条件,防止死循环或不循环。二、实验内容1、利用单循环结构显示如图D.1所示的界面。2、利用单循环实现如图D.2所示的界面。3、计算S=1++++++++…当第i项的值<10时结束。4、计算的近似值,的计算公式为:=2××××…×5、求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1~9(包括1、9)中的一个正整数,n是一个由随机数产生5~10(包括5、1

2、0)中的一个数。6、编一程序,显示出所有的水仙花数。所谓水仙花数,是指一个3位数,其各数字立方和等于该数字本身。例如,153是水仙花数,因为153=1+5+3。7、参阅教材4.20,用迭代法求x=。求立方根的迭代公式为:x=x+迭代到│x-x│<=10为止,x为方程的近似解。显示a=3、27的值,并通过求的表达式加以验证。8、一个富翁试图与陌生人做一笔换钱生意,换钱规则为:陌生人每天给富翁10万元,直到满一个月(30天);而富翁第一天给陌生人1分钱,第2天2分,第3天4分,……,富翁每天给陌生人的钱

3、是前一天的两倍,直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少?9、用计算机安排考试日程。期末某专业在周一~周六的6天时间内要考x,y,x三门课程,考试顺序为先考x,然后考y,最后考z,规定一天只能考一门,且z课程只能安排在周五或周六考。编写程序安排考试日程(即x,y,z三门课程各在那一天考),要求列出满足条件的所有方案。习题四1、结构化程序设计的三种基本结构是什么?顺序结构、选择结构、循环结构2、指出下列赋值语句中的错误(包括运行时的错误):(1)10x=Sin(x)+y不能以数值

4、开头(2)c=3+Sqr(-3)Sqr(N)平方根,数值不能为负(3)c+x+y=c*y等式左边不可以是表达式(4)x=Sin(x)/(20Mod2)Mod取模余数不能为零3、Msgbox函数与InputBox函数之间有什么区别?各自获得什么值?InputBox函数的作用是打开一个对话框,等待用户输入内容,其值的类型为字符串;Msgbox函数的作用是打开一个消息框,等待用户选择一个按钮,返回的是整数值。4、要使单精度变量x,y,z分别保留1位、2位、3位小数,并在窗体显示,应使用什么函数?如何编写对

5、应的Print方法?答:Dimx!,y!,z!x=0.123y=0.1234z=0.12345PrintRound(x*10)/10PrintRound(y*100)/100PrintRound(z*1000)/10005、语句If(表达式)Then···中的表达式可以是算术、字符、关系、逻辑表达式中的哪些?算术、关系、逻辑6、指出下列语句中的错误:(1)Ifx≥yThenPrintx大于等于应写为:>=(2)If10

6、7、按照下列条件,写出相应的条件语句:(1)当字符型变量中第三个字符是”C”时,利用Msgbox显示”Yes”,否则显示”No”。DimcAsStringc=InputBox("c=")IfMid(c,3,1)="C"ThenMsgBox"Yes"ElseMsgBox"No"EndIf(2)利用If语句、SelectCase语句两种方法计算分段函数:x+3x+2,x>20y=-2,10≤x≤20+

7、x

8、,0

9、x("x="))Ifx>20Theny=x^2+3*x+2ElseIfx>=10Theny=Sqr(3*x)-2ElseIfx>0Theny=1/x+Abs(x)EndIfPrint"y=";y#使用SelectCase语句DimxAsSingle,yAsSinglex=Val(InputBox("x="))SelectCasexCaseIs>20y=x^2+3*x+2CaseIs>=10y=Sqr(3*x)-2CaseIs>0y=1/x+Abs(x)EndSelectPrint"y=";y(3)利

10、用If语句和IIf函数两种方法求三个数x,y,z中的最大值并存入变量Max中。#使用If语句DimxAsSingle,yAsSingle,zAsSingle,MaxAsSinglex=Val(InputBox("x="))y=Val(InputBox("y="))z=Val(InputBox("z="))Max=xIfy>MaxThenMax=yIfz>MaxThenMax=zPrint"Max=";Max#使用IIF函数x=Val(InputBox("x="))y=

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

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

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