| 查看: 1345 | 回复: 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没有反应啊 |
回复此楼» 猜你喜欢
283求调剂
已经有5人回复
-
一志愿哈尔滨工业大学材料与化工方向336分
已经有7人回复
-
数一英一271专硕（085401）求调剂，可跨
已经有4人回复
-
0856，材料与化工321分求调剂
已经有11人回复
-
0703化学求调剂
已经有8人回复
-
277跪求调剂
已经有9人回复
-
材料277求调剂
已经有6人回复
-
085602 307分 求调剂
已经有7人回复
-
一志愿南昌大学324求调剂
已经有7人回复
-
材料与化工272求调剂
已经有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
20