itgle.com
若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(x As Long) As BooleanIf x Mod 2=0 Thenf=FalseElsef=TrueEnd IfEnd FunctionPrivate Sub Cmd_Click( )Dim n As Longn=Val(Me! text1)p=IIf(f(n), "奇数“，"偶数")Me! Labell. Caption=
题目
若窗体中已有一个名为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，单击命令按钮，则标签显示内容为【 】。
相似考题
更多“若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内 ”相关问题
-
第1题：
若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框，且文本框的内容光焕发为空，然后编写如下事件代码： Private Function fx As Long． As Boolean If x Mod 2 =0 Then f =True Else f =False End If End Function Privare Sub Commandl_Click． Dim n As Ling n =ValMeltextl． p=Iiffn．,”Even number”,”Odd number’ Me!Labell.Caption=n＆“is” ＆p End Sub 窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为 【12】
正确答案：
21 is odd number -
第2题：
在名为Form1的窗体上，绘制一个名为Text1的文本框。设置文本框属性，在文本框中显示“文本框”；再建立一个名为Cmd1，标题为Clear的命令按钮，如下图所示。编写适当的事件过程，使程序运行后，若单击Clear命令按钮，则清除文本框中所显示的信息。
注意：
文件必须存放在考生文件夹中，窗体文件名为execise5.frm，工程文件名为exeeise5.vbp。
正确答案：
-
第3题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。
正确答案：
15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。 -
第4题：
若窗体中已有一个名为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
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。 -
第5题：
在名为Foma1的窗体上绘制一个标签(名称为Lab1，标题为Input)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Cmd1，标题为Display)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入Visual Basic，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如下图所示。
注意：
要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise69.vbp，窗体文件名为exeCise69.frm。
正确答案：