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

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

admin2013-03-30  88
问题 若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文    本框，且文本框的内容为空，然后编写如下事件代码：
   Private Function f(X As Long)As Boolean
       If x Mod2=0 Then
         f=True
       Else
         f=False
       End If
   End Function
   Private Sub Command1_ Click()
      Dim n As Long
      n=Val(Me!text1)
      p=Ⅱf(f(n)，"Even number"，"Odd number")
      Me!Labell.Caption=n &"is"& p
   End Sub
   窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【  】。
选项
答案21isoddnumber
解析 函数过程也可称为函数，是一系列由Function和End Function语句包含起来的Visual Basic语句。Function过程和Sub过程很类似，但函数过程可以返回一个值。此题定义一个整型变量Long并把n的值赋予它，n为文本框Text1输入字符转换为数值型的值；当在文本框中输入21，则n的值为21，代入Function函数过程，x为21，对x取模，为偶数时返回True，为奇数时返回False；21是奇数，返回false；IIf涵数调用格式：IIf(条件式，表达式1，表达式2)，条件式值为Tree，函数返回表达式1的值，条件式植为False，函数返回表达式2的值。此处P返回表达式2的值Odd number；&用来强制两个表达式作字符串连接，则最后标签显示内容为21isoddnumber。
转载请注明原文地址:https://www.kaotiyun.com/show/4Zup777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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