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 Then"
エラーは、 "ランタイムエラー '13'タイプの不一致です。

Answer 1

これもワロンです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" は

を混合しています