24小时热门版块排行榜

返回列表

RwingRWING

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 10.5
帖子: 24
在线: 4.1小时
虫号: 3780371
注册: 2015-04-01
专业: 水工结构和材料及施工

[求助] 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没有反应啊

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

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人回复

1楼 2015-06-01 16:28:48

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

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)