早教吧 育儿知识 作业答案 考试题库 百科 知识分享

在vb.net中,如何计算出2000-2100年之间的闰年?输出到文本框,并统计输出闰年的个数?主要是统计个数

题目详情
在vb.net中,如何计算出2000-2100年之间的闰年?输出到文本框,并统计输出闰年的个数?主要是统计个数
▼优质解答
答案和解析
根据闰年的定义 当年份能被400整除 或者能被4整除且不能被100整除时 此年份为闰年
所以 程序如下
新建一个Button,名称为Button1,新建一个TextBox,名称为TextBox1.当按下Button1的时候 textbox1中显示闰年年份结果
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim leapyears() As Integer = GetLeapYears(2000, 2100)
        Dim str As String
        Try
            Dim count As Integer = UBound(leapyears) + 1
            str = "闰年个数:" + count.ToString
            For i = 0 To UBound(leapyears)
                str += " " + leapyears(i).ToString
            Next
            TextBox1.Text = str
        Catch ex As Exception

        End Try
    End Sub
    ''' 
    ''' 获取指定年份区间中所有闰年组成的数组
    ''' 

    ''' 起始年份
    ''' 结束年份
    ''' 
    ''' 
    Private Function GetLeapYears(StartYear As Integer, EndYear As Integer) As Integer()
        Dim leapyears() As Integer = Nothing
        Dim index As Integer = 0
        For i = StartYear To EndYear
            If (i Mod 400 = 0) Or (i Mod 4 = 0 And i Mod 100 <> 0) Then
                ReDim Preserve leapyears(index)
                leapyears(index) = i
                index += 1
            End If
        Next
        Return leapyears
    End Function
看了 在vb.net中,如何计算出...的网友还看了以下:

下面是育才书店今年4月份售书情况统计表种类科普文艺侦探卡通数量:本500400100600请你根据  2020-06-20 …

23.某商品的成本函数为C(Q)=15Q-6Q^2+Q^3(Q为产量),求:1.产量为多少时,可使  2020-07-26 …

下面是三位同学看书情况的统计图.(1)小丽、明明和大庆平均每人看书多少本?(2)请根据统计图提供的  2020-07-31 …

根据上面的统计表完成下面的条形统计图.三年一班同学为希望工程捐书情况统计表组别第一组第二组第三组第  2020-07-31 …

紧急!(高分)关于应用统计的一道题统计某街头12小时的客流量,可用小样本统计,通过统计其各项数据,  2020-08-02 …

英语翻译本文介绍了自主移动小车的整体设计,包括自主移动小车的轮子的数目和类型,小车的感知系统和驱动系  2020-11-17 …

英语翻译本课题通过在ALTERA公司的CycloneII-EP1C芯片上搭建NIOSII处理器,再在  2020-11-28 …

日本统治时期,台湾总督府解散台湾某一结社,依据的理由是:「这种以民族运动为中心,附带采行阶级斗争的政  2020-12-07 …

初三(1)班团支部对该班全体团员在最近一段时间内的课外阅读量(本),进行统计,发现最少读了1本,最多  2020-12-10 …

阅读下列表格,并根据表格中所提供的相关信息回答以下各问题。表1某工厂的成本统计表(单位:美元/吨)地  2021-01-13 …