| 查看: 457 | 回复: 2 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
十万火急，马上要交了。。。关于子程序的调用 已有2人参与
|
||
|
For I = 2 To NN BiaoJi: A1 = GCH_MIN(I) If GCH(I, M(I)) > GCH(I, 1) Then b = GCH(I, 1) Else b = GCH(I, M(I)) End If Debug.Print "b = "; b '二分法解能量方程 Z(I) = b Call AERA(I) Call SHUIWEI(Z) FXB = FX 子程序： Public Sub AERA(I) W(I) = 0 X(I) = 0 For J = 1 To M(I) - 1 If GCH(I, J) <= Z(I) And GCH(I, J + 1) <= Z(I) Then W(I) = W(I) + (Z(I) - (GCH(I, J + 1) + GCH(I, J)) / 2) * (AX(I, J + 1) - AX(I, J)) X(I) = X(I) + ((GCH(I, J + 1) - GCH(I, J)) ^ 2 + (AX(I, J + 1) - AX(I, J)) ^ 2) ^ (1 / 2) ElseIf GCH(I, J) < Z(I) And GCH(I, J + 1) > Z(I) Then W(I) = W(I) + (Z(I) - GCH(I, J)) ^ 2 * (AX(I, J + 1) - AX(I, J)) / (GCH(I, J + 1) - GCH(I, J)) / 2 X(I) = X(I) + (Z(I) - GCH(I, J)) * ((AX(I, J + 1) - AX(I, J)) ^ 2 + (GCH(I, J + 1) - GCH(I, J)) ^ 2) / (GCH(I, J + 1) - GCH(I, J)) ^ (1 / 2) ElseIf GCH(I, J) > Z(I) And GCH(I, J + 1) < Z(I) Then W(I) = W(I) + (Z(I) - GCH(I, J + 1)) ^ 2 * (AX(I, J + 1) - AX(I, J)) / (GCH(I, J) - GCH(I, J + 1)) / 2 X(I) = X(I) + (Z(I) - GCH(I, J + 1)) * ((AX(I, J + 1) - AX(I, J)) ^ 2 + (GCH(I, J + 1) - GCH(I, J)) ^ 2) / (GCH(I, J) - GCH(I, J + 1)) ^ (1 / 2) End If Next J End Sub Public Sub SHUIWEI(Z) Dim FX As Double 'K值 Dim AAA As Double '面积平均值 Dim RRR As Double '水力半径平均值 Dim CCC As Double '谢才系数平均值 R(I) = W(I) / X(I) V(I) = Q / W(I) C(I) = (1 / n(I)) * R(I) ^ (1 / 6) AAA = (W(I) + W(I - 1)) / 2 RRR = (R(I) + R(I - 1)) / 2 CCC = (C(I) + C(I - 1)) / 2 FX = Z(I - 1) - Z(I) + (1.1 - GG(I)) * (V(I - 1) * V(I - 1) - V(I) * V(I)) / 19.62 + Q * Q * L(I) / (AAA * AAA * CCC * CCC * RRR) End Sub 运行到第二个子程序那里总是下标越界 两个子程序，现在我的I都要从2开始，每次一运行，第一个的子程序没有问题，可是下面的SHUIWEI(Z)总是显示下标越界。。。。这是怎么回事啊？？求大神解决啊！万分感谢，马上就要交毕业设计了 |
回复此楼» 猜你喜欢
311（085601）求调剂
已经有4人回复
-
305求调剂
已经有4人回复
-
一志愿北化085600材料专硕275|有文章专利｜求调剂
已经有7人回复
-
一志愿华理，数一英一285求A区调剂
已经有12人回复
-
289求调剂
已经有11人回复
-
食品工程专硕一志愿中海洋309求调剂
已经有7人回复
-
生物学学硕，一志愿湖南大学，初试成绩338
已经有6人回复
-
321求调剂
已经有7人回复
-
343求调剂
已经有4人回复
-
本科新能源科学与工程，一志愿华理能动285求调剂
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 用Matlab线性拟合求解两个参数，十万火急！
已经有9人回复
- matlab作业哪位大神麻烦给做一下,十万火急,周五之间要交
已经有3人回复
- 请教origin中的单位加入小圆点 十万火急。。。麻烦各位牛牛。。
已经有4人回复
- VS2005下matlab调用
已经有8人回复
- 【求助/交流】十万火急，IPTG诱导是怎么回事，给我说个大概
已经有9人回复
43fd6ys
木虫 (正式写手)
- 应助: 37 (小学生)
- 金币: 2050.4
- 红花: 7
- 帖子: 379
- 在线: 147小时
- 虫号: 3935320
- 注册: 2015-06-22
- 专业: 零件成形制造
3楼2015-07-23 21:39:53
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
2楼2015-06-02 19:25:35
