Option Explicit Sub无限弹窗() '定义一个名为无限弹窗的子程序 Dim msgBoxResult As Integer '声明一个变量来存储消息框的结果 Do While True '无限循环,直到用户关闭程序或手动停止循环为止 msgBoxResult = MsgBox("这是一个恶作剧弹窗!请关闭它。", vbCritical, "恶作剧弹窗") '显示一个带有标题的警告消息框 ...
解析:do和loop是无限循环,而中间夹着的一个循环体,就是要无限循环的代码。 04 在两行中间输入:msgbox( "你要说的话" )回顾:msgbox是提示框的意思,打开后将会出现一个提示框,提示你要说的话。而加入无限循环,则会让你要说的话一直循环。我写的如图二,仅供参考。 05 保存后,关闭,然后重命名,将后缀改成....
1、=口= 目测会死机 没学过vb 但java里do语句是循环语句 目测不能退出循环 你这种死循环拿出来溜 完全在整人。