日期:2014-05-20 浏览次数:20877 次
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