| 查看: 569 | 回复: 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) |
回复此楼» 猜你喜欢
求调剂
已经有3人回复
-
材料277求调剂
已经有7人回复
-
数一英一271专硕（085401）求调剂，可跨
已经有5人回复
-
291求调剂
已经有21人回复
-
一志愿哈尔滨工业大学材料与化工方向336分
已经有8人回复
-
药学105500求调剂
已经有3人回复
-
考研调剂
已经有4人回复
-
0703化学
已经有7人回复
-
学硕274求调剂
已经有6人回复
-
321求调剂
已经有6人回复
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
