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