使用vbs让用户输入一个数字再过三秒输入一个数字
时间: 2023-04-07 20:03:44 浏览: 68
我可以回答这个问题。您可以使用以下代码:
```
Dim num1, num2
num1 = InputBox("请输入一个数字:")
WScript.Sleep 3000
num2 = InputBox("请再输入一个数字:")
```
这段代码会让用户先输入一个数字,然后等待三秒钟,最后再让用户输入另一个数字。
相关问题
使用vbs让用户输入一个数组再过三秒输入一个数字
我可以回答这个问题。以下是一个使用vbs让用户输入一个数组再过三秒输入一个数字的示例代码:
```
Dim arr(4)
For i = 0 To 4
arr(i) = InputBox("请输入第" & i+1 & "个数字:")
Next
WScript.Sleep 3000
Dim num
num = InputBox("请再输入一个数字:")
WScript.Echo "数组中的数字为:" & Join(arr, ", ")
WScript.Echo "输入的数字为:" & num
```
这个代码会让用户输入一个长度为5的数组,然后等待三秒钟,最后再让用户输入一个数字,并将数组和数字输出到屏幕上。
帮我写一个vbs脚本 自动把数字 1 不全成 001
好的,以下是一个简单的vbs脚本,它可以将文件名中的数字1前面不足两位的部分自动补全成001:
```
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(".")
For Each objFile In objFolder.Files
strFileName = objFile.Name
If InStr(strFileName, "1") > 0 Then
intIndex = InStrRev(strFileName, "1")
If intIndex < Len(strFileName) - 2 Then
strNewName = Left(strFileName, intIndex) & "001" & Right(strFileName, Len(strFileName) - intIndex - 1)
objFile.Name = strNewName
End If
End If
Next
```
请将上述代码保存为一个.vbs文件,然后将该文件放置在你想要处理的文件夹中,双击运行即可。请注意备份你的文件夹,以免意外删除数据。