[单项选择题] 在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码： Private Function fun(x As

23 查阅

[单项选择题] 在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：

Private Function fun(x As Long)As Boolean

If x Mod 2=0 Then

fun=True

Else

fun=False

End If

End Function

Private Sub Command1_Click()

Dim n As Long

n=Val(Text1.Text)

p=IIf(fun(n),"奇数","偶数")

Label1.Caption=n & "是一个"& p

End Sub

程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为( )。

A．20是一个奇数

B．20

C．20是一个偶数

D．2

参考答案:

本题考查函数调用以及IIf函数。IIf函数可用于执行简单的条件判断操作，其格式为result=IIf(＜条件＞，＜True部分＞，＜False部分＞)，其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf函数返回“True部分”的值，而当“条件”为假时返回“False部分”的值。“True部分”或“False部分”可以是表达式、变量或其他函数。函数fun(n)的功能是判断n是否为偶数，是偶数则返回True，否则返回False。输入20时，fun返回True，则Command1的单击事件中IIf语句得到“奇数”。

计算机考试