FLY的狐狸

【例】设计界面如下图a所示，单击各按钮时输入行数，按此行数在窗体上显示不同的图形，如下图b所示。

　　
　　　　a) 设计界面　　　　　　　　　　　　　b) 各种结果
　　　　　　　　　　　　　图 打印各种图形

程序源码：

Option Explicit
Dim HangShu As Integer, I As Integer, J As Integer

' 平行四边形
Private Sub Command1_Click()
   Cls
   HangShu = Val(InputBox("请输入图形的行数："))
   For I = 0 To HangShu - 1
      For J = 1 To I    ' 控制在*前面显示的空格个数
         Print " ";
      Next J
      Print "*****"
   Next I
End Sub

' 正三角形
Private Sub Command2_Click()
   Cls
   HangShu = Val(InputBox("请输入图形的行数："))
   For I = 1 To HangShu
      For J = HangShu - 1 To I Step -1    ' 显示空格
         Print " ";
      Next J
      For J = 1 To 2 * I - 1    ' 显示*号
         Print "*";
      Next J
      Print
   Next I
End Sub

' 倒三角形
Private Sub Command3_Click()
   Cls
   HangShu = Val(InputBox("请输入图形的行数："))
   For I = 1 To HangShu
      For J = 1 To I - 1    ' 显示空格
         Print " ";
      Next J
      For J = 0 To 2 * (HangShu - I)    ' 显示*号
         Print "*";
      Next J
      Print
   Next I
End Sub

' 双三角形
Private Sub Command4_Click()
   Cls
   HangShu = Val(InputBox("请输入图形的行数："))
   For I = 1 To HangShu
      For J = 1 To I - 1    ' 显示空格
         Print " ";
      Next J
      For J = 0 To 2 * (HangShu - I)    ' 显示第一个三角形的*号
         Print "*";
      Next J
      Print " ";
      For J = 1 To 2 * I - 1    ' 显示第二个三角形的*号
         Print "*";
      Next J
      Print
   Next I
End Sub