填空题 若窗体中已有一个名为Commandl的命令按钮、一个名为Label1的标签和一个名为Textl的文本框，且文本框的内容为空，然后编写如下事件代码： Private Function f(X As Long)As Boolean lf x Mod 2=0 Then f=True EIse f=False End If End Function Private Sub Commandl click1 Dim n As Long n=Val(Me!bextl) p=IIf(f(n)，”Even number”，”Odd number”) Me!Labell．Caption=n&”is”&P End Sub 窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为 2。