打印三角形图形
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
If <表达式> Then <语句块1> Else <语句块2> End If
3. If…Then…ElseIf语句(多分支结构) If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If
For 语句：
For 循环控制变量＝初值 to/downto 终值 [Step 步长 循环控制变量＝ 步长] 语句块 Next 循环控制变量 for n=1 to 24 step 1 sum=sum+n next n
写出程序的输出结果： 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 输出为：_______
打印三角形图形
Private Sub Form_Click() i 代表行,取１~７ For i = 1 To 7 j 代表每行*的个数，取2*i-1 For j = 1 To 2 * i - 1 Print "*"; 打印第i行 结果 Next j print 控制换行 Next i End Sub
程序的三种基本结构
第三节
三种基本结构的表示
（1）顺序结构 ） （2）选择结构 ）
语句1 语句2
Y 语句1
条件
N 语句2
（3）循环结构 ）
a) 当型循环 b) 直到型循环 N 条件 语句组 Y 语句组 Y 条件 N (b) (a)
分支结构语句
1. If…Then语句 If <表达式> Then 语句块 End If 2. If…Then…Else语句

Do while 语句
形式1：（当型循环） 形式 ：（当型循环） ：（当型循环 Do { While|Until} <条件 条件> 条件 语句块 Loop 形式2： 直到型循环 直到型循环） 形式 ：(直到型循环） Do 语句块 Loop { While|Until} <条件 条件> 条件
练习：
九九乘法表
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