定义变量放在循环立马_vb第9讲:图形打印（循环嵌套）

根据示例编写程序，打印直角三角形、菱形和乘法表。

VB的循环嵌套

上一节我们学习了5种循环结构写法，每种过程示范每个循环结构的使用。然而，在编程中，一循环总是放在另外一循环中的。VB允许你将不同类型的循环(For和Do循环)“嵌套”在同一个过程里。当你编写循环嵌套时，请确保每个内部的循环在外部循环里面已经完成。另外，每个循环都必须有其自己独特的计数器变量。如果使用循环嵌套，你可以更有效地执行特定的任务。

1、编写程序，使能打印下面所示的图案。

程序：

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 6
  For j = 1 To i 
    Print “*”;
  Next j
  Print
Next i
End Sub

上面的过程使用了两个For…Next循环来打印直角三角形。当外部的循环在追踪行号的时候，内部的循环在做更多的事情，它首先确定当前的列号，基于当前的行号打印“*”号。

2、编写程序，使能打印下面所示的图案。

方法1：

Private Sub Form_Click()
Dim i,j,k As Integer

For i = 1 To 3
  for k=1 to i
    print " " ;
  next k

 For j = 1 To 2*i-1
   Print “*”;
 Next j
 Print
Next i

For i = 2 To 1 step -1
 for k=1 to i
  print " " ;
 next k

  For j = 1 To 2*i-1
     Print “*”;
  Next j
 Print
 Next i
End Sub

方法2：

Private Sub Form Click()
Dim i As Integer '定义i为整型变量
Dim j As Integer '定义j为整型变量
  For i = -3 To 3
    Print Tab(Abs(i)+5);
          For j=1 To 2*(3-Abs(i))-1
            Print "*";
      Next j
    Print   '换行
  Next i
End Sub

3、九九乘法表

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

For i = 1 To 9
  For j = 1 To i
    Print j & "×" & i & "=" & i * j & " ";
  Next j
  Print
Next i

End Sub