若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框,且文本框的内容光焕发为空,然后编写如下事件代码: Private Function fx As Long. As Boolean If x Mod 2 =0 Then f =True Else f =False End If End Function Privare Sub Commandl_Click. Dim n As Ling n =ValMeltextl. p=Iiffn.,”Even number”,”Odd number’ Me!Labell.Caption=n&“is” &p End Sub 窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为 【12】