窗体中有命令按钮Commandl和文本框Textl,事件过程如下: Function result(ByValxAslnteger) As Boolean If x Mod 2=0 Then result=True Else result=False En

admin2020-06-06  22

问题 窗体中有命令按钮Commandl和文本框Textl,事件过程如下:
Function result(ByValxAslnteger) As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Commandl_Click()
x=Val(lnputBox("请输入一个整数"))
I______fThen
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为O代表是偶数,那么返回True值,所以条件判断时只要调用result (x)即可。
转载请注明原文地址:https://jikaoti.com/ti/CRo0FFFM
0

随机试题
最新回复(0)