[VB6 ] 沒有定義這個sub或function
我之前跑程式時，都可以進入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
推
03/23 13:40, , 1F
03/23 13:40, 1F
→
03/23 16:57, , 2F
03/23 16:57, 2F
推
03/24 11:58, , 3F
03/24 11:58, 3F
推
03/24 15:53, , 4F
03/24 15:53, 4F
→
03/24 15:55, , 5F
03/24 15:55, 5F
→
03/24 15:56, , 6F
03/24 15:56, 6F
推
03/24 17:23, , 7F
03/24 17:23, 7F
推
03/24 17:24, , 8F
03/24 17:24, 8F
推
03/25 00:17, , 9F
03/25 00:17, 9F