vb程序运行时，在文本框中输入一个四位数的整数n（大于 1000），点 击按钮计算【1000，n】中各个数字所表示的年份为闰年的个数，并用消息框输 出相应信息

这个问题可以回答。以下是代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim n As Integer = Val(TextBox1.Text)
    Dim count As Integer = 0
    For i As Integer = 1000 To n
        If i Mod 4 = 0 And (i Mod 100 <> 0 Or i Mod 400 = 0) Then
            count += 1
        End If
    Next
    MsgBox("从1000到" & n & "年中，有" & count & "个闰年。")
End Sub

这个程序会计算从1000年到输入的年份n中，有多少个闰年，并用消息框输出结果。