| 查看: 1301 | 回复: 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没有反应啊 |
回复此楼» 猜你喜欢
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有6人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
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