题目内容:
若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码:Private Function f(x As Long . As Boolean
If x Mod 2 = 0 Then
f = True
Else
f = False
End If
End Function
Private Sub Command1_Click( .
Dim n As Lon
n = Val(Me!text1.
p = IIf(f(n., "Even number", "Odd number".
Me!Label1.Caption = n & " is "& p
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为 【12】 。
参考答案:
答案解析: