Question

vb代码金字塔数字的求解。

Answer 1

Private Sub Command1_Click()
    For i = 1 To 9
'**********FOUND**********
      Print vbCrLf & Space(9 - i);
       For j = 1 To i
          Print Format(j, "0");
      Next j
      If i > 1 Then
'**********FOUND**********
         For j = i - 1 To 1 Step -1
             Print Format(j, "0");
         Next j
      End If
'**********FOUND**********
      j = j + 1
    Next i
'**********FOUND**********
End Sub
Private Sub Form_Load()
'**********FOUND**********
Command1.Caption = "?aê?"
End Sub