Question

按键精灵 随机文字 我这个程序运行没反应 来大佬告诉我哪里错了？- -！

Function 随机()
Dim a,b
a = array("多多","你好啊","你在干嘛啊","duoduo")
Randomize
b = Int(((UBound(a)+1) * Rnd) + LBound(a))
SayString a(b)
End Function

Answer 1

Function 随机()
Dim a, b, i
' 定义一个字符串数组
a = Array("多多", "你好啊", "你在干嘛啊", "duoduo")

' 初始化随机数生成器
Randomize

' 生成一个介于数组下界和上界之间的随机整数
' VBScript中Array默认下界为0，上界为数组长度减1
b = Int((UBound(a) - LBound(a) + 1) * Rnd + LBound(a))

' 输出或返回随机选择的字符串
' 假设这里使用WScript.Echo来输出到控制台（如果是在Windows Script Host环境中）
' 如果需要函数返回这个值，可以使用 随机 = a(b) 替换下面的WScript.Echo行
WScript.Echo a(b)
End Function

' 注意：如果这段代码是在Windows Script Host环境中运行，
' 你可能需要调用这个函数来看到结果，例如：
' 调用 随机()