送給親愛的最好的 最驚喜的VB程式禮物

時間 2021-05-05 15:16:46

1樓:匿名使用者

呵呵~~ok的拉~~我幫你弄個**~~form1**:private sub form_load()

timer1.interval = 1000timer3.interval = 1150timer4.

interval = 1300timer5.interval = 1450timer6.interval = 1600timer7.

interval = 1750timer8.interval = 1900timer9.interval = 2050timer10.

interval = 2200timer11.interval = 2350timer2.interval = 2600picture1.

visible = falsepicture2.visible = falsepicture3.visible = falsepicture4.

visible = falsepicture5.visible = falsepicture6.visible = falsepicture7.

visible = falsepicture8.visible = falsepicture9.visible = falseend sub private sub timer1_timer()dim a as integer, b as integer, c as integer

fontsize = 30

scale (-320, 320)-(320, -320)clsprint "聖誕快樂"

for c = 1 to 80

drawwidth = 6

a = 320 * rnd

b = 320 * rnd

if rnd < 0.5 then a = -aif rnd < 0.5 then b = -bpset (a, b), qbcolor(rnd * 15)next c

end subprivate sub timer10_timer()picture8.visible = trueend subprivate sub timer11_timer()picture9.visible = trueend subprivate sub timer2_timer()form1.

show

unload me

msgbox "聖誕節刀仔祝福你們聖誕快樂~~~送你們一首歌(*^ _ ^*)~", , "送禮物咯`````"

end subprivate sub timer3_timer()picture1.visible = trueend subprivate sub timer4_timer()picture2.visible = trueend subprivate sub timer5_timer()picture3.

visible = trueend subprivate sub timer6_timer()picture4.visible = trueend subprivate sub timer7_timer()picture5.visible = trueend subprivate sub timer8_timer()picture6.

visible = trueend subprivate sub timer9_timer()picture7.visible = trueend sub form2**:

2樓:匿名使用者

2月14號就是情人節啦,所以偶趕快在網上買了一對可愛的飄飄熊 到時候「情人節」給女朋友當禮物 飄飄熊既可愛 還可以取暖呢...哈哈

3樓:匿名使用者

呵呵,你就簡單寫乙個跑馬燈吧,寫上你愛她的千言成語。。。

「來吧親愛的朋友,來吧親愛的夥伴」

the one 的 我們相愛吧 好好聽。愛是包容而不是放縱,我認為開心相處吧。只要真心尊重他,他一定會更加倍的對你好的,勇敢追尋屬於你的愛情哦!求表達感情無奈的歌曲 數到三不哭,愛 是對的。那就這樣吧。動力火車。k歌之王 國 粵 陳奕迅。淘汰 陳奕迅。你怎麼捨得我難過 黃品源。你很無奈麼?啊杜的差一...

親愛的聽我為你唱首歌這首歌送給我最愛的老婆你為家付出的太多我為了生活卻把你冷漠親愛的聽

這歌叫什麼名字,我想聽聽 雖然我不會編曲,看到你的表白,我很感動,你的家庭會很幸福的,祝福你!幸福是什麼,幸福就是我們一起賭博出自哪首歌 正確歌詞 幸福是什麼 幸福就是你和我 出自 送給老婆的歌 歌手 王亞東 詞曲 王亞東 所屬 來自鶴壁的王亞東 歌詞原文 這首歌送給我最愛的老婆 你為家付出的太多 ...

親愛的對不起我錯了,親愛的對不起我錯了英文怎麼寫

我認為真正的愛,是接受,不是忍受 是支援,不是支配 是慰問,不是質問。真正的愛,要道謝也要道歉 要體貼,也要體諒 要認錯,也好改錯。真正的愛,不是彼此凝視,而是共同沿著同一方向望去。也許,愛,不是尋找一個完美的人 而是,要學會用完美的眼光,欣賞一個不完美的人。牽了手,就不要,隨便說分手。或許,愛就是...