VB几个半圆如何画

VB几个半圆如何画

Private Sub Form_Click() '点击窗体运行
Dim ww As Single, hh As Single
Const pi As Single = 3.141593
Me.ScaleMode = 1
ww = Me.ScaleWidth
hh = Me.ScaleHeight
Me.Scale (-ww \ 2, hh \ 2)-(ww \ 2, -hh \ 2)
Me.Circle (0, hh \ 3), hh \ 3, vbBlack, pi, 2 * pi
Me.Circle (-hh \ 3, 0), hh \ 3, vbBlack, 1.5 * pi, 0.5 * pi
Me.Circle (0, -hh \ 3), hh \ 3, vbBlack, 0, pi
Me.Circle (hh \ 3, 0), hh \ 3, vbBlack, 0.5 * pi, 1.5 * pi
Me.Line (-hh \ 3, hh \ 3)-(hh \ 3, -hh \ 3), vbBlack, B
End Sub

对象上画圆、椭圆或弧语法 object.circle [step] (x, y), radius, [color, start, end, aspect] 其中（x,y）表示圆心位置， radius 半径，颜色，起角，终角，纵横比值 option explicit const pi = 3.1415926 private sub command1_click() picture1.cls picture1.circle (2500, 1200), 1000, vbred, -2 * pi, -pi '画上半圆,这里角度前的负号只表示画的是扇形，不表示数学上的象限 end sub private sub command2_click() picture1.cls picture1.circle (2500, 1200), 1000, vbblue, -pi, -2 * pi '画下半圆 end sub private sub command3_click() picture1.circle (2500, 1200), 1000, , 0.3 * pi, 0.9 * pi '画劣弧，画弧时角度前没有负号 end sub private sub command4_click() picture1.circle (2500, 1200), 1000, , 0.4 * pi, 1.8 * pi '画优弧 end sub