UC知道vb 下三角形显示
来源：百度知道 编辑：UC知道 时间：2024/05/22 02:25:24
麻烦高手们帮我看看这个程序问题出在哪了?我只是想得到三角形,可是怎么做都是一条,在书上看到这样写的其他程序都可以用，但是我就不知道自己写的是什么问题! 谢谢了!~~ （因为是初学，所以难免出些错，请指正）
Dim i%, j%
Dim A(1 To 4, 1 To 4) As Integer
Dim B(1 To 4, 1 To 4) As Integer
For i = 1 To 4
For j = 1 To i
A(i, j) = Int(Rnd * 41 + 30)
Print A(i, j); " "
Next j
Print
Next i
题目中要求的是用随机数产生数组
Dim i%, j%
Dim A(1 To 4, 1 To 4) As Integer
Dim B(1 To 4, 1 To 4) As Integer
For i = 1 To 4
For j = 1 To i
A(i, j) = Int(Rnd * 41 + 30)
Print A(i, j); " "
Next j
Next i
题目中要求的是用随机数产生数组
Print A(i, j); " "
<br>改成
<br>Print A(i, j); " ";
<br>后面加个分号
补充:
已经是随机数了
Dim i%, j%
Dim A(1 To 4, 1 To 4) As Integer
Dim B(1 To 4, 1 To 4) As Integer
For i = 4 To 1 Step -1
For j = 1 To i
A(i, j) = Int(Rnd * 41 + 30)
Print A(i, j);
Next j
Print
Next i