vbs写一个随机点名的脚本

可以编写以下 VBScript 代码来实现随机点名功能：

' 定义学生名单数组
Dim students(4)
students(0) = "张三"
students(1) = "李四"
students(2) = "王五"
students(3) = "赵六"

' 生成随机数
Randomize
index = Int((UBound(students)-LBound(students)+1)*Rnd+LBound(students))

' 输出随机点名结果
MsgBox "本次随机点名结果为：" & students(index)

该代码首先定义了一个包含多个学生名字的数组，然后借助 VBScript 中的 Randomize 函数和 Rnd 函数来生成一个随机数，最后根据随机数从数组中取出对应的学生名字并输出结果。