单选题 窗体中有命令按钮Command1和文本框Text1,
事件过程如下:
Function result(ByVal x As Integer)
AS Boolean
If x MOod 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是奇数”。那么在程序的空白处应填写______。
【正确答案】 B
【答案解析】[解析] result函数的功能为:当输入的值为偶数时返回true,当输入的结果为奇数时,返回false。根据分支结构,当输入的数是偶数时,输出“偶数”;当输入的数是奇数时,输出“奇数”。所以,在If条件中应调用result函数来判断输入的是奇数还是偶数。