2008-03-19 14:24:02柑橘ˇˇ
VB 2
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
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
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
ㄆㄆ 原來你們也要學VB 要考程式設計唷?
QQ~ +U
我也要考VBㄝ~~真難ㄒ.ㄒ
我有VB企業版ㄉ光碟~~要ㄉ話我可以借你XD