问题
填空题
若窗体中已有一个名为Comgiland1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f As Boolean
If x Mod 2=0 Then F=True
Else F=False
End If
End Function
Privare Sub Command1_Click()
Dim n As Ling
n=Val(Me! text1)
p=Ilf(f(11)，"Even number"，"Ddd number")
Me!Labell Caption=n &"is"＆ p
End Sub
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为______。
答案
参考答案：21 isoddnumber
解析： 本题考查的是自定义函数。函数过程也可称为函数，是一系列由Function和End Function语句包括起来的Vusual Basic语句。Function过程和Sub过程很类似，但函数过程可以返回一个值。此题定义一个整型变量Long并把n的值赋予它，n为文本框Text1输入字符转换为数值型的值；当在文本框中输入21，则n的值为21，代入Filnction函数过程，x为21，对x取模，为偶数时返回True，为奇数时返回False；21是奇数，返回false；IIf()函数调用格式：IIf(条件式，表达式1，表达式2)，条件式值为True，函数返回表达式1的值，条件式值为False，函数返回表达式2的值。此处P返回表达式2的值Odd number；&用来强制两个表达式作字符串连接，则最后标签显示内容为21 isoddnumber。