关于VB的制作问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 14:46:41
用PRINT"*"的形式打印出以下图形(要VB语言的全过程!!急!!!)
*
***
*****
*******
*********
***********
*************
***************
*****************
*******************

Private Sub Form_Click()
For i = 1 To 20 Step 2
For j = 1 To i
Print "*";
Next
Print
Next
End Sub

不居中的:
Private Sub Command1_Click()
For i = 1 To 10
For j = 1 To i * 2 - 1
Print "*";
Next
Print
Next
End Sub

居中的:
Private Sub Command1_Click()
For i = 1 To 10
Print Tab(11 - i); '多了这一行
For j = 1 To i * 2 - 1
Print "*";
Next
Print
Next
End Sub

Private Sub Form_Load()
For i = 1 To 20 Step 2
For j = 1 To i
Print "*";
Next
Print
Next
End Sub