玫瑰花程式
Ⅰ 求滿屏幕玫瑰花的程序！！一個EXE的程序，打開之後屏幕就出現很多玫瑰花！！[email protected]在線等
發送 請查收~
Ⅱ 關於花程式
1.「（）"代表合生，K（5）：萼片5枚合生
K 5 ：萼片5枚離生
2.如"G（5：5：2）"表示5心皮合生，子房分為5室，每室兩枚胚珠
Ⅲ vb玫瑰花程序能開滿桌面玫瑰花的小程序 源碼VB!可以給我發一份嗎
真好的源代碼沒有，有個在桌面上爬蟲的小程序，
我花了很長時間編寫的嗎，和你的類似，
參考改一下，應該對你有用
Dim aq
Dim a(4) As Integer
Dim b(4) As Integer
Dim n, k, c As Integer, d As Integer
Private Sub Command1_Click()
Unload Form1
End Sub
Private Sub Form_Load()
App.TaskVisible = False
App.Title = " 123"
Form1.Visible = False
Form1.WindowState = 2
Call keybd_event(44, 0, 0, 0)
F
End Sub
Private Sub Form_Resize()
Picture1.Left = 0
Picture1.Top = 0
Picture1.Width = Form1.Width
Picture1.Height = Form1.Height
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Circle (X, Y), 70, QBColor(1)
End Sub
Private Sub Timer1_Timer()
If aq = 2 Then
Form1.Visible = True
Picture1.Picture = Clipboard.GetData()
End If
aq = aq + 1
End Sub
Private Sub qq()
n = 0
On Error Resume Next
k = Int(Rnd() * 4)
Select Case k
Case 0
c = a(4): d = Val(Shape1(0).Height) + b(4)
Case 1
c = a(4): d = (-1) * Val(Shape1(0).Height) + b(4)
Case 2
d = b(4): c = Val(Shape1(0).Width) + a(4)
Case 3
d = b(4): c = (-1) * Val(Shape1(0).Width) + a(4)
End Select
For i = 0 To 3
For j = 0 To 3
If a(i) = c And b(j) = d Then
n = 1
End If
Next j
Next i
If c < 0 Or c > Form1.Width Or d < 0 Or d > Form1.Height Then
n = 1
End If
If n = 1 Then
qq
Else
a(4) = c
b(4) = d
End If
End Sub
Private Sub F()
For i = 0 To 4
a(i) = 500
b(i) = 500
Next i
Form1.WindowState = 2
'DrawMode = 7
For i = 1 To 4
'Load Shape1(i)
Next i
End Sub
Private Sub Timer2_Timer()
For i = 0 To 3
a(i) = a(i + 1)
b(i) = b(i + 1)
Next i
qq
For i = 0 To 4
Shape1(i).Left = a(i)
Shape1(i).Top = b(i)
Next i
End Sub
Ⅳ 玫瑰花程序
我覺得這樣的效果很多語言都可以實現。。
Ⅳ C++程序 玫瑰花數
玫瑰花的物語
1朵玫瑰代表 —— 我的心中只有你 ONLY YOU ！
2朵玫瑰代表 —— 這世界只有我倆！ 3朵玫瑰代表 —— 我愛你 I LOVE YOU ！ 4朵玫瑰代表 —— 至死不渝！
5朵玫瑰代表 —— 由衷欣賞！
6朵玫瑰代表 —— 互敬 互愛 互諒！
7朵玫瑰代表 —— 我偷偷地愛著你！
8朵玫瑰代表 —— 感謝你的關懷扶持及鼓勵 ！
9朵玫瑰代表 —— 長久 ALWAYS ！
10朵玫瑰代表 —— 十全十美 無懈可擊！
11朵玫瑰代表 —— 最愛 只在乎你一人！
12朵玫瑰代表 —— 對你的愛與日俱增！
13朵玫瑰代表 —— 友誼長存！
14朵玫瑰代表 —— 驕傲！
15朵玫瑰代表 —— 對你感到歉意 I'M SORRY！
16朵玫瑰代表 —— 多變不安的愛情！
17朵玫瑰代表 —— 絕望無可挽回的愛！ 18朵玫瑰代表 —— 真誠與坦白！
19朵玫瑰代表 —— 忍耐與期待！
20朵玫瑰代表 —— 我僅一顆赤誠的心！
21朵玫瑰象徵 —— 真誠的愛！
22朵玫瑰象徵 —— 祝你好運！
25朵玫瑰象徵 —— 祝你幸福！
30朵玫瑰象徵 —— 信是有緣！
36朵玫瑰象徵 —— 浪漫！
40朵玫瑰象徵 —— 誓死不渝的愛情！
50朵玫瑰象徵 —— 邂逅不期而遇！
99朵玫瑰象徵 —— 天長地久 FOREVER！
100朵玫瑰象徵 —— 百分之百的愛 100% LOVE！
101朵玫瑰象徵 —— 最 …… 最愛！
108朵玫瑰象徵 —— 求婚！
111朵玫瑰代表 —— 無盡的愛
144朵玫瑰代表 —— 愛你日日月月生生世世
365朵玫瑰代表 —— 想你在每天 999朵玫瑰代表 —— 天長地久、愛無止境
1001朵玫瑰代表 —— 直到永遠
Ⅵ 求一個能讓對方桌面開滿玫瑰花的程序
呵呵
千萬要自己先試用下喔，免得是嚇人的程序是
那你就摻拉
Ⅶ 玫瑰花的花程式
玫瑰抄的花程式玫瑰是薔薇科的。
薔薇科：＊K(5)C5,0A5-∞G∞-1 ∞ ∞ 葉互生，常有托葉。
花兩性，整齊；花托凸隆至凹陷；花部5基數，輪狀排列；花被與雄蕊常結合成花筒；子房上位，少下位。種子無胚 乳。
Ⅷ 我想要一個滿屏幕玫瑰花的程序！！一個EXE的程序，打開之後屏幕就出現很多玫瑰花！
http://tieba..com/p/3055621543 這個嗎？
是否可以解決您的問內題容？