展开全部
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
追问
好高手非加不可了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
