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

【问题标题】：echo a random name from a list, vbscript从列表中回显一个随机名称，vbscript
【发布时间】：2019-06-12 03:39:52
【问题描述】：

我对编程很陌生，我想制作一个程序，从 Vb 脚本的列表中随机选择一个名称或句子。

这里是列表：

Jacob
James
Jason
Caleb
Ashlee
John

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

如果有人可以帮忙，我将不胜感激，谢谢

【问题讨论】：

标签： vbscript

【解决方案1】：

VBScript 中没有内置的方法可以满足您的要求。你必须实现你自己的如下。
此外，您可能想查看以下内容：

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)

【讨论】：

【解决方案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)

【讨论】：

【解决方案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))

【讨论】：

在哪里插入姓名列表？
显然这是一个 VB.Net 解决方案，OP 正在寻找 VBScript。