Question

如何在vb中让一个程序只运行三次?

Answer 1

这个肯定需要计数，可以让程序每次开始运行时都在一个文本里画一道杠，然后数数有几道杠，如果超过三道就自动退出，如果不超过就继续运行。

Answer 2

以下代码适合某程序只能运行3次(例如只允许试用3次)
Private Sub Form_Load()
Dim a$, b%
If Dir(App.Path & "a.abc") = "" Then End: Exit Sub
Open App.Path & "a.abc" For Input As #1
Line Input #1, a
b = Val(a)
Close #1
If b >= 3 Then
msgbox "程序已经运行了3次"
End
Exit Sub
Else
b = b + 1
Open App.Path & "a.abc" For Output As #1
Print #1, b
Close #1
End If
End Sub

Answer 3

用Static 定义一个变量,再用if 语句
当变量大于3则结束程序