请问这个图形用VB怎么写

我想你要的是这个
Private Sub Form_click()
Dim i As Integer
Dim j As Integer
For i = 1 To 4
For j = 4 - i To 1 Step -1
Print " ";
Next j
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub

Private Sub Form_click()
For i = 1 To 4
For j = 1 To 2*i-1
Print "*";
Next
Print
Next
End Sub

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 9 Step 2
Print String(i, "*")
Next i
End Sub

dim s
s='*'
for i=1 to 4
print s
s=s & '**'
next i

这个比较简单