Question

vb打印数字9-1递减倒三角形

Answer 1

Private Sub Command1_Click()
 
Dim I As Integer, J As Integer, K As Integer
 
For I = 1 To 9
 
    For J = 1 To I
 
    Print I;
 
    Next J
 
    Print
 
Next I
 
End Sub