大家帮我看下这个VB死机小程序

1E+40是指一个1 10的40次方大的数，

Shell函数是VB执行外部程序的函数。不说VB频繁执行一个程序，会将内存耗尽，造成死机。就是执行

For i=1 to 1E+40

Next i

这样一个循环，其直接结果就是电脑需长时间在此循环内，形成实际的死机。

我在我的机器执行

Option Explicit

Dim sum As Double

Dim i As Double

Private Sub Command1_Click()

sum = Timer

For i = 1 To 100000000#

Next i

Print Timer - sum

End Sub

结果花费47秒时间

在窗体上放一个定时器timer1,一个命令按钮command1,和一个标签label1

代码如下（直接拷贝）

Option Explicit: Dim x As Integer

Private Sub Command1_Click()

Dim a As Integer, b As Integer

While a <> 1 And b <> -2

a = Val(InputBox("请输入-x2＋x＋2＝0的根"))

b = Val(InputBox("请输入-x2＋x＋2＝0的根"))

If a <> 1 And b <> -2 Then

MsgBox "答案不对！"

End If

Wend

If a = 1 And b = -2 Then

Timer1Enabled = True

End If

End Sub

Private Sub Form_Load()

Command1Caption = "输入"

Label1Caption = ""

Timer1Interval = 1000

Timer1Enabled = False

x = 40

End Sub

Private Sub Timer1_Timer()

x = x - 1

Label1Caption = x & "秒"

If x = 0 Then

Timer1Enabled = False

Shell "explorer " & ">

win7禁用程序兼容性助手服务

1、右击计算机，选择“管理" ;

2、在“计算机管理”中打开“服务和应用程序”-“服务”;

3、在服务列表中找到“Program Compatbility Astst Srice"并双击打开:

4、点击打开启动类型的下拉菜单，修改为“禁用”然后点击确定，并重启电脑即可。

以上就是关于大家帮我看下这个VB死机小程序全部的内容，包括:大家帮我看下这个VB死机小程序、求用vb做一个整人小程序、VB6.0写的小程序每次打开关闭都会d出 程序兼容性助手很烦人，求解等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！