vb程序的三种基本结构3.ppt

程序的三种基本结构 第三节 分支结构语句 3. If…Then…ElseIf语句(多分支结构) If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If For 语句： Do while 语句 练习： 打印三角形图形 Private Sub Form_Click() For i = 1 To 7 For j = 1 To 2 * i - 1 Print *; Next j print 　Next i End Sub 打印三角形图形 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 打印菱形 Private Sub Command1_Click() For i = 1 To 5 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print * ; Next j Next i For i = 4 To 1 Step -1 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print * ; Next j Next i End Sub 九九乘法表 Private Sub Command1_Click() Cls For i = 1 To 9 　For j = 1 To i 　　Print j; *; i; =; i * j; ; 　 Next j Print Next i End Sub * * 三种基本结构的表示 （1）顺序结构 条件 语句1 语句2 Y N 语句1 语句2 （2）选择结构 （3）循环结构 a) 当型循环 b) 直到型循环 条件 语句组 Y N ( b ) 条件 ( a ) Y N 语句组 2. If…Then…Else语句 If 表达式 Then 语句块1 Else 语句块2 End If If…Then语句 If 表达式 Then 语句块 End If For 循环控制变量＝初值 to/downto 终值 [Step 步长] 语句块 Next 循环控制变量 for n=1 to 24 step 1 sum=sum+n next n 形式1：（当型循环） Do { While|Until} 条件 语句块 Loop 形式2：(直到型循环） Do 语句块 Loop { While|Until} 条件 写出程序的输出结果： Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Integer n = 10 s = 0 For i = 1 To n Step 2 s = s + i Next i Print s End Sub 输出为：_______ 25 打印第i行 i 代表行,取１~７ j 代表每行*的个数，取2*i-1 控制换行 结果 循环嵌套 控制打印位置，并换行 此处有空格 * *