| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1725 人关注过本帖
标题:外部名未定义 求解
只看楼主 加入收藏
小伟123
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2015-10-13
结帖率:0
收藏
已结贴  问题点数:20 回复次数:7 
外部名未定义 求解
Private Sub Command1_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
result = 0
If b <> [] Then
resul = a / b
Text3 = rexult
Else
MsgBox "除数不能为0!"
End If
End Sub
为啥他总是说外部名未定义 还把[]圈上
搜索更多相关主题的帖子: result 
2015-10-13 19:43
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:7 
加引号""

读了一下代码,你的意思可能是判断是否除数为0,那么你把【】换成0就好了

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-10-13 22:12
yangfrancis
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:贵宾
威 望:141
帖 子:1510
专家分:7661
注 册:2014-5-19
收藏
得分:7 
resul, rexult这两个名称都没有定义
2015-10-14 20:28
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 
[] 是什么?

无知
2015-10-15 22:04
yangfrancis
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:贵宾
威 望:141
帖 子:1510
专家分:7661
注 册:2014-5-19
收藏
得分:0 
编译器说的未定义可能也包括这个[],不知到底是个什么东西
2015-10-15 22:28
小伟123
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2015-10-13
收藏
得分:0 
回复 2楼 renxiaoyao36
谢谢
2015-10-24 21:02
tyc189
Rank: 1
等 级:新手上路
威 望:1
帖 子:11
专家分:4
注 册:2015-10-16
收藏
得分:0 
Private Sub Command1_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
result = 0
If b <> 0 Then
result = a / b
Text3 = result
Else
MsgBox "除数不能为0!"
End If
End Sub
2015-10-27 22:28
hl2388817942
Rank: 2
等 级:论坛游民
帖 子:9
专家分:10
注 册:2016-1-6
收藏
得分:0 
拜求迭代程序代码
n20(1) = n(5) / n(19)

n22(1) = n20(1) / Sqr(1 + n20(1) ^ 2)

n24(1) = (n(5) - n(17) * n22(1)) / n(12)

n25(1) = n24(1) / Sqr(1 - n24(1) ^ 2)

n26(1) = n22(1) / n25(1)

n27(1) = 1 / Sqr(1 + n26(1) ^ 2)

n28(1) = n24(1) / n27(1)

n29(1) = Sqr(1 - n28(1) ^ 2)

n30(1) = (n(15) - n29(1)) / n28(1)

n31(1) = n28(1) * (n(9) - n30(1))

n32(1) = n(3) * n31(1)

n33(1) = n24(1) - (n22(1) * n32(1))

n34(1) = n33(1) / Sqr(1 - n33(1) ^ 2)

n35(1) = n22(1) / n34(1)

n36(1) = deg(Atn(n35(1)))

n37(1) = Cos(Atn(n35(1)))

n38(1) = n33(1) / n37(1)

n39(1) = deg(Atn((n38(1) / Sqr(1 - n38(1) ^ 2))))

n40(1) = Sqr(1 - n38(1) ^ 2)

n41(1) = (n(15) + n31(1) - n40(1)) / n38(1)

n42(1) = deg(Atn(n41(1)))

n43(1) = Cos(Atn(n41(1)))

n44(1) = n42(1) - n39(1)

n45(1) = Cos(rad(n44(1)))

n46(1) = Tan(rad(n44(1)))

n47(1) = n20(1) / n33(1)

n48(1) = deg(Atn(1 / n47(1)))

n49(1) = Sin((Atn(1 / n47(1))))

n50(1) = Cos((Atn(1 / n47(1))))

n51(1) = (n(17) + n(12) * n32(1)) / n37(1)

n52(1) = n(12) / n50(1)

n53(1) = n51(1) + n52(1)

n54(1) = n(12) * n45(1) / n49(1)

n55(1) = n43(1) * n51(1) / n35(1)

n56(1) = (n41(1) * n55(1) - n46(1) * n54(1)) / n53(1)

n57(1) = deg(Atn(n56(1)))

n58(1) = Cos(Atn(n56(1)))

n59(1) = (n41(1) * n56(1)) / n51(1)

n60(1) = (n46(1) * n56(1)) / n52(1)

n61(1) = n54(1) * n55(1)

n62(1) = (n54(1) - n55(1)) / n61(1)

n63(1) = n59(1) + n60(1) + n62(1)

n64(1) = (n41(1) - n46(1)) / n63(1)

n65(1) = n64(1) / n58(1)

n66(1) = n(7) / n65(1)
n20(1)项是个变量
如果1-n66(1)>0.001,那么n20(2)=0.9*n20(1),然后按以上公式在计算一次,如果还不满足条件,20项按下式迭代

从第三次开始,以后公式一样,见下式
n20(X) = ((n20(X - 1) - n20(X - 2)) / (n66(X - 1) - n66(X - 2))) * (1 - n66(X - 2)) + n20(X - 2)

直到满意为止

也就是说20项是个变量,其他公式一样,不满足条件就按迭代式变化20项在带入以上的公式计算,直到满意为止

各位大侠,拜求这个程序迭代代码,谢谢

2016-01-11 22:27
快速回复:外部名未定义 求解
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017616 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved