24h購物| | PChome| 登入
2008-03-18 13:38:45| 人氣99| 回應1 | 上一篇 | 下一篇

V B 程式

推薦 0 收藏 0 轉貼0 訂閱站台

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




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
Private Sub Form_Activate()


For I = 1 To 10
Circle (2000, 2000), 1000, , , , 10 / I
Next I

End Sub

我要檢舉
#我&資毛傑作 XDD”
台長： 柑橘ˇˇ

您可能對以下文章有興趣

人氣(99) | 回應(1)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: ~ Ｖ Ｂ ~ |
此分類下一篇:VB 2

我要回應
資毛
我跟你程式碼有很多地方不依樣
不過都可以

最後一個依樣
因為是老師的^^
2008-03-18 16:37:35
版主回應
嗯嗯ˇ

下次繼續 ＸＤＤ＂
2008-03-19 11:49:39
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文