Private Sub Command1_Click()
If Text1 = "发哥威武" Then
Do While MsgBox("1+1=1?", vbYesNo) <> vbYes
MsgBox "fuck,1+1=2"
Loop
Do While MsgBox("2+2=3?", vbYesNo) <> vbYes
MsgBox "fuck,2+2=4"
Loop
Do While MsgBox("3+3=3?", vbYesNo) <> vbYes
MsgBox "fuck,3+3=6"
Loop
Do While MsgBox("听你是?", vbYesNo) <> vbYes
MsgBox "fuck,讲真话"
Loop
MsgBox "请稍后,系统正测试您的脑残程度"
MsgBox "loading"",请勿移动鼠标!"
MsgBox "请对电脑学狗叫", 16 + 4096, "警告"
MsgBox "请狂点鼠标!", 16 + 4096, "警告"
Do While MsgBox("你帅不?", vbYesNo) <> vbNo
Loop
Do While MsgBox("你吊不?", vbYesNo) <> vbNo
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("你牛不?", vbYesNo) <> vbNo
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("你厉害不?", vbYesNo) <> vbNo
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("听说你现在还尿床?", vbYesNo) <> vbYes
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("相信是发哥搞的这个不?", vbYesNo) <> vbYes
MsgBox "对不起,您脑残程度过高,系统无法测出", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
Do While MsgBox("相信是发哥搞的这个不?", vbYesNo) <> vbYes
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
MsgBox "fuck!", 16 + 4096, "警告"
Loop
Loop
MsgBox "请稍后 正在计算!"
MsgBox "请稍后 正在计算!"
MsgBox "请稍后 正在计算!"
MsgBox "请稍后 正在计算!"
MsgBox "请稍后 正在计算!"
MsgBox "请稍后 正在计算!"
MsgBox "请稍后 正在计算!"
MsgBox "请稍后 正在计算!"
MsgBox "对不起,您脑残程度过高,系统无法测出", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
Do While MsgBox("系统出现严重错误!请向发哥求救", vbYesNo) <> vbYes
MsgBox "fuck"
Loop
Do While MsgBox("系统出现严重错误!请向发哥求救", vbYesNo) <> vbYesvb所有代码
MsgBox "fuck"
Loop
Do While MsgBox("发哥帅不?", vbYesNo) <> vbYes
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("
发哥吊不?", vbYesNo) <> vbYes
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("发哥牛不?", vbYesNo) <> vbYes
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("发哥厉害不?", vbYesNo) <> vbYes
MsgBox "fuck,讲真话"
Loop
Do While MsgBox("还敢不尊敬发哥不?", vbYesNo) <> vbNo
MsgBox "fuck,"
MsgBox "对不起,您脑残程度过高,系统无法测出", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
MsgBox "系统出现严重错误!", 16 + 4096, "警告"
Loop
MsgBox "对嘛 这才是好孩子"
End If
End Sub

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。