2.3程序基本结构.ppt

2.3　程序基本结构 * * 执行语句a 执行语句b 开始 结束 语句2 语句1 条件 N Y 开始 结束 执行a 执行b 条件 开始 结束 N Y 顺序结构 选择结构 循环结构 程序基本结构： 一、顺序结构 执行语句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 MsgBox “交换后a=” a “b=” b, vbOKOnly, “交换结果” End Sub ★ 使用对话框 一、输入框（InputBox） 　 a=Val（inputbox(“输入a”))　 二、信息对话框(MsgBox) msgbox 交换后a= a b= b ,vbOKOnly ,交换结果　 　　 二、选择结构 条件 语句序列1 True False 单分支选择结构 例 Private Sub Form_Click() Dim a As Double a = Val(InputBox(请输入一个数)) If a 0 Then MsgBox 你输入的是一个负数 End If Print a End Sub 条件 语句序列2 True False 语句序列1 双分支选择结构 例P35 Private Sub cmdok_Click() Dim v As Single v = Val(InputBox(输入速度(km/s))) If v = 7.91 Then lblshow.Caption = 飞船成功飞行 Else lblshow.Caption = 飞船不能升空 End If End Sub 多分支选择结构 0-59不及格 60-69及格 70-79中等 80-89良好 90-100优秀 Select case 表达式 case 表达式列表1 语句组1 case 表达式列表2 语句组2 ………….. case else 语句组n End Select Private Sub Form_Click() Dim x As Single x = Val(InputBox(请输入成绩)) If x = 90 Then Print 优秀 ElseIf x = 80 Then Print 良好 ElseIf x = 70 Then Print 中等 ElseIf x = 60 Then Print 及格 Else Print 不及格 End If End Sub Private Sub Form_Click() Dim x As Single x = Val(InputBox(请输入成绩)) Select Case x Case Is = 90 Print 优秀 Case Is = 80 Print 良好 Case Is = 70 Print 中等 Case Is = 60 Print 及格 Case Else Print 不及格 End Select End Sub 三、循环结构 For 循环变量=初始值 To 终止值（Step步长） 循环体 Next 循环变量 Private Sub Form_Click() Dim i As Integer For i = 1 To 10 Print i Next i End Sub For –Next循环 Private Sub Form_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 100 s = s + i Next i Print 1-100之间所有数的和是; s End Sub 开始 S=0 I=100 S=s+i 输出s 结束 I=I+1 N Y 小猴在某天摘桃子若干个，当天吃掉一半多一个；第2天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘了多少个桃子？ 分析：这是一个“递推”问题，先从最后一天推出倒数第2天的桃子树，再从倒数第2天的桃子推出倒数第3天的桃子数…设第n天的桃子为X n,那么它是前