若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(x As Long) As Boolean If x Mod 2=0 Then f=False Else f=True End If End Function Private Sub Cmd_Click( ) Dim n As Long n=Val(Me! text1) p=IIf(f(n), '奇数“,'偶数') Me! Labell. Caption=n&'是'&p End Sub 窗体打开运行后,在文本框中输入11,单击命令按钮,则标签显示内容为【 】。