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

郭金庚回答：

　　PrivateSubForm_click()DimyAsInteger,fAsInteger,kAsIntegery=Val(InputBox("请输入年号：",,"键盘输入年号"))y=y-1f=y+y4-y100+y400+1k=fMod7MsgBoxy+1...