在线等待：如何画出正切（tanx)的图像？

Question

如题。谢谢！

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Dim dX As Double, dY As Double
    Dim dX1 As Double, dY1 As Double
    Dim intCenter As Integer
    
    Me.AutoRedraw = True
    Me.ScaleMode = 0
    Me.Scale (0, 0)-(10, 10)
    intCenter = Me.ScaleHeight / 2
    dY1 = Tan(0)
    For dX = 0.01 To Me.ScaleWidth Step 0.01
        dY = Tan(dX)
        Me.Line (dX1, dY1 + intCenter)-(dX, dY + intCenter)
        dX1 = dX
        dY1 = dY
    Next
End Sub

Answer 2

不好意思，，看错了，，把Tan换成Atn就可以了，，你也可以换成Sin（正玄）、Cos（余玄）
比如画正玄曲线：
Option ExplicitPrivate Sub Form_Load()
    Dim dX As Double, dY As Double
    Dim dX1 As Double, dY1 As Double
    Dim intCenter As Integer
    
    Me.AutoRedraw = True
    Me.ScaleMode = 0
    Me.Scale (0, 0)-(10, 10)
    intCenter = Me.ScaleHeight / 2
    dY1 = Sin(0)'《－－－－这里
    For dX = 0.01 To Me.ScaleWidth Step 0.01
        dY = Sin(dX)'《－－－和这里换了就好了
        Me.Line (dX1, dY1 + intCenter)-(dX, dY + intCenter)
        dX1 = dX
        dY1 = dY
    Next
End Sub

Answer 3

晕倒！！！！看错题了，，，Tan是正切，，，Atn是余切！！！  -_-#

Answer 4

Rick110AAA(海牛猪猪 And HerosⅢ之比蒙)，你画的不对，你用几何画板试一下