Vb程序问题,竖椭圆变不成横椭圆了= =Private Sub Command1_Click()'参数初始化Dim a0!, a1!, b1!, c1!, d!, l!, l0!, r1!'定义text数值a0 = Text1.Textl = Text2.Textl0 = Text3.Textr1 = Text4.Text'定义β范围a1 = a0 * 0.01745b1 = a1 /

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/16 04:54:58

Vb程序问题,竖椭圆变不成横椭圆了= =
Private Sub Command1_Click()
'参数初始化
Dim a0!, a1!, b1!, c1!, d!, l!, l0!, r1!
'定义text数值
a0 = Text1.Text
l = Text2.Text
l0 = Text3.Text
r1 = Text4.Text
'定义β范围
a1 = a0 * 0.01745
b1 = a1 / 1.2
c1 = a1 + b1
'定义坐标系
Form1.Scale (-500, 500)-(500, -500)
Form1.Line (-500, 0)-(500, 0)
Form1.Line (0, -500)-(0, 500)
'函数
For d = 0.01 To 6.28 Step 0.01
'If d > 0 And d < 3.14 Then
'X1 = l * Sin(d) - l0 * Sin(c1 + d)
'Y1 = l * Cos(d) - l0 * Cos(c1 + d)
'Form1.PSet (X1, Y1), RGB(255, 0, 255)
'End If
X2 = l * Cos(d) - l0 * Cos(c1 + d)
Y2 = l * Sin(d) - l0 * Sin(c1 + d)
Form1.PSet (X2, Y2), RGB(0, 0, 0)
Next d
End Sub

嘛意思?

Vb程序问题,竖椭圆变不成横椭圆了= =Private Sub Command1_Click()'参数初始化Dim a0!, a1!, b1!, c1!, d!, l!, l0!, r1!'定义text数值a0 = Text1.Textl = Text2.Textl0 = Text3.Textr1 = Text4.Text'定义β范围a1 = a0 * 0.01745b1 = a1 / 数控车宏程序问题我走椭圆时,有报警,内容是,变量值超限,怎么解决 matlab中椭圆周长问题已知椭圆方程为X^2/a^2+y^2=1,试写一个程序近似画出椭圆周长关于参数a的函数曲线 定义 离心率e=(根号5-1)/2的椭圆为黄金椭圆 对于椭圆x平方/a平方+y平方/b平方=1(a>b>0).c为椭圆半焦距 如果a.b.c不成等比数列 则椭圆 a.一定是黄金椭圆 b 一定不是黄金椭圆c 可能是黄金椭圆d 可能 用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果 VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为：x=rx*cos(alfa),y=ry*sin(alfa)其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角. 希望高手帮 椭圆 椭圆, 椭圆, §关于椭圆 方程、极角与几何角度的问题.1,作出图,用三角函数可以求出横椭圆的参数方程：x=acosθ,y=bsinθ那 竖椭圆的 参数方程 我怎么求不出来呢,如何推导呢?2,竖椭圆的标准方程是什么?3,椭 问个关于人造卫星变轨的问题.汗,弄错了,我的问题是(请耐心看完):1.椭圆轨道适用V=根号GM/R这个公式吗?我们一本参考书上用这个式子判定了椭圆轨道近地点和远地点速度的大小,但是如果这个 VB怎样画扇形,椭圆,弧形 圆锥曲线焦三角形 面积横椭圆,竖椭圆都一样吗?都是s=btan(a/2)^2 CAD图形打印出来.圆变了椭圆... 怎么判断椭圆是横椭圆还是竖椭圆9x²+y²=81这是什么椭圆?为什么?这道题的竖椭圆顶点坐标是A1（-3,0）A2(3,0）b1（0,-9）b2（0,9）但这个是横椭圆的顶点坐标？ 数学高中椭圆问题 高数椭圆问题 数学解析几何椭圆问题!