Question

我已经创建了数组，它将存储输入框的值，它说我有语法错误，我不确定如何解决它。

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

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")

Answer 1

为什么你有name作为String数组？

你只需要声明

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

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

Answer 2

使用不带括号的名称

Dim name As String

和其他方法

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

Answer 3

关于您的计划：

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")

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

3 个答案: