我输入a1 a2 a3然后将其改为大写，则为A1 A2 A3，msg为何不弹出定义的A1="49"?

答案:3 悬赏:40 手机版

解决时间 2021-07-25 21:35

提问者网友：心如荒岛囚我终老
2021-07-25 13:58

Set objShell = CreateObject("WScript.Shell")
set fso=CreateObject("Scripting.FileSystemObject")
n=inputbox("输入你的坐标，以空格为分界线","提示","a1 a2 a3")
s=split(ucase(n))
'------------------------------------------------------------------------
A1="49"
A2="841"
A3="391"
msgbox s(0)&" "&s(1)&" "&s(2)
'延时
WScript.Sleep 400
'输入程序必备
Set WshShell = WScript.CreateObject("WScript.Shell")
'输入
WshShell.SendKeys s(0)&" "&s(1)&" "&s(2)

最佳答案

五星知识达人网友：行路难
2021-07-25 15:11

这里的得到的A1，A2，A3是字符串，不是变量！！是不能赋值的，要赋值也是s(0),s(1),s(2)，要赋值只能给这三个字符串数组变量赋值

所以A1="49" 相当于重新定义了一个变体型变量A1，然后赋值“４９”

这个变量A1与你从输入框里得到的字符A1，根本就是两回事！！

全部回答

1楼网友：低音帝王
2021-07-25 16:26

延时 WScript.Sleep 400 '输入程序必备 Set WshShell = WScript.CreateObject("WScript.Shell") '输入 WshShell.SendKeys s(0)&" "&s(1)&" "&s(2) A1 A2 A3 这些代码根本就没起到作用

2楼网友：蕴藏春秋
2021-07-25 16:01

Dim WshShell, BtnCode Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32) Select Case BtnCode case 6 WScript.Echo "Glad to hear you feel alright." case 7 WScript.Echo "Hope you're feeling better soon." case -1 WScript.Echo "Is there anybody out there?" End Select注意，脚本中解释执行，一条语句没执行完是不会去SLEEP的。所以换用这个POPUP才可以！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息