编写的“查看”按钮( Command1) Click事件过程代 码如下: Private Sub Commandl Click Dim y As Integer, fAs Integer, kAs Intege y= Val(Text1.Text)-1 f=y+int(y/4)-Inty/100+n(y/400)+1 k=f Mod 7 等价于f-Intf/7)*7吗? Text2Text =k End Sub 运行结果(见上图) ★编写的“查看”按钮(Command1)Click事件过程代 码如下: Private Sub Command1_Click() Dim y As Integer, f As Integer, k As Intege y = Val(Text1.Text) -1 f = y + Int(y/4) – Int(y/100) + Int(y/400) + 1 k = f Mod 7 ‘等价于f - Int(f / 7) * 7 吗 ? Text2.Text = k End Sub 运行结果(见上图)