处理一年中的月份天数的输出
知识点 :
数组+交错
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 SubEnd Module
运行效果:
总结以上是内存溢出为你收集整理的vb.net 交错 处理 一年中的月份天数的输出全部内容,希望文章能够帮你解决vb.net 交错 处理 一年中的月份天数的输出所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)