程序基本结构

1、.1 2.3程序基本结构程序基本结构 .2 执行语句a 执行语句b 开始 结束 语句语句2语句语句1 条件条件 N Y 开始 结束 执行a 执行b条件 开始 结束 N Y 顺序结构顺序结构 选择结构选择结构 循环结构循环结构 .3 执行语句a 执行语句b 开始 结束 P33例 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(InputBox(输入a) b = Val(InputBox(输入b) Print 交换前:a=; a, b=; b c = a a = b b = c MsgBo

2、x “交换后a=” s End Sub 开始 S=0 I=100 S=s+i 输出s 结束 I=I+1 N Y .13 小猴在某天摘桃子若干个，当天吃掉一半多一个； 第2天吃了剩下的桃子的一半多一个；以后每天都 吃尚存桃子的一半多一个，到第7天要吃时只剩下 一个，问小猴共摘了多少个桃子？ 分析：这是一个“递推”问题，先从最后一天推出 倒数第2天的桃子树，再从倒数第2天的桃子推出倒 数第3天的桃子数设第n天的桃子为X n,那么它是前 一天的桃子数为X n-1的一半减1，即X n-1=( X n+1)*2 .14 For 循环变量=初始值 To 终止值（Step步长） 循环体 Next 循环变量

3、Do while 条件 循环体 Loop Do while loop循环循环 和和 DoLoop whlie循环循环 Do 循环体 Loop while 条件 先判断，后执行 先执行，后判断 .15 Private Sub Form_Click() Dim i As Integer For i = 1 To 10 Print i Next i End Sub Private Sub Form_Click() Dim i As Integer i = 1 Do While i = 10 Print i i = i + 1 Loop End Sub .16 Private Sub Form_Cli

4、ck() Dim i As Integer dim s As Integer i = 1 s = 0 Do While i = 100 s = s + i i = i + 1 Loop Print 和是：; s End Sub Private Sub Form_Click() Dim i As Integer dim s As Integer s = 0 For i = 1 To 100 s = s + i Next i Print 和是; s End Sub .17 注：ForNext语句和Do whileLoop语句在许多情况 下是可以通用的，但是ForNext语句更适合用于循环 次数容易

5、确定的情况，而Do whileLoop语句的使用则 更灵活些。 例： 假设我国现有人口12亿，若年增长率为1.5%， 试计算多少年后我国人口将增加到20亿。 r为年增长率，i为年数，则i年后人口数为p=p(1+r)i .18 Private Sub Form_Click() Dim p As Single, r As Single, i As Integer p = 12 r = 0.015 i = 0 Do While p 20 p = p * (1 + r) i = i + 1 Loop Print I ; “年后，我国人口将达到” ; p ; 亿 End Sub .19 For 循环变量

6、=初始值 To 终止值（Step步长） 循环体 Next 循环变量 1、编程计算S=1+2+3+100的值 2、编程计算1到100之间所有偶数的和，要求Step值为2 3、在程序运行过程中任意输入一个自然数n,求1到n 之间所有偶数的和 .20 请用for-next循环结构编写如下图所示的图形 结论：如果想让下一个print 语句显 示的内容与上一个print语句的内容 连在一起，则在上一个Print后面加 一个“分号”即可。我们称之为续 行符。 .21 如何用for-next循环结构实现如图所示的图形 双重循环双重循环 循环体内部还有循环语 句的循环叫做多重循环多重循环， 又叫多层循环或嵌套

7、循 环。如果内部只有一层 循环，叫双重循环双重循环。 .22 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 Print *; Next j Print Next i End Sub 内循环，j 控制 每行的*个数 外循环，i控 制输出的行数 .23 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 2*i-1 Print *; Next j Print Next i End Sub .24 1、双重循环的执行过程是外循环执行一次，内循环执行一遍，在内循环结 束后，再进行下一次外循环，如此反复，直到外循环结束。 2、对于双重循环，各层循环的循环控制变量不能同名。 3、外循环必须完全包含内循环，不能交叉。 .25 Private Sub For