VBS语句问题
答案:1 悬赏:40
解决时间 2021-01-11 00:13
- 提问者网友：人生佛魔见
- 2021-01-10 07:28
VBS语句问题
最佳答案
- 二级知识专家网友：执傲
- 2021-01-10 09:07
x=Urlcode(InputBox("输入SB","呵呵",""))
改
x=InputBox("输入SB","呵呵","")追问没用啊追答xz=InputBox("欢迎来到装逼神器" & Chr(13) & "以下所有文字输入1~10" & Chr(13) & "制作人：杨尼玛 QQ：921747175","装逼版恶搞 [Null_vbt]","")
If Len(xz)=0 Then
MsgBox "你特么在逗我！！！",64,"滚！"
WScript.Quit
else
Select Case xz
Case 1
x=InputBox("输入SB","呵呵","")
If Len(x)=0 Then
MsgBox "你特么在逗我！！！",64,"滚！"
WScript.Quit
else
MsgBox"这就是你",64,"哈哈"
End If
end select
end if
改
x=InputBox("输入SB","呵呵","")追问没用啊追答xz=InputBox("欢迎来到装逼神器" & Chr(13) & "以下所有文字输入1~10" & Chr(13) & "制作人：杨尼玛 QQ：921747175","装逼版恶搞 [Null_vbt]","")
If Len(xz)=0 Then
MsgBox "你特么在逗我！！！",64,"滚！"
WScript.Quit
else
Select Case xz
Case 1
x=InputBox("输入SB","呵呵","")
If Len(x)=0 Then
MsgBox "你特么在逗我！！！",64,"滚！"
WScript.Quit
else
MsgBox"这就是你",64,"哈哈"
End If
end select
end if
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯