vbs写一个随机点名的脚本
时间: 2023-05-23 08:03:02 浏览: 218
可以编写以下 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 函数来生成一个随机数,最后根据随机数从数组中取出对应的学生名字并输出结果。
相关问题
vbs写一个循环20s的脚本
您可以使用VBScript编写一个循环20秒的脚本,以下是一个示例:
```vbscript
Option Explicit
Dim startTime, currentTime
' 获取当前时间
startTime = Timer
Do While Timer - startTime < 20
' 在此处编写您想要重复执行的代码
' 例如:MsgBox "Hello, World!"
' 获取当前时间
currentTime = Timer
' 检查是否已经过了1秒,如果是则输出已经过去的秒数
If currentTime - startTime >= 1 Then
WScript.Echo Round(currentTime - startTime) & " seconds have passed."
End If
' 等待一小段时间,以免循环过于频繁占用系统资源
WScript.Sleep 100
Loop
WScript.Echo "Loop finished."
```
以上脚本会在循环内输出已经过去的秒数,并在循环结束后输出"Loop finished."。您可以根据您的需求在循环内编写具体的操作代码。请注意,VBScript脚本需要保存为`.vbs`文件并在Windows系统上运行。
用vbs脚本写一个随机抽签的命令
这是一段用VBScript实现的随机抽签的脚本代码:
```
Dim arr, num
arr = Array("大吉", "中吉", "小吉", "吉", "末吉", "凶", "大凶") ' 定义抽签结果
num = Int((UBound(arr) - LBound(arr) + 1) * Rnd + LBound(arr)) ' 随机生成数组下标
WScript.Echo "您抽到的签是:" & arr(num) ' 输出结果
```
你可以将此代码保存成扩展名为 `.vbs` 的文件,然后双击运行即可看到抽签结果。
注意,由于 VBScript 本身的限制,该脚本只能在 Windows 系统中运行。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)