程序基本结构(1).ppt

2.3　程序基本结构;;一、顺序结构;★ 使用对话框 ;二、选择结构;条件;多分支选择结构;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 i As Integer, s As Integer s = 0 For i = 1 To 100 s = s + i Next i Print 1-100之间所有数的和是; s End Sub;小猴在某天摘桃子若干个，当天吃掉一半多一个；第2天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘了多少个桃子？;For 循环变量=初始值 To 终止值（Step步长） 循环体 Next 循环变量;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 dim s As Integer i = 1 s = 0 Do While i = 100 s = s + i i = i + 1 Loop Print 和是：; s End Sub;注：For…Next语句和Do while…Loop语句在许多情况下是可以通用的，但是For…Next语句更适合用于循环次数容易确定的情况，而Do while…Loop语句的使用则更灵活些。;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;三、循环结构-双重循环;;提出问题，思考;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 ;例3:;补充知识点：;Private Sub Form_Click() For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print *; Next j Next i End Sub;思考：;此课件下载可自行编辑修改，供参考！ 感谢您的支持，我们努力做得更好！