Question

看图片进行编写VB打印出10行

看图片进行编写VB打印出10行

Answer 1

Sub main()
    Dim i%, j%, a%(9, 9)
    Debug.Print
    For i = 0 To 9
        a(i, 0) = 1
        a(i, i) = 1
    Next
    For i = 2 To 9
        For j = 1 To i - 1
            a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
        Next
    Next
    For i = 0 To 9
        For j = 0 To i
            Debug.Print a(i, j);
        Next
        Debug.Print
    Next
End Sub