24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1121  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

琚裕波

金虫 (小有名气)

[求助] 求助!这个程序错在哪里?

Title "DMC";
Parameters k1,k2,k3,k4,E1,E2,E3,E4,b1,b2,c1,c2,c3,c4;
Variable TT,y1,y2;
Variable r1[output],r2[output],r3[output],r4[output];
StartProgram [VB] ;
Dim iter As Integer
dim T As Double
dim rDMC As Double
dim rDMM As Double
dim rMF As Double
dim rCO2 As Double
for iter=0 to Datalength-1
    T=TT(iter)+273.15
    rDMC=k1*(Exp(E1/(8.314*T)))*(y1^b1)*(y2^c1)
    rDMM=k2*(Exp(E2/8.314*T)))*(y2^c2)
    rMF=k3*(Exp(E3/8.314*T)))*(y2^c3)
    rCO2=k4*(Exp(E4/8.314*T)))*(y1^b2)*(y2^c4)
    r1(iter)=rDMC
    r2(iter)=rDMM
    r3(iter)=rMF
    r4(iter)=rCO2
Next
EndProgram;
Data;
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

一切都会向着最好的方向发展!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

琚裕波

金虫 (小有名气)

引用回帖:
6楼: Originally posted by jjdg at 2013-09-15 17:55:17
我晕
你发在vb板块里面却不是vb的ide?

这个程序使用的VB编的啊
一切都会向着最好的方向发展!
7楼2013-09-16 09:26:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖


感谢参与,应助指数 +1
琚裕波: 金币+1, 继续回答啊 2013-09-13 17:39:19
错误提示在哪里?
努力学习!以正当途径!获得需要的知识!
2楼2013-09-11 00:48:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

琚裕波

金虫 (小有名气)

引用回帖:
2楼: Originally posted by jjdg at 2013-09-11 00:48:32
错误提示在哪里?

点击运行,程序就不动
一切都会向着最好的方向发展!
3楼2013-09-11 10:32:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

最起码给出你的运行环境啊
努力学习!以正当途径!获得需要的知识!
4楼2013-09-14 00:36:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 337求调剂 +3 jyz04 2026-04-18 3/150 2026-04-20 12:24 by 研可安
[考博] 申博/考博 +4 啃面包的小书虫 2026-04-17 5/250 2026-04-20 10:47 by YuY66
[考研] 通信工程求调剂!!! +7 zlb770521 2026-04-14 7/350 2026-04-19 20:56 by Equinoxhua
[考研] 297,工科调剂? +11 河南农业大学-能 2026-04-14 11/550 2026-04-19 20:07 by Equinoxhua
[考博] 申博自荐 +4 Linxia林夏 2026-04-13 4/200 2026-04-19 19:55 by Equinoxhua
[考研] 294求调剂 +8 淡然654321 2026-04-17 9/450 2026-04-19 19:51 by Equinoxhua
[考研] 求调剂 +10 小聂爱学习 2026-04-16 12/600 2026-04-19 16:51 by 中豫男
[考研] 085404 22408 309分求调剂 +10 lzmk 2026-04-14 11/550 2026-04-19 16:42 by 中豫男
[论文投稿] 有没有接收比较快的sci期刊呀,最好在一个月之内的,研三孩子求毕业 20+4 之护着 2026-04-16 6/300 2026-04-19 13:00 by Aaron_zyn
[考研] 327求调剂 +27 Xxjc1107. 2026-04-13 30/1500 2026-04-19 08:22 by cuisz
[考研] 320求调剂 +5 深郊akm 2026-04-17 5/250 2026-04-18 19:52 by 王珺璞
[考研] 接受任何调剂 +6 也就是栗子 2026-04-17 7/350 2026-04-18 17:20 by 涵竹刘
[考研] 22408 312求调剂 +24 门路摸摸 2026-04-14 26/1300 2026-04-18 13:04 by wunaiy88
[考研] 急需调剂 +9 绝不放弃22 2026-04-15 10/500 2026-04-18 08:09 by chixmc
[有机交流] 二苯甲酮酸类衍生物 50+3 小白爱主人 2026-04-17 6/300 2026-04-17 18:47 by kf2781974
[考研] 一志愿沪9,生物学326求调剂 +9 刘墨墨 2026-04-15 9/450 2026-04-16 17:14 by 崔崔崔cccc
[考研] 求调剂学校 +14 不会吃肉 2026-04-13 16/800 2026-04-15 21:59 by noqvsozv
[考研] 一志愿A区211,22408 321求调剂 +6 随心所欲☆ 2026-04-15 7/350 2026-04-15 21:45 by lbsjt
[考研] 245求调剂 +6 冰糖橘?汽水 2026-04-13 10/500 2026-04-14 10:49 by jyl0317
[考研] 085600材料与化工329分求调剂 +24 叶zilin 2026-04-13 25/1250 2026-04-14 09:20 by 试管破裂
信息提示
请填处理意见