| 查看: 1343 | 回复: 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没有反应啊 |
回复此楼» 猜你喜欢
材料求调剂 一志愿哈工大总分298分，前三科223分
已经有5人回复
-
085600 286分 材料求调剂
已经有6人回复
-
086502化学工程342求调剂
已经有4人回复
-
材料求调剂一志愿哈工大324
已经有7人回复
-
328求调剂
已经有7人回复
-
340求调剂
已经有5人回复
-
一志愿南昌大学324求调剂
已经有4人回复
-
求调剂推荐 材料 304
已经有15人回复
-
291求调剂
已经有19人回复
-
331环境科学与工程求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
