从数组中获取随机项

4532066

我从以下基本代码示例开始:

<%
block1 = "tree, ball, cheese, rabbit, waffle, planet, string, cat, dog, hole, hobbit, sing,"

wordArray1 = split(block1, ",")

For Each item In wordArray1
    Response.Write(item & "<br />")
Next

max=11
min = 1
Randomize
rand1 = Int((max-min+1)*Rnd+min)

response.write "<hr/>rand1: " & rand1 & "<hr/>"

w1 = wordArray1(0,rand1)

response.write "w1: " & w1 & "<hr/>"
%>

我从以逗号分隔的单词列表开始(block1)。

我将其转换为数组(wordArray1)

我可以通过遍历数组并将数组值打印到页面来证明该数组存在。

然后,我希望能够从该数组中随机选择1个值。

我以为我可以做这样的事情:

max=11
min = 1
Randomize
rand1 = Int((max-min+1)*Rnd+min)

response.write "<hr/>rand1: " & rand1 & "<hr/>"

w1 = wordArray1(0,rand1)

但是我得到这个错误:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'wordArray1'

如何随机访问其中一个阵列?

谢谢

卢克·福特

您没有在创建多维数组,因此不应传递两个参数。更改此行:

w1 = wordArray1(0,rand1)

对此:

w1 = wordArray1(rand1)

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章