| 查看: 1427 | 回复: 2 | ||
[求助]
Debug.Print的使用 已有1人参与
|
|
'找出各断面地形高程最低点，并保存在GCH_MIN(I)中 For I = 1 To NN GCH_MIN(I) = GCH(I, 1) For J = 2 To M(I) If GCH(I, J) < GCH_MIN(I) Then GCH_MIN(I) = GCH(I, J) End If Next J Next I Debug.Print "GCH_MIN(I) = "; GCH_MIN(I) '求第一个，即起始断面面积，湿周，水力半径，流速，谢才系数 I = 1 Call AERA(I) Call SHUIWEI(Z) R(I) = W(I) / X(I) V(I) = Q / W(I) C(I) = (1 / n(I)) * R(I) ^ (1 / 6) Open App.Path & "\out.txt" For Random As #2 Print #2, Z(I); W(I); V(I) Close #2 Debug.Print "R(I) = "; R(I) Debug.Print "V(I) = "; V(I) Debug.Print "C(I) = "; C(I) 为什么运行中断后我ctrl+B没有反应啊 |
回复此楼» 猜你喜欢
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
申请科研项目纯靠实力能成功吗？
已经有7人回复
-
极限拉扯，如何抉择
已经有14人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- C++ 运行出现Debug Assertion Failed的错误？
已经有6人回复
- 并行计算没有输出？怎么回事
已经有16人回复
- xtd转换为xyz坐标，可使用vmd打开
已经有18人回复
- 求助vasp编译好后无法运行问题？？
已经有24人回复
- Windows下的免费C/C++编译环境下载
已经有40人回复
- 程序无法运行怎么回事
已经有13人回复
- Windows下编译安装MuSic code
已经有22人回复
- 【求助】VB如何读取txt文件~~
已经有12人回复
- 【求助】安装openmpi的问题，向各位高手请教
已经有4人回复
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
【答案】应助回帖
感谢参与，应助指数 +1
|
第一段程序改为下面的程序 '找出各断面地形高程最低点，并保存在GCH_MIN中 ''''''''''''最小的值是一个数，不需要用数组 GCH_MIN = GCH(1, 1) For I = 1 To NN For J = 2 To M(I) If GCH(I, J) < GCH_MIN(I) Then GCH_MIN = GCH(I, J) End If Next J Next I Debug.Print "最小值GCH_MIN = "; GCH_MIN --------------------------------------------------------- Print #2, Z(I); W(I); V(I) 你在这三个结果之间不加上分隔符，出来的结果你是看不懂的。 一般在结果之间加上 制表符 chr(9)。改成 Print #2, Z(I);chr(9); W(I);chr(9); V(I) |
2楼2015-06-01 20:47:09
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
3楼2015-06-01 20:48:43
10