2008-03-18 13:38:45柑橘ˇˇ
V B 程式
Private Sub Form_Activate()
Scale (-300, 300)-(300, -300)
Line (-300, 0)-(300, 0), RGB(0, 0, 0)
Line (0, 300)-(0, -300), RGB(0, 0, 0)
For I = 0 To 150 Step 30
Circle (0, 0), I
Next I
End Sub
Scale (-300, 300)-(300, -300)
Line (-300, 0)-(300, 0), RGB(0, 0, 0)
Line (0, 300)-(0, -300), RGB(0, 0, 0)
For I = 0 To 150 Step 30
Circle (0, 0), I
Next I
End Sub
Private Sub Form_Activate()
pi = 3.14
Scale (-350, 350)-(350, -350)
Line (-350, 0)-(350, 0), RGB(0, 0, 0)
Line (0, 350)-(0, -350), RGB(0, 0, 0)
For I = 0 To 250 Step 50
Circle (0, 0), I, , 1 / 2 * pi, 2 * pi
Next I
End Sub
pi = 3.14
Scale (-350, 350)-(350, -350)
Line (-350, 0)-(350, 0), RGB(0, 0, 0)
Line (0, 350)-(0, -350), RGB(0, 0, 0)
For I = 0 To 250 Step 50
Circle (0, 0), I, , 1 / 2 * pi, 2 * pi
Next I
End Sub
Private Sub Form_Activate()
For I = 1 To 10
Circle (2000, 2000), 1000, , , , 10 / I
Next I
End Sub
For I = 1 To 10
Circle (2000, 2000), 1000, , , , 10 / I
Next I
End Sub
下一篇：VB 2
我跟你程式碼有很多地方不依樣
不過都可以
最後一個依樣
因為是老師的^^
下次繼續 ＸＤＤ＂ 2008-03-19 11:49:39