Question

vb定义后的数组显示缺少数组时什么原因？

部分程序如下，在Y（i）处提示缺少数组

模块中：
Public x() As Double
Public y() As Double
Public a, b As Double
Public xp, yp As Double
Public N As Byte
窗体中：
Private Sub cmd_enter_Click()
Dim i, h, j As Byte
Dim d, c, e, f, x, y As Double

ReDim y(i)
ReDim x(i)
For i = 0 To 9
If Txt_x(i).Text <> " " And Txt_y(i).Text <> " " Then
x(i) = Val(Txt_x(i - 1).Text)
y(i) = Val(Txt_y(i - 1).Text)
h = h + 1
End If
Next i
If h < N Then
MsgBox "你只输入" + Str$(N) + "组数字!", vbExclamation
End If

Answer 1

把
ReDim y(i)
ReDim x(i)
改成
ReDim y(9)
ReDim x(9)

追问

不行啊，依然提示我缺少数组

追答

把这2行，放到本窗体里，
Public x() As Double
Public y() As Double
改用
Private x() As Double
Private y() As Double

追问

这样就变成过程变量了，我在其他窗体中也要用这两个数组。而且虽然这样改后不提示缺少数组了，但是提示子程序或函数中的属性无效。

追答

哦，我知道问题出在哪里了！！！！！！
你这里
Dim d, c, e, f, x, y As Double

不能再声明 变量 x,y了？？？