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

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

我不知道哪出了问题

你用的哪个vb方言啊 ?
看的冒火

Dim a() As Single
a(x, y).x

还能这样写?????????

好好看书!!!!!!!!!!

a 是二维数组的还是？

a看起来是二维数组，但基类型是简单类型，哪有x和y分量？

怎么有人就是不爱看书……