情人節表白代碼,情人節馬上就要到了,可以製作自己專屬的表白網頁,給女友一個不一樣的情人節,利用代碼給女友做一個前所未有的情人節禮物吧,以下爲大家分享情人節表白代碼
情人節表白代碼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、 浮世萬千,摯愛有三,噴薄朝陽,皓婉皎月,不及汝爾,滄海桑田。