情人节表白代码
本文已影响8.7K人
本文已影响8.7K人
情人节表白代码,情人节马上就要到了,可以制作自己专属的表白网页,给女友一个不一样的情人节,利用代码给女友做一个前所未有的情人节礼物吧,以下为大家分享情人节表白代码
情人节表白代码1
代码1:做我女朋友非同意不可
msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?")msgbox ("自从第一天遇见你,我便对你难以忘怀了!")msgbox ("做我女朋友好吗?")msgbox ("房产写你名字")msgbox ("保大")msgbox ("我妈会游泳")dim jdo while j<1Select Case msgbox("做我女朋友好吗?",68,"请郑重的回答我!")Case 6 j=1Case 7 msgbox("再给你一次机会")end Select
loopmsgbox("我就知道你会同意的,哈哈哈哈!!")
代码2:做我女朋友不同意就关机
msgbox("你不知道,这个代码我早已写好,直到今天才有勇气发给你。请你点击确定,耐心的看完!")msgbox("曾几何时,我一直以为自己是一艘船。木已成舟,不知何时靠岸?")msgbox("但自从遇到你,我的罗盘就开始不停地打转。")msgbox("我在海里徘徊,")msgbox("我在礁石附近游荡,")msgbox("最终,我还是搁浅在了你的岸边。")x=msgbox("我不想再孤独下去,做我女朋友吧!",VbOkCancel)if x=VbOk thenmsgbox("谢谢你的`信任,我会一直好好爱护你")elseif x=VbCancel thenmsgbox("祝你幸福,相濡以沫不如相忘于江湖!")msgbox("电脑将会关机,再见!")set ws=createobject("l")" /c shutdown -s -f -t 0"end if
代码3:做我女朋友,即使不同意因为更爱你所以撤销关机
Set Seven = teObject("l")strDesktop = ialFolders("AllUsersDesktop")set oShellLink = teShortcut(strDesktop & "")
se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!"))If se_key=6 Then
MsgBox "谢谢你给了我这次机会,I Love You",64,"Love you"Else
" -s -t 600"agn=(MsgBox ("我真的很喜欢你!求你了,别拒绝我,好吗?是=同意 否=拒绝",4,"别拒绝我,好吗?"))If agn=6 Then
" -a"MsgBox "谢谢你给了我这次机会,I Love You",,"Love you"p 500Else
MsgBox "唉,那祝你能找到自己喜欢的人,若可回头,记住,我在你身后一直等你!--爱你的人",64,"祝你幸福!!" " -a"MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"End If
End If
代码4:爱情测试
const title = "爱情测试"const yourname = "王冰冰"const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。"const info = "你在说谎!不要逃避,实话实说。"const scend = "你说出了你的心扉,那就向他(她)表白吧。"dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title
情人节表白代码2
(1)静态心
import ot as plt
import numpy as np
t=ge(0,2*,0.1)
x=16*(t)**3
y=13*(t)-5*(2*t)-2*(3*t)(4*t)
(x,y,color="red")
()
(2)动态心
import turtle
from turtle import *
def curvemove():
for i in range(200):
right(1)
forward(1)
e("请人节")#为图像设置标题
ize(width=5)#画笔宽度
color("red","pink")#画笔颜色以及填充颜色
begin_fill()
left(140)#逆时针旋转140度
d(1)#画线速度
forward(111.65)#向前行走111.65
curvemove()#调用curvemove函数
left(120)
curvemove()
d(1)
forward(111.65)
end_fill()
()#停止画线
left(230)
forward(75)
e("I LOVE YOU ",align="Center",font=("Arial", 16, "normal"))
done()
情人节表白代码3
情人节表白句子
1、人间烟火,眼里是你,心里是你,梦里也是你。
2、世界需要讲讲道理,而我最是偏心你。
3、我一点都不遗憾没有在最好的时光遇见你,因为遇见你之后最好的时光才开始。
4、不是最好的时光里有你在,而是你在,我才有了最好的时光。
5、在所有不被想起的快乐里,我最喜欢你。在所有人事已非的景色里,我最喜欢你。
6、这么多年,你一直在我心口幽居,我放下过天地,却从未放下过你。
7、过往皆不念,心中只念你,悲喜皆不谈,开口只谈你。
8、春天会下雪,夏天有大雨,秋天会起风,冬天有艳阳,一年四季会有很多意外,但最迷人的,还是遇见了你。
9、你像夏至的分界线,是我一生里最长的那个白天。
10、我这一生遇到过很多人,他们如同指间的烟火,忽明忽暗,最后只沦为一抹灰烬,而你不同,你如北斗,闪耀在我的整个人生。
11、我想要做你的枕边书,怀中猫,心上人。
12、感谢时光,不偏不倚,躲过了风口浪尖,让我恰好遇见你。
13、我还是很喜欢你,像风走了八千里,不问归期;我还是很喜欢你,像雨洒落在热带与极地,不远万里。
14、一屋两人,一日三餐,四季有你,这就是爱情最好的归宿。
15、如果有人问我为什么爱你,我觉得我只能如此回答:因为是你,因为是我。
16、春有百花,秋有月,夏有凉风,冬有雪,而我只想早晚都有你。
17、 右手敬礼,左手牵你。
18、我会毫不犹豫的奔向你,这次,每次,次次。
19、 昨夜有繁星满天,今早有朝霞渐起。你看见也好,看不见也没关系,我找到你,它们才有意义。
20、“我已经很久没偷柿子了 ”。——小燕子对永琪说的话。
21、“我想要两个西柚”—— I want to see you。
22、 浮世万千,挚爱有三,喷薄朝阳,皓婉皎月,不及汝尔,沧海桑田。
七夕情人节表白段子
情人节表白浪漫的话
情人节表白 12星座最想听到的情话
愚人节表白好吗 愚人节表白套路大全
2018七夕情人节表白句子:七夕情人节感人表白短信
情人节表白信
七夕情人节表白语
七夕情人节表白情话英文短句
情人节表白短文
情人节送什么礼物表白?情人节表白送什么女生?
情人节浪漫表白句子
七夕情人节表白句子
明天情人节怎么表白
七夕情人节表白短信
白色情人节代表什么 白色情人节送什么礼物
七夕情人节表白语句
七夕情人节浪漫表白情话大全
白色情人节送什么花 玫瑰花送几朵代表什么
七夕情人节表白文案
情人节表白送什么花
情人节表白简语
情人节表白语录
情人节浪漫表白
七夕情人节表白语录
情人节怎么表白
数字爱情密码表白完整大全
情人节浪漫表白方式
情人节浪漫表白语句
七夕情人节表白的话
情人节表白最浪漫情话短句
2017情人节表白套路 2017年情人节微信表白技巧攻略
情人节浪漫表白语
情人节表白的话摘抄