用VB设计一个万年历程序,用来查询某年的元旦时星期几,已知计算某年Y的元旦时星期几,可由以下式子得出：F=Y-1+{(Y-1)/4}-{(Y-1)/100}+{(Y-1)/400}+1;其中{}表示整数,K=FMod7;Y为某年公元年号,计算出K为

Question

用VB设计一个万年历程序,用来查询某年的元旦时星期几,已知计算某年Y的元旦时星期几,可由以下式子得出：F=Y-1+{(Y-1)/4}-{(Y-1)/100}+{(Y-1)/400}+1;其中{}表示整数,K=FMod7;Y为某年公元年号,计算出K为星期几,2013年看的元旦是星期2.大神们救救我

Answer 1

Private Sub Form_click()
Dim y As Integer, f As Integer, k As Integer
y = Val(InputBox("请输入年号：", , "键盘输入年号"))
y = y - 1
f = y + y \ 4 - y \ 100 + y \ 400 + 1
k = f Mod 7
MsgBox y + 1 & "年的元旦是星期" & k
End Sub