从列表vbscript中回显一个随机名称

Question

我是编程新手，我想创建一个程序，从Vb脚本中的列表中随机选择一个名称或句子。

这是列表：

Jacob
James
Jason
Caleb
Ashlee
John

程序需要从该列表中选择一个随机名称。

如果有人可以提供帮助，我将非常感谢，谢谢

Answer 1

没有内置方法可以在VBScript中执行您需要的操作。你必须实现自己的如下。
此外，您可能想要检查这些：

• Randomize Statement
• Rnd Function
• Array Function
• UBound Function
• LBound Function

Randomize

Function RandomWithinRange(min, max)
    RandomWithinRange = Int((max - min + 1) * Rnd() + min)
End Function

Function RandItemFromArray(arr)
    RandItemFromArray= arr(RandomWithinRange(LBound(arr), UBound(arr)))
End Function

Dim names
    names = Array("Jacob", "James", "Jason", "Caleb", "Ashlee", "John")

MsgBox RandItemFromArray(names)

Answer 2

您可以尝试这样：

Option Explicit
Dim names,index
Randomize
names = Array("Jacob","James","Jason","Caleb","Ashlee","John","Mike","Ken","Mark","Kim","Cindy","Joe")
index = Int((UBound(names)+1)*Rnd())
msgbox names(index)

Answer 3

使用Random类作为列表的索引。

Dim namesList As New List(Of String)
namesList.Add("John")
namesList.Add("Mike")
//etc
Dim randomNum = new Random()
Dim randomName = namesList(randumNum.Next(0, namesList.Count))