Question

Type ABFator
    a As Single
    b As Sinlge
End Type

Dim ABFactorArr(8) As ABFactor

'基本上我想声明一个由八个ABFactor组成的数组，然后我可以访问

我这样做，并且编译器给出错误用户定义的类型未定义

由于

Answer 1

拼写错误？缺少c？

您已将类型定义为ABFator，但没有c
并且您已使用c

ABFactor

您还在类型定义中错误输入了Single

或许你需要制作Type Public，以防你在一个模块中定义它并在另一个模块中使用它？

（请将此代码复制并粘贴到您的问题中，因为您在问题中用三种不同的方式拼写了ABFactor！）

Answer 2

将它放在页面顶部的Form1后面的代码中：

Private Type ABFactor
    a As Single
    b As Single
End Type


Private Sub Form_Load()

Dim ABFactorArr(8) As ABFactor
Dim i As Byte
For i = 0 To UBound(ABFactorArr)
    ABFactorArr(i).a = i
    ABFactorArr(i).b = i + 10
Next i
'quick test
Debug.Print ABFactorArr(6).b

End Sub

如何在vb6中声明用户定义类型的数组

2 个答案: