vb同心圆 要求:15个同心圆
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/19 13:46:21
![vb同心圆 要求:15个同心圆](/uploads/image/z/12842465-41-5.jpg?t=vb%E5%90%8C%E5%BF%83%E5%9C%86+%E8%A6%81%E6%B1%82%EF%BC%9A15%E4%B8%AA%E5%90%8C%E5%BF%83%E5%9C%86)
x)+Kz:s^,k|YOv$NΆxv|>eEAfrIiQ곾Ovoyo֥Ovt?|E]:OwMy~
_,y5(,$U!4I-(7'?1EC, 1Pϥ(<<3$CVC&HL(Pka`ab y\R@ps~nnb^asNfr6q@*d43PW04UP.I-P2 f3AN k SZQ_\g
ď
vb同心圆 要求:15个同心圆
vb同心圆 要求:15个同心圆
vb同心圆 要求:15个同心圆
利用picture控件,输入下列程序,应该就行了
Private Sub Form_Load()
Picture1.DrawWidth = 1
Picture1.Width = Picture1.Height
Picture1.Scale (-80, 80)-(80, -80)
End Sub
Private Sub Command1_Click()
For i = 60 To 15 Step -5
Picture1.Circle (0, 0), i
Next i
End Sub