UC知道vb:输出下三角数组
来源：百度知道 编辑：UC知道 时间：2024/06/15 14:55:15
想在picturebox中实现这种数组的输出
1
12
123
1234
只是举个例子，其实数组中的值没这么规则，只是想输出这种形式。
行和列还没确定啊，能明白不？
也就是自定义行=列，然后输出数组。
谢谢啦
1
12
123
1234
只是举个例子，其实数组中的值没这么规则，只是想输出这种形式。
行和列还没确定啊，能明白不？
也就是自定义行=列，然后输出数组。
谢谢啦
Private Sub Picture1_Click()
Picture1.Cls
Dim n As Integer
Dim i As Integer
Dim j As Integer
n = Val(InputBox("请输入下三角行数", "打印下三角数组"))
For i = 1 To n
For j = 1 To i
Picture1.Print j;
Next j
Picture1.Print
Next i
End Sub