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

Question

我是编程的新手，我想制作一个从Vb Script的列表中随机选择名称或句子的程序。

这是列表：

Jacob
James
Jason
Caleb
Ashlee
John

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

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

Answer 1

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

• 随机陈述
• Rnd功能
• 数组功能
• 绑定功能
• LBound功能

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)