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