2. 计算机
  3. 在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Commandl的Click事件代码： Private Function fun(x As Long)As Boolean If x Mod

在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Commandl的Click事件代码： Private Function fun(x As Long)As Boolean If x Mod

admin2013-04-11  71
问题 在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Commandl的Click事件代码：
    Private Function fun(x As Long)As Boolean
        If x Mod 2=0 Then
             fun=True
        Else
             fun=False
        EndIf
    End Function
    Private Sub Commandl_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
答案A
解析 本题考查函数调用以及IIf函数。IIf函数可用于执行简单的条件判断操作，其格式为result=IIf(<条件>，，)，其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf函数返回“TDie部分”的值，而当“条件”为假时返回“False部分”的值。“True部分”或“False部分”可以是表达式、变量或其他函数。函数。fun(n)的功能是判断n是否为偶数，是偶数则返回True，否则返回False。输入20时，fun返回True，则Commandl的单击事件中IIf语句得到“奇数”。
转载请注明原文地址:https://kaotiyun.com/show/jBQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)