程序基本结构

1、.2.3程序基本结构程序基本结构.执行语句a执行语句b开始结束语句语句2语句语句1条件条件NY开始结束执行a执行b条件开始结束NY顺序结构顺序结构选择结构选择结构循环结构循环结构.执行语句a执行语句b开始结束 P33例Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(InputBox(输入a)b = Val(InputBox(输入b)Print 交换前:a=; a, b=; bc = aa = bb = cMsgBox “交换后a=” & a & “b=” & b,

2、vbOKOnly, “交换结果”End Sub. 使用对话框使用对话框 一、一、输入框（输入框（InputBoxInputBox） a=Vala=Val（inputbox(“inputbox(“输入输入a”)a”) 二、二、信息对话框信息对话框(MsgBox) msgbox msgbox 交换后交换后a= & a & b= & b ,vbOKOnly ,a= & a & b= & b ,vbOKOnly ,交换结果交换结果 .条件语句序列语句序列1TrueFalse单分支选择结构例Private Sub Form_Click()Dim a As

3、Doublea = Val(InputBox(请输入一个数)If a = 7.91 Then lblshow.Caption = 飞船成功飞行Else lblshow.Caption = 飞船不能升空End IfEnd Sub.多分支选择结构多分支选择结构.0-59不及格60-69及格70-79中等80-89良好90-100优秀.Select case 表达式 case 表达式列表1 语句组1 case 表达式列表2 语句组2. case else 语句组nEnd Select.Private Sub Form_Click()Dim x As Singlex = Val(InputBox(请输

4、入成绩)If x = 90 Then Print 优秀ElseIf x = 80 Then Print 良好ElseIf x = 70 Then Print 中等ElseIf x = 60 Then Print 及格Else Print 不及格End IfEnd SubPrivate Sub Form_Click()Dim x As Singlex = Val(InputBox(请输入成绩)Select Case x Case Is = 90 Print 优秀 Case Is = 80 Print 良好 Case Is = 70 Print 中等 Case Is = 60 Print 及格 C

5、ase Else Print 不及格End SelectEnd Sub.For 循环变量=初始值 To 终止值（Step步长） 循环体Next 循环变量Private Sub Form_Click()Dim i As IntegerFor i = 1 To 10 Print iNext i End SubFor Next循环循环.Private Sub Form_Click()Dim i As Integer, s As Integer s = 0For i = 1 To 100 s = s + iNext iPrint 1-100之间所有数的和是; sEnd Sub开始S=0I=100S=s

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

7、循环体Loop while 条件先判断，后执行先执行，后判断.Private Sub Form_Click()Dim i As IntegerFor i = 1 To 10 Print iNext i End SubPrivate Sub Form_Click()Dim i As Integeri = 1Do While i = 10 Print i i = i + 1LoopEnd Sub.Private Sub Form_Click()Dim i As Integerdim s As Integeri = 1s = 0Do While i = 100s = s + ii = i + 1Lo

8、opPrint 和是：; sEnd SubPrivate Sub Form_Click()Dim i As Integerdim s As Integer s = 0For i = 1 To 100 s = s + iNext iPrint 和是; sEnd Sub.注：ForNext语句和Do whileLoop语句在许多情况下是可以通用的，但是ForNext语句更适合用于循环次数容易确定的情况，而Do whileLoop语句的使用则更灵活些。例： 假设我国现有人口12亿，若年增长率为1.5%，试计算多少年后我国人口将增加到20亿。r为年增长率，i为年数，则i年后人口数为p=p(1+r)i.

9、Private Sub Form_Click()Dim p As Single, r As Single, i As Integerp = 12r = 0.015i = 0Do While p 20 p = p * (1 + r) i = i + 1LoopPrint I ; “年后，我国人口将达到” ; p ; 亿End Sub.For 循环变量=初始值 To 终止值（Step步长） 循环体Next 循环变量1、编程计算S=1+2+3+100的值2、编程计算1到100之间所有偶数的和，要求Step值为23、在程序运行过程中任意输入一个自然数n,求1到n之间所有偶数的和.请用for-next循

10、环结构编写如下图所示的图形结论：如果想让下一个print 语句显示的内容与上一个print语句的内容连在一起，则在上一个Print后面加一个“分号”即可。我们称之为续行符。.如何用for-next循环结构实现如图所示的图形双重循环双重循环循环体内部还有循环语句的循环叫做多重循环多重循环，又叫多层循环或嵌套循环。如果内部只有一层循环，叫双重循环双重循环。.Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 5 Print *; Next jPrintNext iEnd Sub内循环，j 控制每行的*个数外循环，i控制输出的行数.Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 2*i-1 Print *; Next jPrintNext iEnd Sub.1、双重循环的执行过程是外循环执行一次，内循环执行一遍，在内循环结束后，再进行下一次外循环，如此反复，直到外循环结束。2、对于双重循环，各层循环的循环控制变量不能同名。3、外循环必须完全