选择题   窗体中有命令按钮commandd1和文本框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是奇数”。那么在程序的空白处应填写