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

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

这是列表：

Jacob
James
Jason
Caleb
Ashlee
John

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

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

在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)