Private Sub command1_click()
 Dim a, b, c As Single
 a = Val(InputBox("请输入数字", "输入对话框", "1"))
 b = 1
 
  For i = a To 1 Step -1
  b = b + c
   Print Tab(i); String(b, "*")
   c = 2
  Next i
  
  b = a * 2 - 3
  
  For j = 1 To a
  
 这一句他说有问题  Print Tab(j + 1); String(b, "*")
  b = b - 2
  Next j
  
  End Sub