Question

vb画圆代码

界面如图所示
“开始”是画圆，“结束”是关闭软件
要代码

Answer 1

VB画圆代码：主要使用函数【Circle (x, y), 半径, 颜色 】 ：Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色

代码start===========
'控件：
'名称:Command1，属性Caption:开始
'名称:Command2，属性Caption:结束

Private Sub Command1_Click() '****开始按钮
Circle (1500, 1000), 700, vbBlack '此为画圆函数：【Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】
End Sub

Private Sub Command2_Click() '***结束按钮
Unload Form1 '退出Form1
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture，否则画的图可能消失
End Sub

代码end=============

Answer 2

Circle (1500, 1000), 700, vbBlack '此为画圆函数：【Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】