2. 计算机
  3. 若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码： Private Function f(x As Long) As Boolean

若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码： Private Function f(x As Long) As Boolean

admin2010-03-22  56
问题 若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：
            Private Function f(x As Long) As Boolean
                 If x Mod 2=0 Then
                        f=False
                 Else
                       f=True
                 End If
           End Function
           Private Sub Cmd_Click( )
                 Dim n As Long
                 n=Val(Me! text1)
                  p=IIf(f(n), "奇数“，"偶数")
                 Me! Labell. Caption=n&"是"&p
     End Sub
窗体打开运行后，在文本框中输入11，单击命令按钮，则标签显示内容为【  】。
选项
答案11是奇数
解析 输入11后将11转换为数值类型并调用函数f，利用mod运算判断奇偶数，若为偶数返回False，若为奇数返回True。
转载请注明原文地址:https://www.kaotiyun.com/show/SYwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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