早教吧作业答案频道 -->其他-->
英语翻译onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t60-c""说我是猪,不说我是猪就一分钟关你机,不信,试试···""",0,truedimadowhile(a"
题目详情
英语翻译
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true
dim a
do while(a "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"
还有为什么要用.VBE的后缀呢!不解.
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true
dim a
do while(a "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"
还有为什么要用.VBE的后缀呢!不解.
▼优质解答
答案和解析
on error resume next '防止出现意外错误
dim WSHshellA '定义变量WSHshellA
set WSHshellA = wscript.createobject("wscript.shell") '创建对象WSHshellA,用于运行程序等
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true '隐藏执行关机命令,这里应该把true去掉
dim a '定义变量a
do while(a "我是猪") '当变量a"我是猪"时,继续循环
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000) '建立对象a,用于用户输入信息
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" '输出用户输入信息
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" '弹出对话框
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true '隐藏执行放弃关机命令,这里true应该去掉
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾" '弹出对话框
dim WSHshellA '定义变量WSHshellA
set WSHshellA = wscript.createobject("wscript.shell") '创建对象WSHshellA,用于运行程序等
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true '隐藏执行关机命令,这里应该把true去掉
dim a '定义变量a
do while(a "我是猪") '当变量a"我是猪"时,继续循环
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000) '建立对象a,用于用户输入信息
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" '输出用户输入信息
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" '弹出对话框
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true '隐藏执行放弃关机命令,这里true应该去掉
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾" '弹出对话框
看了 英语翻译onerrorres...的网友还看了以下:
在电源输出功率与外电阻的关系中当外电阻=内电阻时,电源输出功率取到最大值可是如果R外不变,R内从0 2020-04-08 …
关于英式R的发音,知道的进小弟现在有一个问题搞不懂,R什么时候发音、而什么时候不发音?小弟现有知识 2020-05-13 …
如图所示电路,利用半偏法测电流表内阻时,按正确方法操作,若表头满偏时电阻箱R1读数为R,表头半偏时 2020-06-05 …
魔方公式R'U'R'U'R'URUR是什么意思我要转魔方,公式看不懂,R'U'R'U'R'URUR 2020-07-04 …
我是俄罗斯族,读英语时发不好R的音,每次遇到R这个音,我一般会特意忽略它,不读出它的音.因为我总会 2020-07-07 …
物理Q=I2Rt变形后Q=U2t/R,其他不变,R增大时,前者Q增大,后者Q减少,怎么回事,错误出 2020-08-02 …
为什么有些函数不能积分,求大侠帮忙算一下看能不能积?(R^2-x^2)^(1/2)*(r^2-x^ 2020-08-02 …
所有r+1阶子式全等于0所有高于r+1子式全等于0按行展开的话代数余子式虽然是r+1阶行列式,但它 2020-08-03 …
高数不定积分定义域问题高数不定积分令u=tanx/2的万能代换所求结果包含tanx/2定义域不为R例 2020-12-08 …
电路复习题,搞不懂那个电流源怎么处理.电路如图所示,设R=150Ω,试用戴维南定理求电路中的电流I, 2020-12-13 …