Question

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

以下是从用户收集颜色信息的代码：

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))循环时，我根本没有得到任何类型的输出，页面的这个区域仍然是空白的。我得到的错误是

非法转让：＆＃39;元素＆＃39;

For Each

循环中的语法有问题还是我错过了另一个问题？

Answer 1

只需使用：

For Each elm In colour
    printText(elm)
Next

或使用：

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

For Each ...循环不起作用

1 个答案: