鲜花放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 问题 请问如何做个让屏幕开花朵的程序，给点思路
显示一个图片，然后让图片再消失不就行了