不会

Question

怎么编写下面的程序： 
                                                AA
                                         A  A
                                        A    A
                                       A      A
                                      A        A
                                     A          A
                                       
                用VB

Answer 1

调用这个过程来处理： '入口参数：iLines 要打印多少行
Sub PrintStr(iLines As Integer)
    Dim i&
    For i = 1 To iLines
        Debug.Print String(iLines - i, " ") & "A" & String((i - 1) * 2, " ") & "A"
    Next
End Sub