vb限制次数的问题

来源：百度知道 编辑：UC知道 时间：2024/05/12 01:18:44
vb限制次数的问题,我写的代码,为什么总不能编译....应该如何修改.
Private Sub Picture1_Click()
Dim intranum As Integer, i As Integer, j As Integer, A As Integer, Times As Integer, RemainDay As Long
Randomize
RemainDay = GetSetting("MyApp", "set", "times", 0)
If 5 - RemainDay >= 0 Then
MsgBox "现在剩下：" & 5 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
Else
Unload Me
End If
If RemainDay = 5 Then
Unload Me
End If
For i = 1 To 1000
intranum = Int(100 * Rnd) + 1
A = 0
For j = 1 To 10000
A = A + 1
Next j
Text1.Text = CStr(intranum)
Text1.Refresh
Next i
Text1.Text = CStr(intranum)
End Sub
运行一下,程序就无反应了

不能编译的错误提示是什么？

'我试了下。你的没错啊。

Dim intranum As Integer, i As Integer, j As Integer, A As Integer, Times As Integer, RemainDay As Long
Private Sub Picture1_Click()
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 5 Then
End
Else
MsgBox "现在剩下：" & 5 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
Randomize
For i = 1 To 1000
intranum = Int(100 * Rnd) + 1
A = 0
For j = 1 To 10000
A = A + 1
Next j
Text1.Text = CStr(intranum)
Text1.Refresh
Next i
Text1.Text = CStr(intranum)
End If
End Sub

把所有的Unload Me都换成End。

你的代码没问题啊