很简单,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
picturebox控件的设计就是这样的,你要达到你要的效果可以换用label控件。
另外一个方法:获取一个随机数后不要马上print到控件上,写到数组或者字符变量里去,排列成你要的结果再print