Option Explicit
Private Sub Form_Click()
Dim N, I As Integer, J As Integer, K As Integer
N = 9
For I = 1 To N
Debug.Print Tab(N * 2 - I);
For J = 1 To I
Debug.Print Trim(Str(J));
Next
For K = I - 1 To 1 Step -1
Debug.Print Trim(Str(K));
Next
Next
End Sub
运行后:
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
------------------------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim N, I As Integer, J As Integer, K As Integer
N = 9
For I = N To 1 Step -1
Debug.Print Tab(N * 2 - I);
For J = 1 To I
Debug.Print Trim(Str(J));
Next
For K = I - 1 To 1 Step -1
Debug.Print Trim(Str(K));
Next
Next
End Sub
运行后:
12345678987654321
123456787654321
1234567654321
12345654321
123454321
1234321
12321
121
1
=============================================================
Option Explicit
Private Sub Form_Click()
Dim N, I As Integer, J As Integer, K As Integer
Dim N2 As Integer
N = 9
For I = 1 To N
Debug.Print Tab(N * 2 - I);
For J = 1 To I
Debug.Print Trim(Str(J));
Next
For K = I - 1 To 1 Step -1
Debug.Print Trim(Str(K));
Next
Debug.Print
Next
For I = N - 1 To 1 Step -1
Debug.Print Tab(N * 2 - I);
For J = 1 To I
Debug.Print Trim(Str(J));
Next
For K = I - 1 To 1 Step -1
Debug.Print Trim(Str(K));
Next
Debug.Print
Next
End Sub
Option Explicit
Private Sub Form_Click()
Dim N, I As Integer, J As Integer, K As Integer
Dim N2 As Integer
N = 9
For I = 1 To N
Debug.Print Tab(N * 2 - I);
For J = 1 To I
Debug.Print Trim(Str(J));
Next
For K = I - 1 To 1 Step -1
Debug.Print Trim(Str(K));
Next
Debug.Print
Next
For I = N - 1 To 1 Step -1
Debug.Print Tab(N * 2 - I);
For J = 1 To I
Debug.Print Trim(Str(J));
Next
For K = I - 1 To 1 Step -1
Debug.Print Trim(Str(K));
Next
Debug.Print
Next
End Sub
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
123456787654321
1234567654321
12345654321
123454321
1234321
12321
121
1