一个简单的问题

Question

编程实现下列图案
*****
 ***
  *  
  *
 ***
*****
请各位帮忙

Answer 1

Private Sub Command1_Click()
Print "*****"
Print "***"
Print "*"
Print "*"
Print "***"
Print "*****"
End Sub

Answer 2

Private Sub Command1_Click() 
Print "*****" 
Print "***" 
Print "*" 
Print "*" 
Print "***" 
Print "*****" 
End Sub

Answer 3

Private Sub Form_Load()
Form1.Show
For i = 2 To 0 Step -1
For j = 3 - i To (3 + i)
If i >= 0 Then
Print Tab(j); "*";
End If
Next j
Next i
For i = 0 To 2
For j = 3 - i To (3 + i)
If i >= 0 Then
Print Tab(j); "*";
End If
Next j
Next i
End Sub

Answer 4

好玩:Private Sub Form_Load()
Form1.Show
Print
Print
For i = 10 To 0 Step -1
For j = 25 - i To (25 + i)
If i >= 0 Then
Print Tab(j); "*";
End If
Next j
Next i
For i = 0 To 10
For j = 25 - i To (25 + i)
If i >= 0 Then
Print Tab(j); "*";
End If
Next j
Next i
End Sub

Answer 5

刚开始学VB--好玩
Private Sub Form_Load()
Form1.Show
Print
Print
For i = 0 To 10
For j = 25 - i To (25 + i)
If i >= 0 Then
Print Tab(j); "*";
End If
Next j
Next iFor i = 10 To 0 Step -1
For j = 25 - i To (25 + i)
If i >= 0 Then
Print Tab(j); "*";
End If
Next j
Next i
End Sub

Answer 6

没多复杂的，看一下这个吧：Sub OutPic(iLine&)    Dim i&, k&
    
    For i = 1 To iLine + iLine - 1 Step 2
        k = Abs(i - 6)
        Debug.Print Space(3 - (k + 1) \ 2); String(k, "*")
    NextEnd Sub'输出测试
Sub Test()    OutPic 6    '输出的行数，必须是偶数End Sub

Answer 7

不好意思，这个过程得更改一下，否则只能输出6行的：
Sub OutPic(iLine&)    Dim i&, k&
    
    For i = 1 To iLine + iLine - 1 Step 2
        k = Abs(i - iLine)
        Debug.Print Space((iLine - k + 1) \ 2); String(k, "*")
    NextEnd Sub