Private Sub cmdShape_Click(Index As Integer) picShape.Cls picShape.FillStyle = 5 Select Case Index Case 0 picShape.Print "画直线" picShape.Line (2, 2)-(7, 7) Case 1 picShape.Print "画矩形" picShape.Line (2, 2)-(7, 7), , BF Case 2 picShape.Print "画圆" picShape.Circle (4.5, 4.5), 3.5, , , , 0.4 Case Else End End SelectEnd Sub Private Sub Form_Load() picShape.Scale (0, 0)-(10, 10) '设置坐标系End Sub自己去研究
你不要用那个圆公式画就是了。
用PSET