VB 编写程序 “数字金字塔”

Question

打印如下：
                                              1
                                           1  2   1
                                        1  2  3   2   1
                                    1   2  3  4   3   2   1
                                1   2   3  4  5   4   3   2   1
                            1   2   3   4  5  6   5   4   3   2   1

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim i As Integer, k As Integer
    Dim Lstr As String, Rstr As String, strtmp As String
       
    
    For i = 1 To 6
       
        For k = 1 To i
            If k <> i Then
                Lstr = Lstr & Space(1) & CStr(k)
                Rstr = StrReverse(Lstr)
            End If
        Next
        
        strtmp = Lstr & Space(1) & CStr(i) & Space(1) & Rstr
        
        Print Space(12 - i * 2) & strtmp
    
         Lstr = ""
         Rstr = ""
    Next
    
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim i As Integer, k As Integer
    Dim Lstr As String, Rstr As String, strtmp As String
       
    
    For i = 1 To 6
       
        For k = 1 To i
            If k <> i Then
                Lstr = Lstr & Space(1) & CStr(k)
                Rstr = StrReverse(Lstr)
            End If
        Next
        
        strtmp = Lstr & Space(1) & CStr(i) & Space(1) & Rstr
        
        Print Space(12 - i * 2) & strtmp
    
         Lstr = ""
         Rstr = ""
    Next
    
End Sub

Answer 3

Dim i As Integer, j As Integer, n As Integer
For i = 1 To 6
 Debug.Print Space(24 - i * 3);
    For j = 1 To i
           
            Debug.Print j;
    Next
        For n = j - 2 To 1 Step -1
           Debug.Print n;
        Next
   Debug.Print
Next