如何使用VB画太极图案

来源：百度知道 编辑：UC知道 时间：2024/06/08 00:46:52
请问各位高人如何用VB绘画出太极图案阿 ，颜色什么的无所谓

'//复制粘贴代码。运行。即可。

Option Explicit
Private Sub Form_Activate()
Me.FillStyle = 0
Me.FillColor = QBColor(0)
Me.Circle (3000, 3000), 2000, , -3.14, -0.0001
Me.FillColor = QBColor(15)
Me.Circle (3000, 3000), 2000, , -0.0001, -3.14
Me.FillColor = QBColor(15)
Me.Circle (2000, 3000), 1000, , -3.14, -0.001
Line (1000, 3000)-(3000, 3000), QBColor(15)
Me.FillColor = QBColor(0)
Me.Circle (2000, 3000), 150
Me.FillColor = QBColor(0)
Me.Circle (4000, 3000), 1000, , -0.0001, -3.14
Me.FillColor = QBColor(15)
Me.Circle (4000, 3000), 150
End Sub
Private Sub Form_Click()
Form_Activate
End Sub