循环语句的功能介绍和应用.docVIP

强烈要求同学们注意：循环语句的功能介绍和应用的内容是程序设计课程的难点和重点，必须全力以赴注意听讲！下面我们分两节课来讲解。 第38讲 循环语句的功能介绍和应用（上）P21\P95 先复习一下上节课内容： 1、VB的立即方式，几个常用函数的使用介绍（演示）：打开矩形求解.FRM的立即窗口 ? Str(10)+Str(5) ? Val(“10”)+ Val(“5”) ? Fix(6.1), Fix(6.7), Fix(-6.1),Fix(-6.7) ’Fix(x)的值为截去x的小数部分后的整数部分，而且不四舍五入。 S=888 ？ S=; S ‘两个以上表达式可以用“，”或“；”分隔，用“；”结果是前后紧接在一起； ? S=+ Str(S) ‘和上面结果一样 2、补讲2个函数： (1)、输入函数：InputBox(x) 　　　运行时，会弹出一个输入框，函数值是你键盘输入的值，例如在矩形求解.FRM中， 语句L = Text1.Text可用：L=InputBox(“L=”, “请输入长度”,30)来代替，演示； 　　　　 格式：InputBox(“提示字符串”, “输入框名称”,默认值) 从上面演示中，凡是单引号’ 后面的内容都不运行，单引号’ 后面的内容仅是注释内容； （5）输出函数：MsgBox(表达式) 弹出一个输出信息框，把表达式的值显示出来，例如在程矩形求解.FRM中， 语句Text3.Text = d可用：MsgBox(d)代替，演示； MsgBox(表达式)中的表达式可以是字符串（文本），例如： 语句Text4.Text = 有二条相同的边长: 高h=宽w= + Str(L / 4) + cm可用： MsgBox (有二条相同的边长: 高h=宽w= + Str(L / 4) + cm)来代替； 演示：当L=100，S=625时，d=0，只有一个根; 一、循环结构 复习例2：求S=1+1/2+1/3+…+1/n 示意性程序如下：（S=S+1/k， k=1,2,3,…,n） 1 输入n值=100 2 S=0 : k=1 3 Y 3 如果 kn 转到7 N 4 S=S+1/k 5 k=k+1 6 转到3 6 转到3 7 S 7 输出: S 8 结束 二、循环语句功能 演示：执行例2：求S=1+1/2+1/3+…+1/n的例2累加求和程序.FRM; 求S=1+1/2+1/3+…+1/n的例2程序的 VB程序代码如下： Private Sub Command1_Click() 插入下面程序段，可限制n只能输入自然数： S = 0 n = Text1.Text=100 For k = 1 To n Step 1 S = S + 1 / k Next k=100+1=101 Text2.Text = S End Sub 注：逻辑运算符or 是：或者意思， 条件表达式1 or 条件逻辑表达式2=逻辑值 (演示：用立即方式验证Fix(x)和or) P71-73 For语句的一般格式： P79 For 循环变量=初值 To 终值 Step 步长 程序段 Next循环变量 执行功能流程图如下： N Y 循环程序功能示例：(执行两种循环语句示例.FRM) (1) S=0 For K = 1 To 10 Step 1 (注意：Step 1 可省略) Print K ‘1,2,3,4,…,10 S = S+K ‘0+1+2+3+…+ 10 Next K 执行：K( K+1，K终值10? Print S Print K=终值+步长 下面讨论For K = 1 To 10 Step 1的其它改变情况： (2) For K = 1 To 10 Step 2 (3) For K = 10 To 1 Step -1 K(10+(-1), 9+(-1), 8+(-1),...,直到K=0终值1结束循环。 这里说明：循环变量超过终值？的“超过”意思