Private Sub Form_Terminate()For i = 1 To 100If que(i) "" Thent1 = 9End IfNextIf t1 = 9 Thent1 = MsgBox("真的要退出吗?(注:退出后您所输入的数据将全部丢失!)",vbYesNo + vbExclamation,"单选题自动生成器")If t1 = 6 Then End e

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 00:55:24

Private Sub Form_Terminate()For i = 1 To 100If que(i) "" Thent1 = 9End IfNextIf t1 = 9 Thent1 = MsgBox("真的要退出吗?(注:退出后您所输入的数据将全部丢失!)",vbYesNo + vbExclamation,"单选题自动生成器")If t1 = 6 Then End e
Private Sub Form_Terminate()
For i = 1 To 100
If que(i) "" Then
t1 = 9
End If
Next
If t1 = 9 Then
t1 = MsgBox("真的要退出吗?(注:退出后您所输入的数据将全部丢失!)",vbYesNo + vbExclamation,"单选题自动生成器")
If t1 = 6 Then End else
Else
End
End If
End Sub
这是程序,我想知道倒数第五行的else后面若不想退出该怎样写!

Private Sub Form_Terminate()For i = 1 To 100If que(i) "" Thent1 = 9End IfNextIf t1 = 9 Thent1 = MsgBox("真的要退出吗?(注:退出后您所输入的数据将全部丢失!)",vbYesNo + vbExclamation,"单选题自动生成器")If t1 = 6 Then End e
你应该把这段代码写到form_unload中,那么else后面可以写 cancle=1以不退出.