程序的基本结构正式讲义.pptVIP

循环结构 For 循环控制变量 = 初值 to 终值 [step 步长值] (说明：当步长值为1时可省略step 1 即 For 循环控制变量 = 初值 to 终值) 循环语句组 Next 循环控制变量 意义说明：通过循环控制变量的初值到终值，以步长值为增进幅度（负数时为减少幅度），控制循环语句组重复执行的次数。当循环控制变量的增进值大于终值时结束循环（步长为负数时，减少值小于终值时结束循环） s=0 如：for i=1 to 10 step 2 s=s+i Next i Do While…Loop语句格式： Do While 条件 循环体 Loop 条件 满足 循环体 不满足 语句 语句 Do While…Loop语句格式： 如： i=1 Do while i=10 s=s+i i=i*2 loop 讨论交流 试比较什么情况下适合用For…Next语句，什么情况下适合用Do While…Loop语句？ “希望工程”：假设你从今年开始，第一个月为“希望工程”存入1元钱，第二个月存入2元钱，第三个月存入3元钱……以此类推，两年时间你将为“希望工程”存入多少钱？ 把刚才的For……Next程序段改写成Do While……Loop程序： Dim n As Integer, intSum As Integer intSum=0 n=1 Do While n=24 intSum=intSum+n n=n+1 Loop lblSum.Caption=“两年共存入：” intSum “元” 1. 完善程序。 编程计算1+4+7+10+ … +100 的值。 Dim s,i As Integer s=0 For i=____ To _____ 　s=s+i Next i Print s 2. 完善程序。 编程计算1+4+7+10+ … +100 的值。 Dim s,i As Integer s=0 i=1 Do While _____ 　s= s+i 　i=_____ Loop Print s 1 100 step 3 i=100 i+3 三、课堂巩固： 1、完善程序计算1+3+5+7+……+99的值，并写出结果。 private sub command1_click() Dim i , s As integer s=0 For i=1 to s=s+(2*i-1) print “s=“;s End Sub 50 Next S=2500 三、课堂巩固： 2、阅读程序回答问题： x=3:y=64 Do While xsqr(y) x=x+2 Loop 语句x=x+2执行的次数是： 3 结束 程序的三种结构 顺序结构 选择结构 循环结构 顺序结构的主要的三种语句形态 赋值语句 输入（函数） 输出（过程） 输入数据的两种方式 1. 利用文本框输入的方式 如：r=val(text1.text) 2. 利用弹出对话框的方式输入 如：R=Inputbox(“输入圆的半径”） 输出数据的两种主要方式 1. 利用改变对象属性的方法 如： Text1.text=str(x*3.1416*r) label1.caption=“春节快乐” 2. 利用消息对话框的方法 如：Msgbox(“Hello”) 格式1 (单分支结构) : IF 表达式 Then 语句块 End If 例：有两个数x 和y，比较它们的大小，若x小于y,则交换x和y 值，使得x大于y。 Private sub form_click( ) x = inputbox (“请输入x”) y = inputbox (“请输入y”) If x y Then t = x x = y y = t End if print “x”; x , ”y”;y End sub 格式2 (双分支结构) : IF 表达式 Then 语句块1 Else 语句块2 End If 例：输出x、y两个数中值较大的一个。 P