UC知道关于VB谢谢哪位大哥
来源：百度知道 编辑：UC知道 时间：2024/06/22 00:44:35
Private Sub Command1_Click()
Dim a, b As Single
b = 40
Do
b = b + 0.01
a = 79.74 * (50 - b) ^ 0.75 - 29.62 * (b - 40)
Loop Until a < 0.01 And a > -0.01
Print b
End Sub
把这个输到电脑上 说a = 79.74 * (50 - b) ^ 0.75 - 29.62 * (b - 40)有错误 我不知道为什么 我是想解79.74 * (50 - b) ^ 0.75 = 29.62 * (b - 40)这个方程，就用这个挫办法 哪位大哥给个好办法吧 呵呵
Dim a, b As Single
b = 40
Do
b = b + 0.01
a = 79.74 * (50 - b) ^ 0.75 - 29.62 * (b - 40)
Loop Until a < 0.01 And a > -0.01
Print b
End Sub
把这个输到电脑上 说a = 79.74 * (50 - b) ^ 0.75 - 29.62 * (b - 40)有错误 我不知道为什么 我是想解79.74 * (50 - b) ^ 0.75 = 29.62 * (b - 40)这个方程，就用这个挫办法 哪位大哥给个好办法吧 呵呵
运行过程中，当 b 大于 50 时，50-b 是负数，负数不能开方（偶数次方）
(50 - b)^0.75 等同与 (50 - b)的3次方再开4次方
这什么意思啊 不知道你想干什么
是要让我们解释呢还是怎么样
准备做啥？ 一点就死机
首先
Dim a, b As double尤其是a
其次
检查下你方程计算的优先级有没错误
或没按照你的想法计算的
尤其是^和*
^0.75不如改为先^3(乘方)然后再开4次方sqrt4
看行不行
其他的必须上机才能调试出来
best wishes...