VB，数组存储坐标，怎么定义，请进来详看。。。

Question

本帖最后由 atfeel 于 2011-10-14 02:09:15 编辑

Answer 1

Option Explicit
Private Type Point
    x As Long
    y As Long
End Type
Private Sub Form_Load()
    Dim intP As Integer
    Dim A(2000) As Point
    'x的值可以用DateDiff来转换，首先记录一个起始点，然后再计算
    For intP = 0 To 1999
        A(intP).x = intP
        A(intP).y = Rnd * 100
    Next intP
End Sub

Answer 2

直接定义成2维数组不就行了吗
ReDim A(1 to 2000,1 to 2)