vb中picturebox控件数组中画图显示

以下代码中
Private sub Form_Load()
..............
j=0
For b1=0 to 10
For X = 0 To 33.6 Step 0.0001
Y = 40 - Sqr(1600 - (X - 40) ^ 2)
Picture1(b1).PSet (X, Y), RGB(255, 0, 0)
Next X
For X = 33.6 To 80 Step 0.0001
Y = 40 - Sqr(1600 - (33.6 - 40) ^ 2)
Picture1(b1).PSet (X, Y), RGB(255, 0, 0)
Next X
Picture1(b1).Line (x2(0, j), g(0, j))-(x2(0, j), g(1, j)), RGB(255, 0, 0)
Picture1(b1).Line (x2(0, j), g(1, j))-(x2(1, j), g(2, j)), RGB(255, 0, 0)
For i = 1 To 10
Picture1(b1).Line (x2(i, j), g(i + 1, j))-(x2(i + 1, j), g(i + 2, j)), RGB(255, 0, 0)
Next i
Picture1(b1).Line (x2(11, j), g(12, j))-(x2(11, j), g(13, j)), RGB(255, 0, 0)
Picture1(b1).AutoRedraw = True
j = j + 1
Next b1
End sub
请问一下为什么Picture1(b1).PSet画的图在Picture1(b1)中能显示，Picture1(b1).Line画的图却不能显示？

经测试，你的代码没有问题。
据你所说，“Picture1(b1).PSet画的图在Picture1(b1)中能显示，Picture1(b1).Line画的图却不能显示”，问题应该出在你的数组x2或者g中，请你检查数组的值是不是正常。

如果还不能正常工作，建议你将数组创建和赋值部分的代码贴出来，打叫也好帮你分析解决问题。

设置form1.picture1.autoredraw属性为真，也可在form_load事件中加入如下代码： form1.picture1.autoredraw=true