若窗体中已有一个名为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 numb

题目

若窗体中已有一个名为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】


相似考题
更多“若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框,且文本 ”相关问题
  • 第1题:

    若窗体中已有一个名为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。

  • 第2题:

    在名为”Forml”的窗体上添加三个文本框和一个命令按钮,其名称分别为”Textl”、”Text2”、”Text3”和”Commandl”,然后编写如下两个事件过程:


    正确答案:
    510【解析】本题考查“ ”运算符的使用。“ ”运算符可以用于计算两个数之和,也可以使用“ ”运算符连接两个字符串,“ ”,运算符两端的表达式的基本类型决定了“ ”运算符所做的操作,如果两个表达式都是数值或者一个表达式是数值,另一个表达式是字符串,则“ ”代表相加;如果两个表达式都是字符串则“ ”代表字符串的连接。本题中,由于文本框的Text属性值的类型是字符串,所以“ ”运算符连接的是字符串…5和字符串“10”,所以本题答案为510。

  • 第3题:

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程:


    正确答案:
    15【解析】本题考查VBA程序中过程调用的知识。由于VBA中,默认情况下,参数是按地址传递(ByRef),对形参的改变会影响到实参。本题中2的值等于a b,这个z值会返回给实参c,所以文本框中显示的内容为15。

  • 第4题:

    在窗体上添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),并在命令按钮中编写如下事件代码:PrivateSubCommandlClick()m=17n=Len(Str$(m)+Sp2ace(5))Me!Text1=nEndSub打开窗体运行后,单击命令按钮,在文本框中显示______。

    A.5

    B.8

    C.9

    D.10


    正确答案:D

  • 第5题:

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl),编写如下事件过程:

    打开窗体运行后,单击命令按钮,文本框中显示的内容是__________。


    正确答案:
    15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时,参数有两种传递方式:传址传递和传值传递。如果在函数声明时没有说明传递类型,则默认为传址传递,即形参的结果会传递给实参。本题中形参均为传址传递,即a=x=3,b=y=5,c=z=10。但是在子程序里面对c重新赋值为c=a*b=15,这个值l5会回送给实参2,所以最后显示的值Z也就是l5。