如何画椭圆啊!有哪位高手指教一下.

拿两根大头针一根棉线(没什么弹性的线)一枝笔.

用棉线做一个"圈",它的周长等于你要画的椭圆的长径减去两个焦点的距离.

把两个大头针钉在椭圆的两个焦点处,把棉线圈套在两根大头针上,放到平面,把笔尖也套进圈内,并用笔尖拉紧线圈.

移动笔在平面上画,就能画出你需要的椭圆了.

找几何书，里面有详细的介绍。高中的几何书里就讲过。

Visual Basic 6.0 画
Dim g_temp_pt0(2) As Double
Dim g_temp_pt1(2) As Double
Dim g_temp_pt2(2) As Double
Dim g_click_size As Integer
Dim len_val As Double
Dim g_cur_tool As Long

Private Sub Command1_Click()
MicroDrawOcx1.UseEvents = 1
g_cur_tool = 501
g_click_size = 0
End Sub

Private Sub MicroDrawOcx1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If g_cur_tool = 501 Then '画椭圆
If g_click_size = 0 Then
MicroDrawOcx1.GetSnapPoint g_temp_pt0(0)
g_click_size = g_click_size + 1
ElseIf g_click_size = 1 Then
MicroDrawOcx1.GetSnapPoint g_temp_pt1(0)
g_click_size = g_click_size + 1
ElseIf g_click_size = 2 Then
MicroDrawOcx1.GetSnapPoint