Question

VB编程:利用circle方法绘随机产生颜色各异的同心圆,最大圆半径不超过1000

Answer 1

Dim x As Single,y As Single,r As Integer

Private Sub Command1_Click()

x = Form1.ScaleWidth / 2

y = Form1.ScaleHeight / 2

Randomize

r = Int(Rnd * 1000) + 1

Circle (x,y),r,QBColor(Int((15 * Rnd) + 1))

End Su