Private Sub Calculate_Click()
Dim i As Long
Dim x As Long
Dim y As Long
Dim z As Long
Dim num As Long
Dim Row As Long
Dim s As String
Dim J As Integer

num = 0
i = 0
Dim dian As Long

Row = 16 * Page '总行数
dian = Row * 128 '所有点数
'ReDim ardata((Row + 1) * 128) '重定义总点数
ReDim ardata(dian)
For y = 0 To (Row - 1)
For x = 0 To 127

For J = 0 To Page - 1
'为什么这个循环只执行了最后一个，如果page-1=5,那么z=Picture1(5).Point(x,y),其他不执行
z = Picture1(J).Point(x, y)
Next
ardata(i) = z
' s$ = s$ & " " & ardata(i)
i = i + 1
num = num + 1
Next
Next

'Text1.Text = s$
'Debug.Print num
End Sub

去看看硬件的书
理解一下ｃｐｕ是怎样工作的

你为什么想到要用这样的循环（标蓝部分）？你这样设计的目的是什么？你看看把那一段换成下面的代码是不是一样的，如果一样的话，那你自己说是哪里出问题了？
ardata(i) = Picture1(Page - 1).Point(x, y)
i = i + 1
num = num + 1
问题我已经给你提出，解决还得靠你自己。

[此贴子已经被作者于2007-4-20 11:39:50编辑过]

呵呵，确实是一样的效果！