对于每个...循环不起作用

Question

我正在努力将 VBScript 脚本合并到我的 HTML 中。基本上我现在正在做的是在页面加载时出现一些输入框，要求用户输入存储在数组中的四种颜色。后来我使用我创建的函数在页面上显示颜色。当我为数组的每个单独元素调用它时，该函数的工作方式与预期的一样，但我的 For Each 循环没有做任何事情。

这是从用户那里收集颜色信息的代码：

Option Explicit
Dim colour(4)

colour(0) = Inputbox("Colour number 1")
Msgbox("The colour you entered is: " & colour(0))
colour(1) = Inputbox("Colour number 2")
Msgbox("The colour you entered is: " & colour(1))
colour(2) = Inputbox("Colour number 3")
Msgbox("The colour you entered is: " & colour(2))
colour(3) = Inputbox("Colour number 4")
Msgbox("The colour you entered is: " & colour(3))

这是我稍后调用以在页面上显示这些颜色的脚本，没有循环，这正是我想要的：

Function printText(words)
    document.write("<h3 class='bodyheader'>Let's add the text '" & words & _
        "' to our website</h3>")
End Function

printText(colour(0))
printText(colour(1))
printText(colour(2))
printText(colour(3))

当我实现我的For Each 循环时，我根本没有得到任何类型的输出，页面的那个区域仍然是空白的。我得到的错误是

非法赋值：'元素'

Function printText(words)
    document.write("<h3 class='bodyheader'>Let's add the text '" & words & _
        "' to our website</h3>")
End Function

For Each element In colour
    printText(colour(element))
Next

我在循环中的语法有问题还是我遗漏了另一个问题？

Answer 1

只需使用：

For Each elm In colour
    printText(elm)
Next

或使用：

For i=0 To UBound(colour)
    printText(colour(i))
Next