| 查看: 705 | 回复: 2 | ||
[求助]
编程语言 已有1人参与
|
|
我在模块中编了这样的子程序 Public Sub AERE(I As Integer, J As Integer) 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) + SQRT((GCH(I, J + 1) - GCH(I, J)) ^ 2 + (AX(I, J + 1) - AX(I, J)) ^ 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)) * SQRT((AX(I, J + 1) - AX(I, J)) ^ 2 + (GCH(I, J + 1) - GCH(I, J)) ^ 2) / (GCH(I, J + 1) - GCH(I, J)) 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)) * SQRT((AX(I, J + 1) - AX(I, J)) ^ 2 + (GCH(I, J + 1) - GCH(I, J)) ^ 2) / (GCH(I, J) - GCH(I, J + 1)) End If Next J End Sub 然后在form中调用它为什么说我的子程序或函数没有定义 Call AERA(I) |
回复此楼» 猜你喜欢
【长期招聘】复旦大学 AI 制药实验室 博士后招聘
已经有11人回复
-
2027博士申请-临床检验诊断学、病原生物学、微生物方向
已经有5人回复
-
各位基础老师们，看完中央《从严治党》的决定后，对学术界更加有信心了吧
已经有4人回复
jianliu67
木虫 (小有名气)
- 应助: 27 (小学生)
- 金币: 4053.5
- 红花: 4
- 帖子: 216
- 在线: 135.7小时
- 虫号: 3511817
- 注册: 2014-11-01
- 性别: GG
- 专业: 计算机科学的基础理论
2楼2015-05-28 08:14:28
3楼2015-11-29 00:40:03