在VB6中实现队列

Dim n, front, rear As Integer 
Dim x As Integer 
Dim arr() As Integer 

Public Function init() 
    n = InputBox("Enter size :") 
    ReDim arr(n) As Integer 
    front = 0 
    rear = -1 
End Function 

Public Function insert(x As Integer) 
    If rear = n-1 Then 
    MsgBox "queue FULL !!!", vbOKOnly, "QUEUE" 
    Else 
    rear = rear + 1 
    arr(rear) = x 
    MsgBox x, vbOKOnly, "INSERTED" 
    End If 
End Function 

Public Function delete() As Integer 
    If rear + 1 = front Then 
    MsgBox "queue Empty !!!", vbOKOnly, "QUEUE" 
    Else 
    x = arr(front) 
    front = front + 1 
    Return x 
    End If 
End Function 

Private Sub inser_Click() 
    If rear < n Then 
    x = InputBox("Enter element :") 
    Call insert(x) 
    Else 
    MsgBox "queue FULL !!!", vbOKOnly, "QUEUE" 
    End If 
End Sub 

Private Sub del_Click() 
    x = delete() 
    MsgBox x, vbOKOnly, "DELETED" 
End Sub 

Private Sub Exit_Click() 
    End 
End Sub 

Private Sub Form_Load() 
    Call init 
End Sub

这是我在VB6中的代码。我在Return x线的地方说得到一个错误insert功能“编译错误预期：语句结束”在VB6中实现队列

还有一个错误是，每当我试图删除队列中的元素显示“0删除”

来源

2012-05-10 rick

什么是VB2006？ VB.NET不是VB6，所以你的标签只会让事情更加混乱。 – Oded

如果你有任何意见，如果你的意思是VB6 VB98。 – Bob77

请缩进您的代码。 [看看它更容易遵循吗？]（http://stackoverflow.com/posts/10538957/revisions） – Deanna

您试图通过使用返回语句来返回函数中的值，该语句在VB6中无效。在VB6中，通过将返回值分配给Function的名称来返回Function的值。

因此，对于你delete功能，你会这样写：

Public Function delete() As Integer 
    If rear + 1 = front Then 
     MsgBox "queue Empty !!!", vbOKOnly, "QUEUE" 
    Else 
     x = arr(front) 
     front = front + 1 
     delete = x ' <-- returning x here. 
    End If 
End Function

看看你的其他功能方面，他们没有显式地在所有返回值。

这可能有助于看看this，它提供的替补和功能如何在VB6工作的概述。

来源

2012-05-10 17:18:33

+1。对于VBA也是如此 –

在VB6中实现队列

回答

相关问题