日期:2014-05-20 浏览次数:21025 次
Module Module1
Sub Main()
Dim Array1 As String() = Split("01 02 03 04 05 06 07 08 09 10 11 12")
Dim Result = Array1.Where(Function(s, i) i Mod 3 = 0)
For Each s In Result
Console.Write("{0} ", s)
Next
Console.ReadKey()
End Sub
End Module