Vb6 将数组传递给方法时出现语法错误

我已经创建了一个数组来存储inputbox的值，它说我有一个语法错误，我不确定如何修复它

我使用了参数传递，我也将在下面显示

Dim name() As String

For counter = 1 To 5
Call enter_questionnaire_data(name())    '2.0
Next
End sub

第二子程序

Private Sub enter_questionnaire_data(ByRef name())

name() = InputBox("Enter the party name")

---

使用不带括号的名称

Dim name As String

以其他方式

Private Sub enter_questionnaire_data(ByRef name)
name = InputBox("Enter the party name")

---

使用不带括号的名称

Dim name As String

以其他方式

Private Sub enter_questionnaire_data(ByRef name)
name = InputBox("Enter the party name")

---

为什么将

name

作为字符串数组

你只需要申报

Dim name As String

用于允许

name

存储字符串

此外，不能像这样为数组成员赋值

name() = InputBox("Enter the party name")

您还需要指定索引

编辑： 如果希望字符串数组存储名称，则

声明一个足够长的静态数组

Dim name(10) As String

和使用：

name(index) = InputBox("Enter the party name")
index = index+1;

其中索引在每次输入后递增，直到10

---

（现在使用动态数组对您来说有点复杂，所以我在讨论中省略了动态数组）

为什么要将

name

作为字符串数组

你只需要申报

Dim name As String

用于允许

name

存储字符串

此外，不能像这样为数组成员赋值

name() = InputBox("Enter the party name")

您还需要指定索引

编辑： 如果希望字符串数组存储名称，则

声明一个足够长的静态数组

Dim name(10) As String

和使用：

name(index) = InputBox("Enter the party name")
index = index+1;

其中索引在每次输入后递增，直到10

（现在使用动态数组对您来说有点复杂，所以我在讨论中省略了动态数组）

关于您的程序：

Dim name As String <---Without () you can use this for array 

For counter = 1 To 5
Call enter_questionnaire_data(name as string)<--- can you insert  variable/tipe
Next

End sub


Private Sub enter_questionnaire_data(name as string)

name = InputBox("Enter the party name") 

Dim name As String关于您的程序：

Dim name As String <---Without () you can use this for array 

For counter = 1 To 5
Call enter_questionnaire_data(name as string)<--- can you insert  variable/tipe
Next

End sub


Private Sub enter_questionnaire_data(name as string)

name = InputBox("Enter the party name") 

Dim name作为字符串我需要使用一个数组，因为参与方名称将被输入多次，所以我需要一个数组来存储“name”的数据。我怎样才能做到这一点？我已经编辑了我的答案，以包括您的要求。此外，您可能希望查看此链接以获取数组。答案的编辑部分是一个很好的解决方案。他应该记得用这一行调用sub
call enter\u inventory\u data（name）
，注意name上没有括号。我需要使用数组，因为参与方名称将被多次输入，所以我需要一个数组来存储“name”的数据。我怎样才能做到这一点？我已经编辑了我的答案，以包括您的要求。此外，您可能希望查看此链接以获取数组。答案的编辑部分是一个很好的解决方案。他应该记得用这一行调用sub
call enter\u inventory\u data（name）
，注意name上没有括号。他在for循环中调用
enter\u inventory\u data
。您可以看到，代码的功能是输入多个名称，因此使用了一个数组。他在for循环中调用
enter\u inventure\u data
。您可以看到，代码的功能是输入多个名称，因此使用了数组。