填空题

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