打印图形：
*
**
***
****
*****
Private Sub Command1_Click()
For i = 1 To 5
Print String(i, "*")
Next
End Sub

打印图形：
*********
*******
*****
***
*
Private Sub Command1_Click()
For i = 1 To 5
Print Tab(i); String(11 - 2 * i,"*")
Next
End Sub


打印以下图形
*
***
*****
*******
*****
***
*
Private Sub Form_Click()
Dim i%, j%, k%
For i = 0 To 3
For j = 0 To 2 - i
Print " ";
Next j
For k = 1 To 2 * i + 1
Print "*";
Next k
Print
Next i
For i = 0 To 2
For j = 0 To i
Print " ";
Next j
For k = 0 To 4 - 2 * i
Print "*";
Next k
Print
Next i
End Sub

建立文件并输出文件，文件内容如下：
*****
*****
*****
*****
*****
Private Sub Form_Click()
For i = 1 To 5
Print #1, Spc(i); "*****"
Next i
End Sub

Private Sub Command1_Click()
Dim a(6, 6) As Integer
Dim i, j, k, t As Integer
For i = 1 To 6
For j = 1 To 6
Select Case i
Case Is < j
a(i, j) = 1
Case Is > j
a(i, j) = 2
Case Is = j
a(i, j) = 0
End Select
Print a(i, j);
Next j
Print
Next i
End Sub

LS图形
011111
201111
220111
222011
222201
222220

输出40以内能够被3整除的数，要求输出结果为5个数一行。
Private Sub Form_Click()
Dim x As Integer, i As Integer
i = 0
For x = 1 To 40
If (x / 3) = (x \ 3) Then
Print x;
i = i + 1
End If
If i Mod 5 = 0 Then
Print
End If
Next x
End Sub