Question

vb打印倾斜平行四边形数字

vb打印倾斜平行四边形数字

Answer 1

Private Sub Command1_Click()

  n = CInt(InputBox("N="))

  For i = 1 To n

    Print Tab(i); String(n * 2, Chr(48 + i))

  Next i

End Sub