我想输出如下图形，该如何编程，谢谢

Question

*
   ***
  *****
 *******
*********
行数数我自行输入
我编写了如下程序，但是不对，请帮忙修改，谢谢
Private Sub Command2_Click()
b = InputBox("请输入行数")
Dim str1, str2 As String
str1 = "*"Print Tab(b); "*"
For i = 1 To b - 1
   For j = 1 To b - 1
      str2 = str2 & ""
   Next j
   str1 = str1 & "**"
   str3 = str2 & str1
   Print str3
Next i
End Sub

Answer 1

Private Sub Command2_Click()
b = InputBox("请输入行数")
Dim str1, str2 As String
str1 = "*"Print Tab(b); "*"
For i = 1 To b - 1
   For j = 1 To b - 2
      str2 = str2 & ""
   Next j
   str1 = str1 & "**"
   str3 = str2 & str1
   Print str3
Next i
End Sub

Answer 2

Print Space(b) & "*"
For i = 1 To b - 1
    str2 = Space(b - i)
   str1 = str1 & "**"
   str3 = str2 & str1
   Print str3
Next i

Answer 3

给你一个我写的吧……Private Sub Form_Load()
  Text1.Text = PyramidStringGetNumber(5) '记得Text1的Multiline的属性要是Ture
End SubPublic Function PyramidStringGetNumber(ByVal pLevel As Long, Optional ByVal pPatch As Long = 1, Optional ByVal pStep As Long = 1, Optional ByVal pFillString As String = "*", Optional ByVal pBackString As String = " ") As String
  'PyramidStringGetNumber函数
  '语法：[tOutText] = PyramidStringGetNumber(pLevel, [pPatch], [pStep], [pFillString], [pBackString])
  '功能：根据参数产生一个金字塔型的带换行文本图形。
  '参数：   long    pLevel      级数
  '         long    pPatch      基数
  '         long    pStep       增量
  '         string  pFillString 前景字符
  '         string  pBackString 背景字符
  
  Dim tOutString As String
  
  Dim tIndex As Long
  
  Dim tIndex_End As Long
  Dim tIndex_Start As Long
  
  tIndex_Start = 0
  tIndex_End = pLevel - 1
  
  Dim tString_MixCentre As String
  Dim tString_MixCentre_Count As Long
  Dim tString_MixSide As String
  Dim tString_MixSide_Count As Long
  Dim tString_Line As String
  
  For tIndex = tIndex_Start To tIndex_End
    tString_MixCentre_Count = tIndex * pStep * 2 + pPatch
    tString_MixCentre = String(tString_MixCentre_Count, pFillString)
    tString_MixSide_Count = (tIndex_End - tIndex) * pStep
    tString_MixSide = String(tString_MixSide_Count, pBackString)
    tString_Line = tString_MixSide & tString_MixCentre & tString_MixSide
    tOutString = tOutString & tString_Line & vbCrLf
  Next
  
  PyramidStringGetNumber = tOutString
End Function

Answer 4

b = InputBox("请输入行数")
Dim str1, str2 As String
str1 = "*"Print Space(b - 1) & "*"
For i = 2 To b
    str2 = Space(b - i)
   str1 = str1 & "**"
   str3 = str2 & str1
   Print str3
Next i