| 查看: 538 | 回复: 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)总是显示下标越界。。。。这是怎么回事啊？？求大神解决啊！万分感谢，马上就要交毕业设计了 |
回复此楼» 猜你喜欢
极限拉扯，如何抉择
已经有15人回复
-
申请科研项目纯靠实力能成功吗？
已经有8人回复
-
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 用Matlab线性拟合求解两个参数，十万火急！
已经有9人回复
- matlab作业哪位大神麻烦给做一下,十万火急,周五之间要交
已经有3人回复
- 请教origin中的单位加入小圆点 十万火急。。。麻烦各位牛牛。。
已经有4人回复
- VS2005下matlab调用
已经有8人回复
- 【求助/交流】十万火急，IPTG诱导是怎么回事，给我说个大概
已经有9人回复
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
2楼2015-06-02 19:25:35
43fd6ys
木虫 (正式写手)
- 应助: 37 (小学生)
- 金币: 2050.4
- 红花: 7
- 帖子: 379
- 在线: 147小时
- 虫号: 3935320
- 注册: 2015-06-22
- 专业: 零件成形制造
3楼2015-07-23 21:39:53
200