24小时热门版块排行榜

>论坛更新日志 (2788)
>虫友互识 (587)
>文献求助 (135)
>导师招生 (125)
>休闲灌水 (123)
>考博 (116)
>教师之家 (71)
>找工作 (68)
>博后之家 (67)
>硕博家园 (65)
>论文投稿 (63)
>论文道贺祈福 (61)
>基金申请 (57)
>考研 (50)
>公派出国 (47)
>招聘信息布告栏 (30)

返回列表

RwingRWING

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 10.5
帖子: 24
在线: 4.1小时
虫号: 3780371
注册: 2015-04-01
专业: 水工结构和材料及施工

[求助] 编程语言已有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)

回复此楼