VB 编译错误：无效外部过程

是把代码写在子过程、函数过程或属性过程外而发生的错误。

在过程外无效：

该语句必须发生在子过程、函数过程或属性过程（Property Get、Property Let 和

Property Set）内部。这个错误的起因与解决方法如下所示：

*一个可执行的语句，如 Static 或 ReDim，出现在模块级别中。

在模块级中 Static 是不需要的，因为所有的模块级变量都是静态的。在模块级中用 Dim 来代替

ReDim。想要在模块级中创建动态数组，请用

Dim 加空括弧来声明它。

注意 在模块级只能使用注释与声明性语句，例如

Const、Declare、Deftype、Dim、Option Base、Option

Compare、Option Explicit、Option

Private、Private、Public 和

Type。子过程、函数过程和属性过程语句发生在它们的过程体之外，但在过程内声明。

“Windows”文件夹中的“temp”文件被删或被修改.解决方法:鼠标右击桌面,新建文件夹将其重命名为“temp”,将这个“temp”文件移动到“Windows”文件夹中,就OK了!(记住,“Windows”文件夹包含很多系统文件,不要轻易删除或修改),如果是电脑病毒无能为力.

前后加两句。

＝＝＝＝＝＝＝＝＝＝＝＝

Private sub form_load() '加

On Error Resume Next

Dim WSHshellA

Set WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 20 -c ""说我是傻瓜，否则20秒内自动关机，不信，试试···"" ", 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) + "哈哈哈哈，傻瓜万岁！！"

end sub '加

---