Dim Names1 As New List(Of String) Names1.Add( "电视机") Names1.Add("电冰箱") Names1.Add("洗衣机") Dim Names2 As New List(Of String) Names2.Add( "电视机") Names2.Add("电冰箱") Names2.Add("洗衣机")
If names1.count <> names2.count Then Return False Else For i As Integer = 0 To names1.count-1 If names1(i) <> names2(i) Then Return False End If Next End If Return True