UC知道如何做一个用EXCEL的VISUAL编程表示1900年到2008年之间全部闰年的函数表
来源：百度知道 编辑：UC知道 时间：2024/06/15 11:45:51
在百度上找到下面的编程:Sub 闰年函数()
Dim i As Integer, j As Integer
yearbegin = 1850
yearend = 1950
For i = yearbegin To yearend
If i Mod 400 = 0 Or (i Mod 4 = 0 And i Mod 100 <> 0) Then
j = j + 1
End If
Next i
MsgBox yearbegin & "年到" & yearend & "年共有闰年" & j & "个", vbOKOnly, "闰年个数"
End Sub
可以表示闰年的个数..如果想把所有的闰年都表示出来~~该怎么修改!!请各位指教指教~~万分感谢!!
谢谢一楼的...
可是复制进去后实行...
表格还是没显示出全部闰年..
还有,有那个大大能搞懂下面的问题吗?
用反复程序求出下面数值的和
1+2+3+4+……+100
1(2)+2(2)+3(2)+……+20(2) (2);平方
1(3)+2(3)+3(3)+....+20(3) (3):立方
因为本人比较小白,
不怎么懂..
能否请哪位达人用EXCEL帮我解答之后,用文件发给我~~先谢了!
邮箱:LINYZ1008@HOTMAIL.COM
Dim i As Integer, j As Integer
yearbegin = 1850
yearend = 1950
For i = yearbegin To yearend
If i Mod 400 = 0 Or (i Mod 4 = 0 And i Mod 100 <> 0) Then
j = j + 1
End If
Next i
MsgBox yearbegin & "年到" & yearend & "年共有闰年" & j & "个", vbOKOnly, "闰年个数"
End Sub
可以表示闰年的个数..如果想把所有的闰年都表示出来~~该怎么修改!!请各位指教指教~~万分感谢!!
谢谢一楼的...
可是复制进去后实行...
表格还是没显示出全部闰年..
还有,有那个大大能搞懂下面的问题吗?
用反复程序求出下面数值的和
1+2+3+4+……+100
1(2)+2(2)+3(2)+……+20(2) (2);平方
1(3)+2(3)+3(3)+....+20(3) (3):立方
因为本人比较小白,
不怎么懂..
能否请哪位达人用EXCEL帮我解答之后,用文件发给我~~先谢了!
邮箱:LINYZ1008@HOTMAIL.COM
Dim i As Integer, j As Integer,k as integer
dim syear() as string
yearbegin = 1850
yearend = 1950
For i = yearbegin To yearend
If i Mod 400 = 0 Or (i Mod 4 = 0 And i Mod 100 <> 0) Then
j = j + 1
redim syear(j)
syear(j-1)=i
End If
Next i
for k=0 to ubound(syear())
debug.print syear(k) , "is 闰年"
next k
MsgBox yearbegin & "年到" & yearend & "年共有闰年" & j & "个", vbOKOnly, "闰年个数"
End Sub
你到vb中调试一下就可以了
Dim sum As Long
Dim i%, j%, k%
Private Function getsum(ByVal num1 As Integer, ByVal num2 As Integer) As Long
For i = 1 To num1
Select Case num2
Case 1
sum = sum + i
Case 2
sum = sum + i ^ 2
Case 3
sum = sum + i ^ 3
Case Else
sum = sum + i ^ num2
End Select
Nex