鮮花放Vb
『壹』 求用VB圖形設計實現十朵花、十個長方體和正方體... 謝謝啦～
Private Sub Command1_Click()
Const π = 3.14159127
For i = 0 To 9
For j = 0 To 360 Step 30
Me.Circle (Sin(j * (π / 180)) * 150 + 800 * i + 500, Cos(-j * (π / 180)) * 150 + 500), 100, vbRed
Next
Next
End Sub
Private Sub Command2_Click()
For i = 0 To 9
Line (i * 800 + 250, 1000)-(i * 800 + 750, 1500), vbMagenta, B
Next
End Sub
Private Sub Command3_Click()
For i = 0 To 9
Line (i * 800 + 250, 1700)-(i * 800 + 750, 1900), vbBlue, B
Next
End Sub
Private Sub Command4_Click()
Cls
End Sub
Private Sub Form_Load()
Move 0, 0, 9675, 4300
Me.AutoRedraw = True
Command1.Move 8160, 480, 1215, 495
Command2.Move 8160, 1080, 1215, 495
Command3.Move 8160, 1680, 1215, 495
Command4.Move 8160, 2280, 1215, 495
End Sub
『貳』 買來的鮮花，水裡加什麼可以保鮮長點
鮮花放維生素C和洗潔精可以保鮮時間長些。
鮮花保鮮方法：
准備幾個玻璃花瓶，大小正好把鮮花的莖裝下，盡量選擇口徑小一些的，這樣的水分蒸發慢一些。
找些地下水灌到花瓶里，如果沒有地下水，用自來水要經過消毒處理。可以採用暴曬的方法給自來水消毒。
把鮮花的花莖用剪刀修剪整齊，最好剪成斜面的。
然後把鮮花放到花瓶里，看看水夠不夠，盡量沒過花莖的2/3處。根據花瓶的大小放入適量的鮮花，如果花瓶較小，只能放三四支花，多了就不好了。
有了充足的水分鮮花就能保鮮一段時間了，但想延長保鮮，就要及時更換水，同時每次換水要再稍稍修剪修剪花莖，把花莖的腐爛部分切除。可以多准備一些花瓶，這樣用一段時間更換新花瓶，然後把用過的花瓶刷洗干凈，能讓鮮花保鮮更持久。
時間長了花瓶里的水會滋生微生物或其它有害菌，因此想讓鮮花保鮮更久，可以在水裡加一些維生素C和洗潔精，以確保水質優良，抑制有害菌的滋生。
『叄』 鮮花保持得久是放維生素C還是維生素E
VC,還有很多方法，阿司匹林，少量的硫酸亞鐵，等等，這是我實踐多年的經驗了，呵呵。一般人我不告訴他~~~
『肆』 花指令是怎麼做的，vb里應該怎麼寫
花指令者拿返是易語言首飢編譯的選擇效果,vb沒有自帶,但是也許能找代碼實現
花指令沒用,現在用有去除花指令的玩意,建議你直接加殼好過花指敏早令
『伍』 vb玫瑰花數... 數字填空
PrivateSubCommand2_Click()'水仙花數153=1*1*1+5*5*5+3*3*3
Fori=10To999
Ifi<100Then
ge=iMod10
shi=i10
Ifge^3+shi^3=iThenPrint,
Else
ge=iMod10
shi=i10Mod10
=i100
Ifge*ge*ge+shi^3+^3=iThen
Printi,
geshu=geshu+1
IfgeshuMod5=0ThenPrint
EndIf
EndIf
Nexti
Printgeshu
EndSub
你的圖片看不清楚
『陸』 四葉玫瑰數的VB怎麼編
四位數各位上的數字的四次方之和等於本身為四葉玫瑰數。回
實現源碼答如下：
program roseNumber;
var
a,b,c,d:longint;
function four(n:longint):longint;
begin
four:=n*n*n*n;
end;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then
begin
writeln(a,b,c,d);
end
end
end.
『柒』 鮮花的十種保鮮方法
鮮花的十種保鮮方法
鮮花的十種保鮮方法，鮮花在我們的日常生活中其實是大部分的人都喜歡的，一般在很多的節日大家都有送花的喜歡，包裝一束鮮花並不難，以下整理了鮮花的十種保鮮方法。
鮮花的十種保鮮方法1
切除根莖
要使鮮花保持新鮮需要定時修理鮮花莖，把鮮花的底根剪掉，剪的時候要45度剪，這樣可幫助增加鮮花吸收更多的水分。
摘掉葉子
為使鮮花持續更久需要摘掉淹沒在水中的葉子，淹沒在水中的葉子可能會很快腐爛，從而為細菌提供食物，進而感染和破壞花的其他部分。
每天換水
為使鮮花保持新鮮一定要堅持每天更換水，而且還可以在水中加一些阿司匹林葯片，這樣可保持水的清潔和減少細菌。
盡快取出枯萎的花
如果有發現花瓶中有一些死亡或凋謝的花朵，需盡快把它拿出來，否則這些花朵它釋放乙烯氣體，會損害到花朵的健康。
保鮮劑保鮮法
使用鮮花保鮮劑來延長鮮花的保鮮期也是一種常用的保鮮方法。將處理好的鮮花插在花瓶里，在花瓶里加入一些鮮花保鮮劑就能適當地延長鮮花的保鮮期了。
食鹽保鮮法
食鹽的防腐效果非常好，所以非常適合給鮮花保鮮。將處理好的鮮花插在花瓶里，再在花瓶里加入一小勺食鹽，就可幫助鮮花更好的吸收水分，葉子和花朵自然也不會因缺水而枯萎了。
茶水保鮮法
鮮花一般插在清水裡大概三四天枯萎了，而用茶水來插花，可延遲花朵凋謝的時間，鮮花在7天內不會凋謝，而且花朵鮮艷奪目香氣四溢。
啤酒保鮮法
在花瓶里加入一點啤酒，可延長鮮花的保鮮期。這是因為啤酒中含有乙醇，能為花枝切口消毒防腐，又含有糖及其他營養物質能為枝葉提供養分。
製作乾花
把鮮花製作成乾花也是保存鮮花最久的方法了。把鮮花的葉子全部摘掉，然後綁在一起倒掛在黑暗乾燥的地方自然風干就可以了。
學會插花
不是所有的花都可以放在相同的環境中生存的，水仙花和風信子這些都是會放出有毒的化學物質，所以最好把它們單獨放在一個花瓶里比較合適。
鮮花的十種保鮮方法2
1、把花放在一個大的干凈的容器里
首先要使用干凈的容器來把鮮花放好。這樣做的目的就是可以減少細菌和其他微生物繁殖對花帶來一些危害。同時還要確保花的莖不會擠得慌，所以選擇花瓶時候最好就是選擇寬頸瓶。
2、把花放在熱水裡
鮮花如何保鮮，當然不是把它放在沸水裡面。一般來說它的溫度應該控制在43攝氏度左右。當你將熱水倒入花瓶中,記得要把它的放在陰涼處放置一兩個小時就可以了。
3、如果你想要你的花經得起時間的考驗,請使用溫水
在日常生活中，大多數的人習慣用冷水養花,其實最好的辦法就是把你的花放在溫暖的環境中，或者將花放在常溫水裡。要知道鮮花更容易吸收還是溫水。
4、除去水下的葉子
使鮮花持續更久,請除去任何落在水平線以下的葉子。淹沒在水中的樹葉可能會很快腐爛,從而為細菌提供食物,這會感染和破壞植物的其他部分。
5、改變水的環境
為了能讓你的鮮花保持新鮮,一定要記得每天更換水。而且還可以在裝滿水的瓶裡面加一些阿司匹林葯片,這樣做也是能夠保持水的清潔和減少細菌。
6、定期切除根莖
鮮花能保持新鮮，要記得定時給鮮花莖進行修理。差不多把它修剪莖成45切角。這樣做還能夠幫助增加花朵 吸收水的能力。
7、使用花卉防腐劑
也可以到花店買一些「花的營養劑」,或者自己製作。這種東西放下去就可以起到延長鮮花生命所必需的基本成分。
8、把花遠離陽光、加熱器和水果
鮮花如何保鮮，一般來說都不能把花瓶放在在陽光直射或接近熱源的地方,這樣也是會影響到鮮花的生存。同時不要將鮮花靠近水果,因為水果會釋放少量乙烯。
9、盡快取出枯萎的花
如果有發現花瓶有一些死亡或凋謝的花朵就要將它拿出來，要不這些花朵它會釋放乙烯氣體，這樣也是會損害到花朵的健康。
10、適當地插花
要知道不是所有的`花都可以放在相同的環境生存的，水仙花和風信子這些都是會放出有毒的化學物質,所以最好把它們單獨放在一個花瓶里比較合適。
鮮花的十種保鮮方法3
幾種鮮花保鮮的方法
合理用水
插花用的水最好是選用清潔的河水、井水、池塘的水，如果水質比較渾濁時，需要澄清了之後再用，若是自來水的話，應該先放置一夜之後再使用。
換水
夏季的時候兩天換一次水，秋冬季節時3天左右換一次水，為了防止水變質，可以在水中放入一點食鹽。換水時候需要清除已經殘敗的花葉，並且要適當剪短花枝，重新更替切口（花枝需要斜著剪，增加吸水面積），適當在花朵上噴點水，使插花保持鮮艷。
擺放位置
夏天時候，陽光比較強烈，應該避免陽光的直射，冬季時候最好遠離暖氣火爐等等，否則會加快花枝的呼吸作用和水分的蒸發，容易造成花朵的過早凋謝。
灼焦法
將花枝的末端放在蠟燭的火焰上烤一下之後，立刻放到酒精里浸泡一分鍾左右，再放到清水中漂清，這種方法對於丁香、木香。芍葯、月季、菊花這類花都比較適用。
浸燙法
將花枝底部放到沸水中約十秒鍾左右，起到阻塞切口的作用，防止花枝組織中的汁液外溢的作用。可以延長鮮花衰敗的時間。
深水救急法
當鮮花略有點不精神，垂頭時，可以剪去花枝末端的一小段，再放入盛滿冷水的容器當中，只留花朵露在水面上，放置一到兩個小時左右花枝就會蘇醒過來，再放到花瓶中就可以了。
擴大切口法
一般都是將花枝末端斜著剪出一個口，或者是將末端剪成2~4份，也可以錘裂末端，擴大吸水面，不過一般斜切是最常用的方法。
『捌』 水中放入何種維生素可以讓鮮花保鮮是維生素A、維生素D、維生素E、還是胡蘿卜素
維生素C,因為那是抗氧化的。
另外許多人都喜歡在家裡插花，可是鮮花容顏易老，保鮮時間非常短，有沒有什麼方法可以延長鮮花的保鮮時間呢？下面的七種方法或許能給你答案。
1、熱水浸泡法 將草本花卉的基部在80度水中燙30秒左右，可利於吸水、殺菌和防腐。一般劍蘭、晚香玉、大麗花、菊花、非洲菊、香石竹等適宜。
2、末端擊碎法 將花梗末端（約一寸左右）擊碎，可擴大吸水面積，延長插花期。一般木本花枝如玉蘭、丁香、杜鵑、紫藤、綉球等可用此法。
3、茶水插花法 將鮮花插入冷卻的濃茶水中，一般可以保持一周左右。
4、灼焦法 將花枝末端放在火上燒烤一會兒，然後放入酒精浸1分鍾，再於清水中漂清，這樣可以防止營養物質倒流，從而增長插花期。灼焦法尤其適合花莖中有乳狀物外溢的鮮花，如月季、梅花、牡丹、丁香、一品紅、芍葯等。
5、殺菌法 在水中放入少量酒精、KMnO4、樟腦、硼酸、檸檬酸、鹽、明礬等，可起到殺菌的作用，從而能保證水質，使植物較長時間保鮮。注意：不可在殺菌物質還未溶解就直接將花放入水中，溶液濃度切忌過大，以免鮮花中水分倒流。
6、營養法 可在插花的容器中加入適量的鮮花保鮮劑，或者糖、啤酒、阿司匹林、維生素C等各類營養物質，這樣可為鮮花及時補充營養，從而延長插花花期。
7、深水急救法 如發現鮮花由於水分不足，花頭下垂，可先剪去花枝末端一小段，然後把花枝基部投入盛有冷水的容器中，僅留花頭於水面外，約一、兩小時後，花枝就會蘇醒過來。
『玖』 vb求玫瑰花數
當然不會有數字產生了，Do
While
d
<=
9這里1000-1009都不滿足，驗證完後，d=10，自然下次不滿足d
<=
9條件就退出了
可以在每次循環結束，重新開始時加個清零操作，或者直接用for語句
『拾』 vb6.0 問題 請問如何做個讓屏幕開花朵的程序，給點思路
顯示一個圖片，然後讓圖片再消失不就行了