[VB6 ] 沒有定義這個sub或function

[laneclement (小乖)]

我之前跑程式時，都可以進入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
推 gofin:會不會你的command有設到index所以他對不到物件
→ laneclement:沒有耶，command3的index是空白的
推 fumizuki:a未宣告？
推 laneclement:真的耶！^^原來我之前有把a的宣告從最上面移到command
→ laneclement:2的裡面，這樣是不是代表command3裡面的a是沒有做宣告
→ laneclement:？請問是不是一般都在最上面把全部的變數都宣完嗎？
推 fumizuki:放在最前面代表這個模組下的每一個函式都可以存取該變數
推 fumizuki:變數會在這個表單/模組被載出記憶體時才會消失
推 laneclement:謝謝！講得很清楚！我了了^^