帮忙做一个VB题~！

Private Sub Command1_Click()
Picture1.Cls
For i = 1 To 5
For j = 1 To i - 1
Picture1.Print " ";
Next j
For j = 1 To 4
Picture1.Print "*";
Next j
Picture1.Print
Next i
End Sub

Private Sub Command2_Click()
Picture1.Cls
For i = 6 To 1 Step -1
For j = 1 To 11 - i
Picture1.Print " ";
Next j
For j = 1 To 2 * i - 1
Picture1.Print "*";
Next j
Picture1.Print
Next i
End Sub

Private Sub Command3_Click()
Picture1.Cls
For i = 1 To 6
For j = 1 To 11 - i
Picture1.Print " ";
Next j
For j = 1 To 2 * i - 1
Picture1.Print "*";
Next j
Picture1.Print
Next i
End Sub

这个是前面三个按钮的代码~！

'第四个按钮代码

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim temp As String
temp = "*********" '只要是单数字符就行，此为通用打印格式
For i = 1 To Len(temp) Step 2
Print Space((i - 1) / 2) & Left(temp, Len(temp) - i + 1) & Space(2) & Right(temp, i)
Next
End Sub

前三个按钮的代码你能看明白，自然能写出第四个按钮的代码

加油