实验D 循环结构.docVIP

实验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、10）中的一个数。 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分，……，富翁每天给陌生人的钱是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？ 9、用计算机安排考试日程。期末某专业在周一～周六的6天时间内要考x,y,x三门课程，考试顺序为先考x，然后考y，最后考z，规定一天只能考一门，且z课程只能安排在周五或周六考。编写程序安排考试日程（即x,y,z三门课程各在那一天考），要求列出满足条件的所有方案。 习题四 结构化程序设计的三种基本结构是什么？ 顺序结构、选择结构、循环结构 指出下列赋值语句中的错误（包括运行时的错误）： （1）10x=Sin(x)+y 不能以数值开头 （2）c=3+Sqr(-3) Sqr(N)平方根，数值不能为负 （3）c+x+y=c*y 等式左边不可以是表达式 （4）x=Sin(x)/(20 Mod 2) Mod取模余数不能为零 3、Msgbox函数与InputBox函数之间有什么区别？各自获得什么值？ InputBox函数的作用是打开一个对话框，等待用户输入内容，其值的类型为字符串；Msgbox函数的作用是打开一个消息框，等待用户选择一个按钮，返回的是整数值。 4、要使单精度变量x,y,z分别保留1位、2位、3位小数，并在窗体显示，应使用什么函数？如何编写对应的Print方法？ 答： Dim x!, y!, z! x = 0.123 y = 0.1234 z = 0.12345 Print Round(x * 10) / 10 Print Round(y * 100) / 100 Print Round(z * 1000) / 1000 5、语句 If(表达式) Then··· 中的表达式可以是算术、字符、关系、逻辑表达式中的哪些？ 算术、关系、逻辑 6、指出下列语句中的错误： （1）If x≥y Then Print x 大于等于应写为：= （2）If 10 x 20 then x = x +20 “10x20”应写为：”10x And x20” 7、按照下列条件，写出相应的条件语句： （1）当字符型变量中第三个字符是”C”时，利用Msgbox显示”Yes”，否则显示”No”。 Dim c As String c = InputBox(c=) If Mid(c, 3, 1) = C Then MsgBox Yes Else MsgBox No End If （2）利用If语句、Select Case语句两种方法计算分段函数： x+3x+2, x20 y= -2, 10≤x≤20 +|x|, 0x10 # 使用If语句 Dim x As Single, y As Single x = Val(InputBox(x=)) If x 20 Then y = x ^ 2 + 3 * x + 2 ElseIf x = 10 Then y = Sqr(3 * x) - 2 ElseIf x 0 Then y = 1 / x + Abs(x) End If Print y=; y # 使用Select Case语句 Dim x As Single, y As Single x = Val(InputBox(x=)) S