请问：VB中显示一个二维数组的问题！

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:10:53
在VB中输入一个二值二维数组（即只有0或者1这两个值），怎么样将数值为0的点在VB界面中以点的形式显示出来？并且将这些点组成的图案的轮廓描绘出来？谢谢各位高手啊！在线等！
上面两个答案我试啦，好像不行，可能我没说清楚吧，我要的是一个8*8的二维数组，数值自己输入，但数组里的元素只能输入0或者1，然后将是0的元素以点的形式显示出来，点最好能明显一点，在线等啊！谢谢各位！

Private Sub Command1_Click()
For i = 1 To 50000
r = Int(256 * Rnd)
g = Int(256 * Rnd)
b = Int(256 * Rnd)
x = Rnd * Form1.Width
y = Rnd * Form1.Height
PSet (x, y), RGB(r, g, b)
Next i

End Sub

画控件picture1,设黄100*100个点阵二维数组
如数组 ary(99,99)
就用
dim a as string
for i=0 to 99
a=""
for j=0 to 99
if ary(i,j)=0 then Form1.Picture1.PSet (i,j）
next
next