在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Commandl的Click事件代码: Private Function fun(x As L,ong)As Boolean Ifx Mod 2=0 Then fun

admin2015-11-25  27

问题 在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Commandl的Click事件代码:
Private Function fun(x As L,ong)As Boolean
Ifx Mod 2=0 Then
fun=True
Else
fun=False
End If
End Function
Private Sub Commandl_Click()
Dim n As Long
n=Val(Textl.Text)
P=IIf(fun(n),“奇数”,“偶数”)
L

选项 A、20是一个奇数
B、20
C、20是一个偶数
D、2

答案A

解析 本题考查函数调用以及IIf函数。IIf函数可用于执行简单的条件判断操作,其格式为resultffiIIf[<条件>,,),其中“result”是函数的返回值,“条件”是一个逻辑表达式。当“条件”为真时,IIf函数返回“True部分”的值j而当“条件”为假时返回“False部分”的值。“True部分”或“False部分”可以是表达式、变量或其他函数。函数fun([n)的功能是判断n是否为偶数,是偶数则返回True,否则返回False。输入20时,fun返回True,则Commandl的单击事件中IIf语句得到“奇数”。
转载请注明原文地址:https://kaotiyun.com/show/1jLp777K
0

最新回复(0)