[求助]循环问题
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
