arrays - 无法从数组中获取字符串值

Question

Dim animals() As String = {"Dog", "Cat", "Goat", "Cow"}
Dim randomAnimal As Single = Int((UBound(Animals)+1)*Rnd())   

上面的代码给了我一个数组而不是字符串的索引值。

尝试了以下一个，但它不起作用：

Dim intIndex As Integer= Int(randomAnimal)

Dim animals() As String = {"Dog", "Cat", "Goat", "Cow"}
Dim randomAnimal As Single = Int((UBound(Animals)+1)*Rnd())  

预期结果：需要randomanimal从数组中获取任何动物名称。

标签： arraysstringrandomvbscript

Answer 1

你可以试试这个：

dim animals_array, animals_string, animal_random

randomize timer
animals_string = "Dog,Cat,Goat,Cow"
animals_array = split(animals_string, ",")
animal_random = animals_array(int((ubound(animals_array) + 1) * Rnd))