高校问答单向街系列:雨流法第二阶段计数程序
来源：百度文库 编辑：高校问答 时间：2024/05/05 17:41:42
小弟目前没有积分，愿高手赐教。好人有好报！！！！
For h = 1 To b + 1
second:
If h >= 3 Then
Y1% = Abs(bb(h - 1) - bb(h - 2))
Y2% = Abs(bb(h) - bb(h - 1))
If Y1 <= Y2 Then
varl% = Y1
For p% = 0 To 15
If aa(p) = varl Then
num(p) = num(p) + 1
For q% = h To b + 1
bb(q - 2) = bb(q)
Next q
Print aa(p), num(p)
b = b - 2 '当记录最后一次循环编程时，b＝0，而此时b+1＝1，h>=3已经不再成立，可是仍然再运行
If b <= 0 Then
GoTo finish '跳到结束
End If
h = h - 2
GoTo second
End If
Next p
End If
End If
Next h