Question

求答案 VB使用print方法，输出如下图形

Answer 1

Private Sub Command1_Click()
    Const s1 As String = "★"
    Const s2 As String = "  "
                            
    Dim i As Long, j As Long
    For i = 0 To 4
        For j = 0 To 5 - i
            Print s2;
        Next j
        For j = 0 To 2 * i
            Print s1;
        Next j
        For j = 0 To (4 - i) * 2
            Print s2;
        Next j
        For j = 0 To 2 * i
            Print s1;
        Next j
        Print
    Next i
End Sub

望采纳，谢谢。

追问

这位亲……运行结果不对呀……

追答

对的啊，哪里有问题？

Answer 2