Dim Collection As String() = {"Beijing", "Shanghai", "Guangzhou", "Shenzhen", "Shijiazhuang", "Tianjin", "Taiyuan} Console.WriteLine((From City In Collection Where City(0) = "T").First)
Sub Main() Dim Start As Integer For Count As Integer = 0 To 2 Dim Random As New Random Dim TempArray As New List(Of Integer) '生成测试数组 For I As Integer = 0 To 50000 TempArray.Add(Random.Next(10000, 99999)) Next '进行测试查询 Dim Source As Integer() = TempArray.ToArray '计算时间 '获取最后一条 Start = Timer Dim Last As Integer, First As Integer, Length As Integer