若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(X As Long)As Boolean If x Mod2=0 Then f=True Else f=False End If End Function Private Sub Command1_ Click() Dim n As Long n=Val(Me!text1) p=Ⅱf(f(n),'Even number','Odd number') Me!Labell.Caption=n &'is'& p End Sub 窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为【 】。