我该如何结束我的循环？

我做了一个循环以显示输入名称时的平衡，但是当我尝试第二次执行时。它不会返回另一个输出（messagebox）。我怎样才能结束/重新启动循环？我该如何结束我的循环？

Public Class Form1 
    Dim intMax_Subscript As Integer = 7 
    Dim arrayNames(intMax_Subscript) As String 
    Dim arrayBalance(intMax_Subscript) As Double 
    Dim found As Boolean 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     CBO1.Items.Add("John One") 
     arrayNames(0) = CStr(CBO1.Items(0)) 
     CBO1.Items.Add("Jack Two") 
     arrayNames(1) = CStr(CBO1.Items(1)) 
     CBO1.Items.Add("John Three") 
     arrayNames(2) = CStr(CBO1.Items(2)) 
     CBO1.Items.Add("Jack Four") 
     arrayNames(3) = CStr(CBO1.Items(3)) 
     CBO1.Items.Add("John Five") 
     arrayNames(4) = CStr(CBO1.Items(4)) 
     CBO1.Items.Add("Jack Six") 
     arrayNames(5) = CStr(CBO1.Items(5)) 
     CBO1.Items.Add("John Seven") 
     arrayNames(6) = CStr(CBO1.Items(6)) 
     CBO1.Items.Add("Jack Eight") 
     arrayNames(7) = CStr(CBO1.Items(7)) 


    CBO2.Items.Add("235.50") 
    arrayBalance(0) = CDbl(CBO2.Items(0)) 
    CBO2.Items.Add("78943.98") 
    arrayBalance(1) = CDbl(CBO2.Items(1)) 
    CBO2.Items.Add("230781.10") 
    arrayBalance(2) = CDbl(CBO2.Items(2)) 
    CBO2.Items.Add("78362.00") 
    arrayBalance(3) = CDbl(CBO2.Items(3)) 
    CBO2.Items.Add("12097.20") 
    arrayBalance(4) = CDbl(CBO2.Items(4)) 
    CBO2.Items.Add("89267.34") 
    arrayBalance(5) = CDbl(CBO2.Items(5)) 
    CBO2.Items.Add("34959.06") 
    arrayBalance(6) = CDbl(CBO2.Items(6)) 
    CBO2.Items.Add("559284.50") 
    arrayBalance(7) = CDbl(CBO2.Items(7)) 
End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBalance.Click 
    Dim input As String = InputBox("Input a name") 
    Dim intcount As Integer = -1 
    Dim intSubscript As Integer = 0 


    Do While Not found And intcount < arrayNames.Length 
     If arrayNames(intSubscript) = input Then 
      found = True 
      MessageBox.Show("The balance of " & input & "'s is " & arrayBalance(intSubscript)) 
      intSubscript = 0 
      intcount = -1 
     End If 
     intSubscript += 1 
    Loop 
    If Not arrayNames.Contains(input) Then 
     MessageBox.Show("Error: Name not found.") 
    End If 
End Sub

来源

2013-07-20 user2603184

您需要初始化发现在你的循环开始时错误。你也只是将intcount设置为-1，所以测试总是成立。 –

此代码非常丑陋。您应该首先执行Contains测试，如果错误则跳过其他所有内容。 –

非常感谢！有效。 :) – user2603184

您需要重置发现错误，显示消息框后

If Not arrayNames.Contains(input) Then 
MessageBox.Show("Error: Name not found.") 
found = False 
End If

来源

2013-07-20 23:25:32 Miller

你不需要的“发现”变量在所有

Do While intcount < arrayNames.Length 

    If arrayNames(intSubscript) = input Then 
     MessageBox.Show("The balance of " & input & "'s is " & arrayBalance(intSubscript)) 
     intSubscript = 0 
     Exit Do  
    End If 
    intSubscript += 1 

Loop

来源

2013-07-21 00:00:21 Rob

我该如何结束我的循环？

回答

相关问题