VB中exp的返回值为0我想做这样一个表达式:b=exp(a*10)结果b=0,a定义为double.请问如何修改?Private Sub cmdOk_Click()Dim uc As Doubler = Text1.Textc = Text2.Textl = Text3.Textus = Text4.Textdelta = r * r * c * c - 4 * l * cIf de
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 05:16:17
![VB中exp的返回值为0我想做这样一个表达式:b=exp(a*10)结果b=0,a定义为double.请问如何修改?Private Sub cmdOk_Click()Dim uc As Doubler = Text1.Textc = Text2.Textl = Text3.Textus = Text4.Textdelta = r * r * c * c - 4 * l * cIf de](/uploads/image/z/5240082-66-2.jpg?t=VB%E4%B8%ADexp%E7%9A%84%E8%BF%94%E5%9B%9E%E5%80%BC%E4%B8%BA0%E6%88%91%E6%83%B3%E5%81%9A%E8%BF%99%E6%A0%B7%E4%B8%80%E4%B8%AA%E8%A1%A8%E8%BE%BE%E5%BC%8F%EF%BC%9Ab%3Dexp%28a%2A10%29%E7%BB%93%E6%9E%9Cb%3D0%2Ca%E5%AE%9A%E4%B9%89%E4%B8%BAdouble.%E8%AF%B7%E9%97%AE%E5%A6%82%E4%BD%95%E4%BF%AE%E6%94%B9%3FPrivate+Sub+cmdOk_Click%28%29Dim+uc+As+Doubler+%3D+Text1.Textc+%3D+Text2.Textl+%3D+Text3.Textus+%3D+Text4.Textdelta+%3D+r+%2A+r+%2A+c+%2A+c+-+4+%2A+l+%2A+cIf+de)
VB中exp的返回值为0我想做这样一个表达式:b=exp(a*10)结果b=0,a定义为double.请问如何修改?Private Sub cmdOk_Click()Dim uc As Doubler = Text1.Textc = Text2.Textl = Text3.Textus = Text4.Textdelta = r * r * c * c - 4 * l * cIf de
VB中exp的返回值为0
我想做这样一个表达式:
b=exp(a*10)
结果b=0,a定义为double.
请问如何修改?
Private Sub cmdOk_Click()
Dim uc As Double
r = Text1.Text
c = Text2.Text
l = Text3.Text
us = Text4.Text
delta = r * r * c * c - 4 * l * c
If delta > 0 Then
r1 = (-r * c + Sqr(delta)) / 2 / l / c
r2 = (-r * c - Sqr(delta)) / 2 / l / c
a1 = r2 * us / (r2 - r1)
a2 = -r1 * us / (r2 - r1)
uc = a1 * Exp(r1 * 10)
Label3.Caption = uc
输出uc为0
VB中exp的返回值为0我想做这样一个表达式:b=exp(a*10)结果b=0,a定义为double.请问如何修改?Private Sub cmdOk_Click()Dim uc As Doubler = Text1.Textc = Text2.Textl = Text3.Textus = Text4.Textdelta = r * r * c * c - 4 * l * cIf de
要有完整代码(至少也要有前后10多行代码)才能分析原因.否则就像“管中窥豹”,神仙也帮不了你.