怎麼用編程畫雪花

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文件的體積，而且即便是圖片的尺寸非常大，插入速度也不會受到明顯的影響。