VBSの「ステートメントの末尾が不正です 800a0401」を解決したいです。

Question

VBSを学習中で、独学の初心者です。会社の業務で使用する予定あり。

以下の簡単な繰り返し処理を実行しようとしているのですが、エラーが起きて実行できません。

解決策をお願いします。

Sub greet1()
	Dim guest1(3)
	guest1(0) = "鈴木"
	guest1(1) = "山田"
	guest1(2) = "佐藤"
	Dim i
	For i =1 to 3 Step 1
		MsgBox guest1(i) & "さん、こんにちは"
	Next i
End Sub

Call greet1()

Answer 1

エラーメッセージの行数とかをよく確認するといいと思います。

Sub greet1()
    Dim guest1(3)
    guest1(0) = "鈴木"
    guest1(1) = "山田"
    guest1(2) = "佐藤"
    Dim i
    For i =0 to 2
        MsgBox guest1(i) & "さん、こんにちは"
    Next
End Sub

Call greet1

For Next の後に変数iが付いています。
VBAの場合はloop変数を入れられますが、VBSの場合は入れられなかった覚えがあります。

Comments

[naruseyoshiki]

解決できました。
ありがとうございます。

Answer 2

VBScriptのNextでは変数を指定できません。

あと、For i =0 to 2 Step 1ですね。

Comments

[naruseyoshiki]

回答ありがとうございます。
for文のご指摘ありがとうございます。