Question

一道关于vb的简单编程题目

Private Sub Form_Load()

Form1.ScaleLeft = -90
Form1.ScaleTop = -60
Form1.ScaleWidth = 180
Form1.ScaleHeight = 120
Form1.Line (-90, 0)-(180, 0), &HFF0000
Form1.Line (0, -60)-(0, 60), &HFF0000
Form1.FillStyle = 1

x0 = -89
y0 = -Tan(-89 / 180 * 3.1415926)
For i = -89 To 89
x = i
y = -Tan(i / 180 * 3.1415926)
Form1.Line (x0, y0)-(x, y), &HFF, BF

x0 = x
y0 = y

Next

End Sub
根据求tan的图改换成sin的就可以了
不能把tan直接换成SIN，运行出来的图不是的，

Answer 1

Private Sub Form_Load()
Form1.ScaleLeft = -90
Form1.ScaleTop = -60
Form1.ScaleWidth = 180
Form1.ScaleHeight = 120
Form1.Line (-90, 0)-(180, 0), &HFF0000
Form1.Line (0, -60)-(0, 60), &HFF0000
Form1.FillStyle = 1

x0 = -89
y0 = -60 * Sin(-89 / 180 * 3.1415926)
For i = -89 To 89
x = i
y = -60 * Sin(i / 180 * 3.1415926)
Form1.Line (x0, y0)-(x, y), &HFF, BF

x0 = x
y0 = y

Next
End Sub

在sin 加60*就可以了

Answer 2

y0 = -Tan(-89 / 180 * 3.1415926)

y = -Tan(i / 180 * 3.1415926)

把这两行中的tan换成sin不就可以了吗

Answer 3

有 什么 问题 呢？

直接 改 不就得了？