处理一年中的月份天数的输出

知识点 :

数组+交错

 

[vb]
Module Module1 
 
    Sub Main() 
        Dim calendars()() As Double = New Double(11)() {} 
        Dim month As Integer 
        Dim days As Integer 
        Dim dayValue, i As Integer 
        For month = 0 To 11 
            days = DateTime.DaysInMonth(Year(Now), month + 1) 
            calendars(month) = New Double(days - 1) {} 
            i = 0 
            For Each dayValue In calendars(month) 
                calendars(month)(i) = i + 1 
                i += 1 
            Next 
        Next month 
 
 
        For month = 0 To 11 
            i = 0 
            Console.WriteLine("{0}月", month + 1) 
            For Each dayValue In calendars(month) 
                Console.Write("  {0}", calendars(month)(i)) 
                i += 1 
            Next 
            Console.WriteLine() 
        Next month 
 
 
 
        Console.ReadLine() 
    End Sub 
 
End Module 

Module Module1

    Sub Main()
        Dim calendars()() As Double = New Double(11)() {}
        Dim month As Integer
        Dim days As Integer
        Dim dayValue, i As Integer
        For month = 0 To 11
            days = DateTime.DaysInMonth(Year(Now), month + 1)
            calendars(month) = New Double(days - 1) {}
            i = 0
            For Each dayValue In calendars(month)
                calendars(month)(i) = i + 1
                i += 1
            Next
        Next month


        For month = 0 To 11
            i = 0
            Console.WriteLine("{0}月", month + 1)
            For Each dayValue In calendars(month)
                Console.Write("  {0}", calendars(month)(i))
                i += 1
            Next
            Console.WriteLine()
        Next month

 

        Console.ReadLine()
    End Sub

End Module


 

运行效果:

 \