'循环判断下集合吧
Dim Names As New List(Of String)Names.Add("中国")Names.Add("美国")Names.Add("日本")Names.Add("俄罗斯")For i As Integer = 0 To Names.Count - 1 If Names(i) = "俄罗斯" Then Output.Show(i)
Exit For End IfNext