Dim r, d, k, x, y
Dim a() As Single
Private Sub Form_Load()
  r = 10
  x = 0
  y = 0
  d = Cos(3.1415927 / 180 * 30) * r
For i = 0 To 100 Step r / 2 * 3
    For j = 0 To 100 Step d * 2
    If k Mod 2 = 1 Then
     a(x, y).x = j
     a(x, y).y = i
    Else
     a(x, y) = j + d
     a(x, y).y = i
    End If
    b = b + 1
    Next
    k = k + 1
    c = c + 1
  Next
Print a(x, y)
End Sub

Dim r, d, k, x, y
Dim a() As Single
Private Sub command1_Click()
  r = 10
  x = 0
  y = 0
  d = Cos(3.1415927 / 180 * 30) * r
For i = 0 To 100 Step r / 2 * 3
    For j = 0 To 100 Step d * 2
    If k Mod 2 = 1 Then
     a(x, y).x = j
     a(x, y).y = i
    Else
     a(x, y) = j + d
     a(x, y).y = i
    End If
    b = b + 1
    Next
    k = k + 1
    c = c + 1
  Next
Print a(x, y)
End Sub

运行的时候出现：编译错误，无效限定符这样的字样

我不知道哪出了问题