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/12/20 00:23:33
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 /
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 /
嘛意思?