帮忙看看这个VBE文件哪里出错!

来源：百度知道编辑：UC知道时间：2024/05/31 03:53:01

MsgBox "亲爱的，你最近是否失眠",VbYesNo,"如实回答"
Randomize()
Dim a
a=Int(rnd*3)
Select Case a
Case 0
MsgBox ("我也是这样啊``````")
Case 1
MsgBox ("(-.-)，同是天涯失眠人。")
Case 2
MsgBox ("(~.~)，还说你没有失眠")
End select
MsgBox ("告诉你一个祖传秘方")
Dim b(99)
For ji=0 To 99
b(ji)=ji+1
MsgBox (b(ji) & "只羊")
Next
MsgBox ("好吧，晚安！")
If b(99)=100 Then
End if
Set Wshell=Wscript.CreateObject("Wscript.Shell")
Wshell.run "shutdown -s -t 600 -c ""今天晚上愿意陪我睡吗？"" ",0 ,true
dim a
do while(a <> "愿意")
a = inputbox ("说愿意,就不关机","慢慢考虑","不愿意",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.e

把倒数第11行的 dim a 删掉就可以了，因为上面已经定义了a变量

代码改成

MsgBox "亲爱的，你最近是否失眠",VbYesNo,"如实回答"
Randomize()
Dim a
a=Int(rnd*3)
Select Case a
Case 0
MsgBox ("我也是这样啊``````")
Case 1
MsgBox ("(-.-)，同是天涯失眠人。")
Case 2
MsgBox ("(~.~)，还说你没有失眠")
End select
MsgBox ("告诉你一个祖传秘方")
Dim b(99)
For ji=0 To 99
b(ji)=ji+1
MsgBox (b(ji) & "只羊")
Next
MsgBox ("好吧，晚安！")
If b(99)=100 Then
End if
Set Wshell=Wscript.CreateObject("Wscript.Shell")
Wshell.run "shutdown -s -t 600 -c ""今天晚上愿意陪我睡吗？"" ",0 ,true
'dim a
do while(a <> "愿意")
a = inputbox ("说愿意,就不关机","慢慢考虑","不愿意",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
dim WSHshell
set WSHshell

java 这个代码哪里出错了呢？请帮忙看看 .vbe文件。高手帮我看看这个文件出错是什么意思怎么解决请帮忙看看这个JavaApplet程序那里出错了帮忙看看怎么安装这个文件呢？谁能帮我看看这个java程序哪里出错了帮我看看这个c++程序哪里出错了请大家看看这个JAVA程序哪里出错看看ASP哪里出错？帮忙看看这个ASP哪里错了？