在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码： Private Function fun(x As Long)As Boolean If x Mod 2=0 Then fun=True Else fun=False End If End Function Private Sub Command1_Click() Dim n As Long n=Val(Text1.Text) p=IIf(fun(n), 奇数 , 偶数 ) Label1.Caption=n & 是一个 & p End Sub 程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为( )。
A．20是一个奇数
B．20
C．20是一个偶数
D．2