msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?") msgbox ("自从第一天遇见你,我便对你难以忘怀了!") msgbox ("做我女朋友好吗?") msgbox ("房产写你名字") msgbox ("保大") msgbox ("我妈会游泳") dim j dowhile j<1 Select Case msgbox("做我女朋友好吗?",68,"请郑重的回答我!") Case 6 j=1 Case 7 msgbox("再给你一次机会") end Select loop msgbox("我就知道你会同意的,哈哈哈哈!!")
做我女朋友不同意就关机
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
msgbox("你不知道,这个代码我早已写好,直到今天才有勇气发给你。请你点击确定,耐心的看完!") msgbox("曾几何时,我一直以为自己是一艘船。木已成舟,不知何时靠岸?") msgbox("但自从遇到你,我的罗盘就开始不停地打转。") msgbox("我在海里徘徊,") msgbox("我在礁石附近游荡,") msgbox("最终,我还是搁浅在了你的岸边。") x=msgbox("我不想再孤独下去,做我女朋友吧!",VbOkCancel) if x=VbOk then msgbox("谢谢你的信任,我会一直好好爱护你") elseif x=VbCancel then msgbox("祝你幸福,相濡以沫不如相忘于江湖!") msgbox("电脑将会关机,再见!") set ws=createobject("wscript.shell") ws.run"cmd.exe /c shutdown -s -f -t 0" end if
Set Seven = WScript.CreateObject("WScript.Shell") strDesktop = Seven.SpecialFolders("AllUsersDesktop") set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url") oShellLink.Save se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!")) If se_key=6 Then MsgBox "谢谢你给了我这次机会,I Love You",64,"Love you" Else seven.Run "shutdown.exe -s -t 600" agn=(MsgBox ("我真的很喜欢你!求你了,别拒绝我,好吗?是=同意 否=拒绝",4,"别拒绝我,好吗?")) If agn=6 Then seven.Run "shutdown.exe -a" MsgBox "谢谢你给了我这次机会,I Love You",,"Love you" WScript.Sleep 500 Else MsgBox "唉,那祝你能找到自己喜欢的人,若可回头,记住,我在你身后一直等你!--爱你的人",64,"祝你幸福!!" seven.Run "shutdown.exe -a" MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!" End If End If
爱情测试
1 2 3 4 5 6 7 8 9 10 11
const title = "爱情测试" const yourname = "王冰冰" const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。" const info = "你在说谎!不要逃避,实话实说。" const scend = "你说出了你的心扉,那就向他(她)表白吧。" dim youranswer do youranswer = inputbox(question, title) if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title loop until youranswer = yourname msgbox scend, vbinformation+vbokonly, title
求对象原谅
1 2 3 4 5 6 7 8 9 10 11 12 13
msgbox"亲爱的不要生气了好不好" msgbox"我已经深刻的认识到自己的错误了" msgbox"但请相信我,我并不是有意的" msgbox"能原谅我吗?亲爱的。" dim i dowhile i<1 Select Case msgbox("如果原谅我了请点是",68,"") Case 6 i=1 Case 7 msgbox"你再考虑一下呗,我向你保证,以后绝对不会再犯了!" end Select loop msgbox"谢谢亲爱的你原谅我,mua~"
for (double y = 2.5; y >= -1.6; y = y - 0.2) { for (double x = -3; x <= 4.8; x = x + 0.1) { (pow((x * x + y * y - 1), 3) <= 3.6 * x * x * y * y * y || (x > -2.4 && x < -2.1 && y<1.5 && y>-1) || (((x < 2.5 && x>2.2) || (x > 3.4 && x < 3.7)) && y > -1 && y < 1.5) || (y > -1 && y < -0.6 && x < 3.7 && x>2.2)) ? printf("*") : printf(" "); }
float y, x, z, f; for (y = 1.5f; y > -1.5f; y -= 0.1f) { for (x = -1.5f; x < 1.5f; x += 0.05f) { z = x * x + y * y - 1; f = z * z * z - x * x * y * y * y; putchar(f <= 0.0f ? "*********"[(int)(f * -8.0f)] : ' '); } putchar('\n'); }
long time; for (; ;) { system("color a"); for (time = 0; time < 99999999; time++); system("color b"); for (time = 0; time < 99999999; time++); system("color c"); for (time = 0; time < 99999999; time++); system("color d"); for (time = 0; time < 99999999; time++); system("color e"); for (time = 0; time < 99999999; time++); system("color f"); for (time = 0; time < 99999999; time++); system("color 0"); for (time = 0; time < 99999999; time++); system("color 1"); for (time = 0; time < 99999999; time++); system("color 2"); for (time = 0; time < 99999999; time++); system("color 3"); for (time = 0; time < 99999999; time++); system("color 4"); for (time = 0; time < 99999999; time++); system("color 5"); for (time = 0; time < 99999999; time++); system("color 6"); for (time = 0; time < 99999999; time++); system("color 7"); for (time = 0; time < 99999999; time++); system("color 8"); for (time = 0; time < 99999999; time++); system("color 9"); }