Private a(5) As Integer
Private b(5) As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
a(1) = 1
a(2) = 2
a(3) = 3
a(4) = 9
a(5) = 8
b(1) = 5
b(2) = 6
b(3) = 9
b(4) = 7
b(5) = 7
Dim i As Integer
For i = 1 To 5
ListBox1.Items.Add(a(i))
ListBox2.Items.Add(b(i))
Next
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim i As Integer
Dim x As Integer
x = Val(TextBox1.Text)
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i) = x Then
ListBox1.SelectedIndex = i
ListBox2.SelectedIndex = i
Exit For
End If
Next
End Sub
veket用的方法没有问题,我试过了,但是不知道是不是因为VB和VB.NET有区别,个别地方的属性不太一样,我改了下,应该基本上符合你的要求了,也许我的能用,也许veket的能用...