玫瑰花程式
Ⅰ 求满屏幕玫瑰花的程序！！一个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 这个吗？
是否可以解决您的问内题容？