- - - 123吧

level 1

爱哭dè豆儿楼主

Private Sub Command1_Click()
Dim i, a, r, g, b As Integer
x = 2400
y = 3000
For i = 1 To 20
a = a + 50
Circle (x, y), a, RGB(100, 200, 300)
Next i
End Sub

2011年03月03日 05点03分 1