'找出各断面地形高程最低点，并保存在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)
为什么我写了Debug 可是运行中断按ctrl+B没有反应啊

debug.print 就是一条VB语句,程序执行到这一步,就在立即窗口是显示相应的内容
Debug.Print "GCH_MIN(I) = :" &  GCH_MIN(I) '只能显示最后一个断面NN的最低高程

For I = 1 To NN
Debug.Print "GCH_MIN(I) = "; GCH_MIN(I)
Next I
这样能不能显示全部呢？
而且我过程中写了好几个Debug可是下面的立即窗体都没有显示，这是为什么啊

R(I) = W(I) / X(I)
我的W（I)和X（I)都有值为什么R（I)会等于0呢