24小时热门版块排行榜

>论坛更新日志 (3075)
>虫友互识 (620)
>休闲灌水 (106)
>基金申请 (92)
>导师招生 (86)
>博后之家 (86)
>论文投稿 (83)
>文献求助 (72)
>教师之家 (46)
>硕博家园 (40)
>考博 (23)
>药学 (19)
>招聘信息布告栏 (14)
>医学 (11)
>公派出国 (10)
>考研 (10)

返回列表

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)

回复此楼