窗体中有命令按钮commanddl和文本框Textl,事件过程如下: Function result(ByVal x As Integer)As Boolean Ifx Mod 2=0 Then result=True

admin2021-06-03  31

问题 窗体中有命令按钮commanddl和文本框Textl,事件过程如下:
    Function result(ByVal x As Integer)As Boolean
      Ifx Mod 2=0 Then
        result=True
      Else
         result=False
      End If
    End Function
    Private Sub Commandl_Click0
       x=Val(InputBox("请输入一个整数"))
       If_______Then
         Textl=str(x)&"是偶数."
       Else
         Textl=str(x)&"是奇数."
       End If
    End Sub
    运行程序,单击命令按钮,输入19,在Textl中会显示“19是奇数”。那么在程序的空白处应填写

选项 A、result(x)=“偶数”   
B、result(x)
C、result(x)=“奇数”   
D、NOT result(x)

答案B

解析 result函数返回的是布尔值:True或False,x Mod 2=0表示如果一个数除以2为0代表是偶数,那么返回True值,所以条件判断时只要调用。result(x)即可。
转载请注明原文地址:https://jikaoti.com/ti/ik90FFFM
0

最新回复(0)