배열에 메서드를 전달할 때 구문 오류가 발생했습니다

Question

입력 상자의 값을 저장할 배열을 만들었습니다. 구문 오류가있어서이를 수정하는 방법이 확실하지 않습니다.

난 내가 괄호

Dim name As String 

하지 않고 다른 방법으로도

Dim name() As String 

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

2 서브 루틴

Private Sub enter_questionnaire_data(ByRef name()) 

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

Answer 1

를 사용하여 이름 아래에 표시됩니다 매개 변수 전달을 사용했다

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

Answer 2

name을 문자열 배열로 사용하는 이유는 무엇입니까?

당신은 단지 문자열을 저장하는 name을 허용하는

Dim name As String 

를 선언 할 필요 또한 당신이 인덱스를 지정해야이

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

처럼 배열 구성원에 값을 할당 할 수 없습니다

또한

편집 : 당신은 문자열 배열이 충분한 길이

Dim name(10) As String 

및 사용의 정적 배열을

다음, 이름을 저장 선언 할 경우 : 인덱스가 10까지 모든 입력 후 증가

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

(동적 배열을 사용하면 지금 당장 조금 복잡해 지므로 토론에서 동적 배열을 생략합니다)

프로그램 소개 6,

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