| 查看: 442 | 回复: 2 | ||
蓝莓果汁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 |
回复此楼» 猜你喜欢
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有293人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
-
什么时候开奖？
已经有13人回复
-
散金币祈福
已经有94人回复
-
青基已中
已经有1人回复
-
散金币祈福
已经有185人回复
-
求助，如何提取ELK的rt-TDDFT在某一时刻的自旋密度分布和电子密度分布
已经有1人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于VB能不能用自定义函数参与循环
已经有5人回复
- 我用vb chart 控件，画折线图，出不来，求高人给看看，
已经有6人回复
- 跪求会编写程序的人帮我编一段随机抽取数字的VB代码
已经有4人回复
- 请问VB如何实现顺序读取文本文件中的数据，并将读取到的数据保存在二维数组呢
已经有6人回复
- 使用VB设计界面，如何让界面更漂亮些？
已经有4人回复
- 形成5*5的方阵，分别输出方阵中个元素，上三角和下三角元素的vb代码
已经有5人回复
- 【求助】关于vb调用dll，做成exe后在别人电脑上无法运行（在线等）
已经有14人回复
- 能否不经过ansys的 resume from，直接打开ansys的结果文件
已经有8人回复
- visual studio 2008 中的VB调用ansys时老是VB内部错误而关闭
已经有8人回复
- 请问各位大神VB6和VB2010差别大吗？VB6在WIN7上可以用吗?谢谢
已经有4人回复
- PVB做粘结剂溶在酒精中加热，温度高的话PVB会不会挥发
已经有10人回复
- 选择某一范围内强度最大的数赋值，怎么用VB编程啊，谢谢
已经有10人回复
- VB6.0中文版，适合新手编程入门，在手机上看看挺不错的，绝对经典
已经有129人回复
- VB控件数组的使用
已经有4人回复
- 如何用VB调用出Access中的数据库？
已经有4人回复
- 用vb编写的判断未知文件类型的小程序，分享下。
已经有13人回复
- 一个从来没有编程经验的人，你们觉得VB作为入门语言怎么样？
已经有23人回复
- 用vb做非线性曲线拟合
已经有8人回复
- 【求助】怎么让vb程序运行结束后自动退出啊
已经有5人回复
- 【求助】vb调用外部程序，外部程序运行结束后如何在form上显示出提示信息啊~！~~
已经有3人回复
- 【讨论】本人对vb,c语言都学过取得二三级证书，但至今不知有什么用？？？？
已经有29人回复
- 【求助】此VB程序怎么运行不起来？
已经有8人回复
- 【求助】求助：vb编程中用牛顿迭代解三次方程为什么只得到一个根？【已完成】
已经有15人回复
yangxphewj
铁杆木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 13993
- 帖子: 551
- 在线: 622.2小时
- 虫号: 1484579
- 注册: 2011-11-09
- 专业: 化工热力学和基础数据
2楼2015-07-29 05:38:41
yangxphewj
铁杆木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 13993
- 帖子: 551
- 在线: 622.2小时
- 虫号: 1484579
- 注册: 2011-11-09
- 专业: 化工热力学和基础数据
【答案】应助回帖
|
帮你改了一下，计算出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
30