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