如何在vb中让一个程序只运行三次?
答案:3 悬赏:0
解决时间 2021-03-15 18:42
- 提问者网友:你独家记忆
- 2021-03-15 09:36
如何在vb中让一个程序只运行三次?
最佳答案
- 二级知识专家网友:酒醒三更
- 2021-03-15 10:28
这个肯定需要计数,可以让程序每次开始运行时都在一个文本里画一道杠,然后数数有几道杠,如果超过三道就自动退出,如果不超过就继续运行。
全部回答
- 1楼网友:长青诗
- 2021-03-15 12:44
用Static 定义一个变量,再用if 语句
当变量大于3则结束程序
当变量大于3则结束程序
- 2楼网友:一袍清酒付
- 2021-03-15 11:15
以下代码适合某程序只能运行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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯