问题
单项选择题
窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If[ ]Then
Text1=Str(x)&"是偶数."
Else
Text1=Str(x)&"是奇数."
End If
End Sub
运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的括号内应填写______。
A．NOT result(x)
B．result(x)
C．result(x)="奇数"
D．result(x)="偶数\
答案
参考答案：B
解析： 本题程序是判断奇偶性的程序，函数Result用来判断x是否是偶数。如果x是偶数，那么Result的返回值为真，否则返回值为假。单击命令按钮时执行的过程是输入整数x，然后调用Result函数。如果值为真，文本框会显示输入的值是偶数，否则显示输入的值为奇数。调用Result函数且Result函数值为真时的表达式为：Result(x)。