Question

VB编写的exe在运行时莫名其妙退出

我用VB编了个程序，代码如下。
在VB环境下运行时，什么问题都没有。
但是编出的exe在运行时却会出现入注释所说的问题。

DimRiQi As String
Retry: RiQi= InputBox("Which file to open?", "Choose file", Month(Now)& "/" & Day(Now)) ‘有的时候运行到这里就莫名其妙退出。意思就是，在任务管理器里，exe进程突然消失。
Dim YueAs Byte, Ri As Byte
Yue = Val(Left(RiQi,InStr(RiQi, "/")))
Ri = Val(Right(RiQi,Len(RiQi) - InStr(RiQi, "/")))
IfInStr(RiQi, "/") = 0 Or Yue <= 0 Or Yue > 12 Or Ri <= 0 OrRi > 31 Then
If MsgBox("Please input the file youwant to open and press “OK”.", vbCritical + vbRetryCancel, "Error")= vbCancel Then
End
End If
GoTo Retry
End If
FileName= Yue * 31 + Ri
OpenApp.Path & "/Files/" & FileName & ".dat" ForBinary As #1
DimChecker As Byte
Get #1,1, Checker
IfChecker <> 254 Then
If MsgBox("No such file. Want to newone?", vbQuestion + vbOKCancel, "New") = vbOK Then ‘也有的时候可以跳出这个inputbox。
Put #1, 1, 254
Else
Close #1
GoTo Retry
End If
End If
P = 1
Timer1.Interval= 1 ‘也有的时候会在运行到这里的时候突然退出，症状同上。

就是这样。三个语句在运行时会随机地莫名结束程序—‍—根本没有其他因素影响，就是完全的“随即”。
求教，这是怎么回事。

Answer 1

很简单ptx你把退出按钮的end语句换成unload就可以了lp留邮箱可以发个实例给你

追问

直接在知道上上传文件吖!!!