Private Sub Command1_Click()
Cls
Print
For n = 1 To 8
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Print
Next n
End Sub
Cls
For n = 1 To 8
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Next n
End Sub
简单!!!