若窗体中已有一个名为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,单击命令按钮,则标签显示内容为 【12】 。