24h購物| | PChome| 登入
2008-03-19 14:24:02| 人氣118| 回應2 | 上一篇 | 下一篇

VB 2

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

Private Sub Form_Activate()
Scale (0, 0)-(255, 255)
For i = 0 To 255
Line (0, i)-(255, i), RGB(255, i, i)
Next i
End Sub

Private Sub Form_Activate()
pi = 3.14
Scale (-250, 250)-(250, -250)
Line (-250, 0)-(250, 0), RGB(0, 0, 0)
Line (0, 250)-(0, -250), RGB(0, 0, 0)
Circle (0, 0), 100, , -(3 / 4 * pi), -(1 / 4 * pi)
FillColor = RGB(0, 0, 255)
FillStyle = 0
Circle (-50, -10), 10
Circle (0, 50), 10
End Sub

我要檢舉
台長： 柑橘ˇˇ

您可能對以下文章有興趣

人氣(118) | 回應(2)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: ~ Ｖ Ｂ ~ |
此分類下一篇:vb
此分類上一篇:V B 程式

我要回應
R旭
ㄆㄆ 原來你們也要學VB 要考程式設計唷?

QQ~ +U
2008-03-20 15:11:44
路人甲
我也要考VBㄝ~~真難ㄒ.ㄒ

我有VB企業版ㄉ光碟~~要ㄉ話我可以借你XD
2008-03-22 08:03:19
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文