用VB输出下列图形~~

来源：百度知道 编辑：UC知道 时间：2024/06/01 03:49:08
* *
*** ***
**********
呃 那个图形是两个一样的塔型图案连在一起，怎么成这样了··

Private Sub Form_Click()
'点击窗体打印
Cls
Dim i As Integer, j As Integer, N As Integer
N = 3 'N可以改成其他数字，比如5，6等等
For i = 1 To N
For j = 1 To N - i: Print " ";: Next j 'n-i个空格
'上一行可以用这句代替： Print Space$(N - i);
For j = 1 To 2 * i - 1: Print "*";: Next j
'上一行可以用这句代替： Print Space$(N - i);
For j = 1 To 2 * (N - i): Print " ";: Next j '2 * (N - i)个空格
'上一行可以用这句代替： Print Space$(N - i);
For j = 1 To 2 * i - 1: Print "*";: Next j
'上一行可以用这句代替： Print Space$(N - i);
Print '换行
Next i
End Sub

Private Sub Form_Load()
AutoRedraw = True
End Sub
图形为
__*____*
_***__***
**********

Private Sub Form_Load()
print "* *"
print "*** ***"
print "**********"
End Sub

Private Sub Command1_Click()
For i = 1 To 5 Step 2
Print String((5 - i) / 2, " &quo