24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1123  |  回复: 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的回帖

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的回帖

琚裕波

金虫 (小有名气)

内容已删除
一切都会向着最好的方向发展!
5楼2013-09-15 09:43:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主


ben_ladeng: 金币+1, 谢谢提醒 2013-09-15 19:52:21
我晕
你发在vb板块里面却不是vb的ide?
努力学习!以正当途径!获得需要的知识!
6楼2013-09-15 17:55:17
已阅   回复此楼   关注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的回帖

jjdg

版主 (知名作家)

优秀版主

我印象里面VB就没有EndProgram;这种写法,看着倒是跟pascal很相似
努力学习!以正当途径!获得需要的知识!
8楼2013-09-16 10:09:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

琚裕波

金虫 (小有名气)

引用回帖:
8楼: Originally posted by jjdg at 2013-09-16 10:09:14
我印象里面VB就没有EndProgram;这种写法,看着倒是跟pascal很相似

说实话,我对编程基本上没啥印象。
一切都会向着最好的方向发展!
9楼2013-09-17 17:03:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 阿里巴巴国际站 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600材料与化工调剂 5+3 孜孜不倦2002 2026-04-19 6/300 2026-04-20 21:25 by babero
[考研] 320求调剂 +6 深郊akm 2026-04-17 6/300 2026-04-20 18:57 by fs26jie
[论文投稿] 有没有接收比较快的sci期刊呀,最好在一个月之内的,研三孩子求毕业 20+4 之护着 2026-04-16 7/350 2026-04-20 15:45 by 豆豆7758
[考研] 297,工科调剂?河南农业大学本科 +15 河南农业大学-能 2026-04-14 15/750 2026-04-20 12:39 by Equinoxhua
[考研] 337求调剂 +3 jyz04 2026-04-18 3/150 2026-04-20 12:24 by 研可安
[考博] 申博 +3 Xyyx. 2026-04-18 3/150 2026-04-20 10:44 by YuY66
[考博] 湖南大学刘巧玲课题组2026年第二批次博士研究生招生信息 +3 南风观火 2026-04-18 5/250 2026-04-20 10:13 by 南风观火
[考研] 294求调剂 +8 淡然654321 2026-04-17 9/450 2026-04-19 19:51 by Equinoxhua
[考研] 291求调剂 +11 关忆北. 2026-04-14 11/550 2026-04-19 17:16 by 中豫男
[考研] 求调剂 +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 中豫男
[考研] 294求调剂 +15 淡然654321 2026-04-15 15/750 2026-04-19 08:20 by cuisz
[考研] 0854求调剂 +23 门路摸摸 2026-04-15 27/1350 2026-04-19 01:59 by 烟雨流涯
[考研] 300求调剂 +12 橙a777 2026-04-15 12/600 2026-04-18 23:51 by 路病情
[考研] 297,工科调剂? +5 河南农业大学-能 2026-04-14 5/250 2026-04-18 15:17 by Equinoxhua
[考研] 收到复试调剂但是去不了 +8 小蜗牛* 2026-04-16 8/400 2026-04-18 11:15 by zixin2025
[考研] 急需调剂 +9 绝不放弃22 2026-04-15 10/500 2026-04-18 08:09 by chixmc
[考研] 一志愿华中农业071010,320求调剂 +17 困困困困坤坤 2026-04-14 19/950 2026-04-17 20:08 by 关一盏灯cd
[有机交流] 二苯甲酮酸类衍生物 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
信息提示
请填处理意见