怎么用编程画雪花

A. 求VB程序设计，有一段雪花飘扬的代码，求添加代码让用户选择往左飘或者往右飘，还有飘雪速度代码。

Private sub form1_load(省略）
Dim i As Integer
For i=0 To 99
Randomize()
s(i)=New snowflakes(Rnd()*Me.width,Rnd()*Me.Height)
Next
End Sub

Private sub timer1_tick（省略）
Me.Refresh()
pen1=New pen(color.white,5)
g=Me.CreateGraphics
For i=0 to 99
g.DrawEllipse(pen1,s(i).x,s(i).y,1,1)
s(i).down(10)
If s(i).x>=Me.width Then
s(i).x=Rnd()*20
End If
If s(i).y>=Me.Height Then
s(i).y=Rnd()*10
End If

B. cad怎么画雪花的图案

3、单击“确定”按钮，CAD会自动启动“画图”软件，在画图软件的菜单中选择：编辑>粘贴来源。4、选择需要插入的图片并单击“打开”，用画图程序将图片打开。

图片插入好后，直接关闭画图软件，图片就会以OLE的形式嵌入当前的DWG文件中。如下图所示需要注意的是，对于尺寸不大的图片，利用这种方式将图片直接嵌入图纸中，虽然DWG文件的体积会有所增加，但管理起来较为方便，需要对图片进行修改时，只需双击图片，CAD会自动启动画图程序，用户可以直接对图片进行修改。但是，当图片的尺寸较大时，这种方式不但会导至DWG文件变得很臃肿，而且图片嵌入的速度极慢，极大影响工作效率，所以，如果要嵌入的图片较大，建议不要采用这种方式。其实，CAD提供了多种图片插入方式，以满足用户的不同需求。比如，将图片以图像参照的方式插入DWG中，不但不会增加DWG文件的体积，而且即便是图片的尺寸非常大，插入速度也不会受到明显的影响。