问：
如何用vbs做出一个能输入多个密码的程序
答：
用VBS可以这样写一个输入多个密码的程序:
1. 定义一个空的密码数组:
Dim passwords()
2. 设置密码个数变量,提示用户输入密码个数:
Dim count
count = InputBox("请输入需要输入的密码个数:")
3. 根据密码个数,重新定义密码数组的大小:
ReDim passwords(count - 1)
4. 用For循环提示用户依次输入每个密码,并存入数组:
For i = 0 to count - 1
passwords(i) = InputBox("请输入第" & i + 1 & "个密码:")
Next
5. 定义一个变量,存储用户输入的密码:
Dim inputPassword
6. 提示用户输入密码,用For Each循环依次比较每个密码:
inputPassword = InputBox("请输入密码:")
For Each password in passwords
If inputPassword = password Then
MsgBox "密码正确!"
Exit Sub
End If
Next
7. 如果循环结束还未找到匹配密码,则提示密码错误:
MsgBox "密码错误!"
8. 完整代码如下:
Dim passwords()
Dim count
count = InputBox("请输入需要输入的密码个数:")
ReDim passwords(count - 1)
For i = 0 to count - 1
passwords(i) = InputBox("请输入第" & i + 1 & "个密码:")
Next
Dim inputPassword
inputPassword = InputBox("请输入密码:")
For Each password in passwords
If inputPassword = password Then
MsgBox "密码正确!"
Exit Sub
End If
Next
MsgBox "密码错误!"
以上VBS代码定义了一个数组来存储多个密码,并在用户输入密码时遍历数组判断正确性,实现了一个可以输入多个密码的简单程序。