UC知道VB中利用picturebox控件每显示一个随机数都会自动换一行，如何让一行中显示出5个生成的随机数？
来源：百度知道 编辑：UC知道 时间：2024/06/27 19:14:04
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(4, 5) As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j)
Next j
Picture1.Print
Next i
End Sub
这样在picturebox中显示的都是每个数据就换一行，我想要得到4行5列的数据结果。。。帮帮忙。。。
Dim i As Integer, j As Integer, a(4, 5) As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j)
Next j
Picture1.Print
Next i
End Sub
这样在picturebox中显示的都是每个数据就换一行，我想要得到4行5列的数据结果。。。帮帮忙。。。
picturebox控件的设计就是这样的，你要达到你要的效果可以换用label控件。
另外一个方法：获取一个随机数后不要马上print到控件上，写到数组或者字符变量里去，排列成你要的结果再print
很简单，Picture1.Print a(i, j)后加一个分号就可以了。
代码如下：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(4, 5) As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub