Question

VB该程序能打印如下图形 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 1 2 3 4 5 6

1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
1 2 3 4 5 6

Answer 1

如果不需要换行就把 两个next中间的print 去掉。
Private Sub Command1_Click()
n = InputBox("请输入最大数字")
For i = 1 To n
For j = 1 To i
Print j & " ";
Next
Print ""
Next
End Sub