应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 用VB编程解方程，代码如下，运行不出来，有大神会VB吗？帮忙指导下，非常感谢！
31/1返回列表
查看: 421  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

蓝莓果汁11

金虫 (正式写手)

[求助] 用VB编程解方程，代码如下，运行不出来，有大神会VB吗？帮忙指导下，非常感谢！ 已有1人参与

Private Sub Command1_Click()
Dim a As Double
H = 42200
m = 56
n = 4
R = 8.314
T = 298.15
a = 0
Do
a = a + 0.00001
Loop Until a * n * H - R * T * ((m + n + a * n) * ln(m + n + a * n) - 2 * a * n * ln(a * n) - (n - n * a) * ln(n - n * a) - (n + m) * ln(n + m) + n * ln(n)) = 0
Text1.Text = a
End Sub
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-05-04 20:44:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yangxphewj

铁杆木虫 (正式写手)

【答案】应助回帖

1. Log(N) 以e为底的自然对数，用ln肯定是出函数未定义的错误，应该将ln全部改为Log。
2. Log(n + m), Log(n)是常数，为什么不直接写出数字。
3. 程序的本意是求出a值，但迭代过程没有设定最高迭代次数，一旦不收敛就会陷入死循环。
赞一下 回复此楼
2楼2015-07-29 05:38:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yangxphewj

铁杆木虫 (正式写手)

【答案】应助回帖

帮你改了一下，计算出a=2.11000000000608E-03，程序如下：
    Dim a As Double
    H = 42200
    m = 56
    n = 4
    R = 8.314
    T = 298.15
    a = 0.1
    Do
        a = a - 0.00001
        b = a * n * H - R * T * ((m + n + a * n) * Log(m + n + a * n) - 2 * a * n * Log(a * n) - (n - n * a) * Log(n - n * a) - (n + m) * Log(n + m) + n * Log(n))
        Debug.Print a, b
    Loop Until b < 0.0000001
    Text1.Text = a
赞一下 回复此楼
3楼2015-07-29 05:49:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 蓝莓果汁11 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭