作者laneclement (小乖)
看板Visual_Basic
标题[VB6 ] 没有定义这个sub或function
时间Fri Mar 23 12:19:36 2007
我之前跑程式时，都可以进入command3
可是不知道怎麽搞的，不是知是不是改到其他东西
之後按command3时，他就会跑出"没有定义这个sub或function"
Private Sub Command3_Click() ****他跳到这里说没有耶@@，可是
c = Len(stra) 我有用按钮呀~~
For j = 1 To c
b = Mid(stra, j, 1)
n = j
If b = "*" Then
a(n - 1) = a(n - 1) * a(n)
Do While n <= c
a(n) = a(n + 1)
n = n + 1
Loop
stra = Mid(stra, 1, j - 1) & Mid(stra, j + 1, c - j)
c = c - 1
j = 0
ElseIf b = "/" And a(n) <> 0 Then
a(n - 1) = a(n - 1) / a(n)
Do While n <= c
a(n) = a(n + 1)
n = n + 1
Loop
stra = Mid(stra, 1, j - 1) & Mid(stra, j + 1, c - j)
c = c - 1
j = 0
ElseIf b = "/" And a(n) = 0 Then
answ = False
End If
Next j
For k = 1 To c
b = Mid(stra, k, 1)
n = k
If b = "+" Then
a(n - 1) = a(n - 1) + a(n)
Do While n <= c
a(n) = a(n + 1)
n = n + 1
Loop
stra = Mid(stra, 1, k - 1) & Mid(stra, k + 1, c - k)
c = c - 1
k = 0
ElseIf b = "-" Then
a(n - 1) = a(n - 1) - a(n)
Do While n <= c
a(n) = a(n + 1)
n = n + 1
Loop
stra = Mid(stra, 1, k - 1) & Mid(stra, k + 1, c - k)
c = c - 1
k = 0
End If
Next k
clear = True
Text1.Text = Str(a(0))
i = 0
End Sub
不知道是哪里又出了问题@@~谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.31.172.235
1F：推 gofin:会不会你的command有设到index所以他对不到物件 03/23 13:40
2F：→ laneclement:没有耶，command3的index是空白的 03/23 16:57
3F：推 fumizuki:a未宣告？ 03/24 11:58
4F：推 laneclement:真的耶！^^原来我之前有把a的宣告从最上面移到command 03/24 15:53
5F：→ laneclement:2的里面，这样是不是代表command3里面的a是没有做宣告 03/24 15:55
6F：→ laneclement:？请问是不是一般都在最上面把全部的变数都宣完吗？ 03/24 15:56
7F：推 fumizuki:放在最前面代表这个模组下的每一个函式都可以存取该变数 03/24 17:23
8F：推 fumizuki:变数会在这个表单/模组被载出记忆体时才会消失 03/24 17:24
9F：推 laneclement:谢谢！讲得很清楚！我了了^^ 03/25 00:17