vb同心圆 要求:15个同心圆

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/09 09:23:05

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