消息提示框的制作方法

nnsea

Alt+F11打开VBA窗口，双击【ThisWorkBook】，输入下列代码：

Private Sub Workbook_Open()

MsgBox "你的电脑严重感染病毒！系统急剧升温中，点击确定查杀病毒", vbOKOnly, "高温报警"

MsgBox "病毒顽固，无法查杀，受病毒影响，CPU将在10分钟内开启自爆模式，请远离你的电200米距离脑", vbOKOnly, "自爆报警"

MsgBox "点击确定，立刻引爆CPU", vbOKOnly, "一级报警"

End Sub