Question

如何用vb写反三角函数的运行程序

想要求这样的一个公式y=3.14*x*arcsin（150/（300+x））/90。请问大神如何用vb写代码啊~我自己额 写了一点，但是不能运行，求大神指教啊如下Private Sub Command1_Click()Dim r As Single, delta As Single, root1 As Singler = Text1.Textdelta = 150 / (300 + r)If (delta < 0) Then Text2.Text = 0Else root1 = 3.14 * r * Atn((delta) / Sqr(-(delta) * (delta) + 1)) / 90 Text2.Text = root1End IfEnd Sub

Answer 1

Option Explicit
Const pi = 3.41592654
Private Sub Command1_Click()
    Dim x As Double, y As Double
    Dim asin As Double, d As Double
    x = Val(Text1.Text)
    If 300 + x = 0 Then
        Label2.Caption = "分母为0!"
        Exit Sub
    End If
    
    d = 150# / (300 + x)
    asin = Atn(d / Sqr(d * d + 1))
    y = pi * x * asin / 90#
    
    Label2.Caption = y
    
End Sub

追问

提示label2变量未定义，你是怎么运行的呀，请问

Answer 2

显示什么错误？