Vba 需要完成代码的提示：

这个问题已经回答了。 不想让它暴露在外

Private Sub btnTTL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles findzipButton.Click

    Dim zipCode As String

    'forgot

    If (ListBox1.FindString(findzipButton.Text) >= 0) Then
        ttlTextBox.Text = "$15"
    ElseIf (ListBox2.FindString(findzipButton.Text) >= 0) Then
        ttlTextBox.Text = "$20"
    Else
        MessageBox.Show("The zipcode was not found!")
    End If

End Sub
End Class

---

因此，我认为您要做的是将用户输入到文本框中的输入与ListBoxA或ListBoxB中的选择相匹配。我刚刚在VS 2012中尝试过，它似乎与上面描述的问题一样有效，但我只是试图找到并显示运输成本：

私有子btnExit_Click（ByVal sender作为对象，ByVal e作为System.EventArgs）处理btnExit。单击 我 端接头

Private Sub ListBox1_Load(sender As Object, e As EventArgs) Handles Me.Load

    ListBox1.Items.Add("60611")
    ListBox1.Items.Add("60234")
    ListBox1.Items.Add("56789")
    ListBox1.Items.Add("23467")
    ListBox1.Items.Add("60543")
    ListBox1.Items.Add("60561")
    ListBox1.Items.Add("55905")
    ListBox1.Items.Add("89567")


    ListBox2.Items.Add("50978")
    ListBox2.Items.Add("78432")
    ListBox2.Items.Add("98432")
    ListBox2.Items.Add("97654")
    ListBox2.Items.Add("20245")

End Sub

Private Sub btnFind_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFind.Click

    Dim zipCode As String = txtZipCode.Text

    If (ListBox1.FindString(zipCode) >= 0) Then
        txtShipping.Text = "$15"
    ElseIf (ListBox2.FindString(zipCode) >= 0) Then
        txtShipping.Text = "$20"
    Else
        MessageBox.Show("The zipcode was not found!")
    End If

End Sub

---

你在正确的轨道上。您需要做的是将用户实际输入到文本框的内容与列表框中可用的内容进行比较。然后，FindItem（）方法将产生一个很长的结果。如果它确实找到了您的搜索字符串，它将构建发货文本框。

如果您给我一点时间，我将在我的DropBox上获得一些屏幕截图，以便您可以看到这是否是您所期望的，或者可能是我误解了问题。或者我可以把解决方案文件放上去。是的，这正是我要做的。比较用户实际输入的内容与列表框1中的内容。如果它不在那里，它将选中列表框2。如果仍然找不到号码，则会显示not found。我还没有学习FindItem（）方法。多谢各位