vb中ReadProcessMemory读取内存数据问题

[q6897883]

ReadProcessMemory jubing, ByVal &H48DA00, ByVal VarPtr(a(x, y)), 625, 0&
Text1.Text = ""
s = ""
i = 0
For y = 1 To 8
For x = 1 To 25
s = s + Str(a(x, y))
Text1.Text = Trim(s)
Next x
Next y

程序就这么多 前面的都是定义其它函数和变量 获得的数据没有完全显示出来 不明白是什么问题 要怎么排序才可以完全获得地址里的数据在TEXT控件里显示出来 请教各位大大 谢谢 新手
图片左边是内存里的数据 右边的是在TEXT控件里的数据，不知怎么TEXT中不显示内存中第一行的数据，还有其他数据没有完整显示出来

[q6897883]

[q6897883]

http://hi.csdn.net/space-9272736-do-album-picid-996746.html
不知怎么上传图片

[现在还是人类]