visualbasic6의 순환 대기열 구현

Question

Public Function insert(x As Integer) 
    If front = 0& & rear = n - 1 Or rear + 1 = front Then 
    MsgBox "queue FULL !!!", vbOKOnly, "QUEUE" 
    ElseIf front = -1 Then 
    front = rear = 0 
    ElseIf rear = n - 1 Then 
    rear = 0 
    Else 
    rear = rear + 1 
    End If 
    arr(rear) = x 
    MsgBox x, vbOKOnly, "INSERTED" 
    List1.AddItem x 
End Function 

순환 큐의 삽입()입니다. "If front = 0 & & rear = n - 1 또는 rear + 1 = front"그러면 "
오류는"런타임 오류 '13'유형이 일치하지 않습니다. "입니다.

Answer 1

이것은 또한 wron입니다. g

front = rear = 0 

될해야

front = 0 
rear = 0 

=가 VB6에서 두 의미가

• =은 C 형 언어 == 동일 항등 연산자이다
• = 임무 지명서이기도하다. nt, =처럼 c와 유사한 언어로 된 연산자

Answer 2

난 당신이

If front = 0 And rear = n - 1 Or rear + 1 = front Then 

을 할

If front = 0& & rear = n - 1 Or rear + 1 = front Then 

을 의미 생각하고 당신은 아마 정말

If (front = 0 And rear = n - 1) Or rear + 1 = front Then 

의미 당신은 당신의 "X"와 "N"

혼합되어