這個(gè)好像上學(xué)的時(shí)候是書上的題
Private Sub Command1_Click()
For i = 1 To 4 '這個(gè)4是層數(shù),可以用變量,從鍵盤獲取
Print Tab(30 - 3 * i); '30是第一行輸出的位置,總之30 - 3 * i要大于0
For j = 1 To 2 * i - 1
If i >= j Then
Print j;
Else
Print 2 * i - j;
End If
Next
Print
Next
End Sub
給分!