添加下面的代码: If MsgBox("是否继续程序运行?选择否将退出。", vbYesNo + vbInformation, "消息提示") = vbNo Then End end if
第2个回答 2012-11-12
定义一个全局变量,用Do循环等待返回变量值
第3个回答 2012-11-12
Private Sub Command1_Click() Dim x As Integer Print 1 Print 2 Print 3 Print 4 Print 5 x = MsgBox("是否继续?", vbYesNo) If x = 7 Then End Print 6 Print 7 Print 8 Print 9 Print 10