网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

若窗体中已有一个名为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的文本框,且文本框的内容为空,然后编写如下事件代码: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=n"是"pEnd Sub窗体打开运行后,在文本框中输入11,单击命令按钮,则标签显示内容为【 】。 ” 相关考题
考题 在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ,并在命令按钮中编写如下事件代码: Private Sub Commandl_click() m=2.17 n=Len(Str$(m) +Space(5) ) Me!Text1=n End Sub 打开窗体运行后,单击命令按钮,在文本框中显示( )。A.5B.8C.9D.10

考题 若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框,且文本框的内容为空,然后编写如下事件代码:Private Function f(x As Long) As BooleanIf x Mod 2=0 Thenf=TrueElsef=FalseEnd IfEnd FunctionPrivate Sub Command1_Click( )Dim n As Longn=Val(Me!text1)p=IIf(f(n) ,“Even

考题 在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签,一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程,使程序运行后,在文本框中输入严计算机等级考试”,然后单击命令按钮,则文本框消失,并在标签内显示文本框中的内容。运行后的窗体如下图所示。注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise31.vbp,窗体文件名为execise31.frm。

考题 在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。

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

考题 若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框,且文本框的内容为空,然后编写如下事件代码:Private Function f(X As Long)As BooleanIf x Mod2=0 Thenf=TrueElsef=FalseEnd IfEnd FunctionPrivate Sub Command1_ Click()Dim n As Longn=Val(Me!text1)p=Ⅱf(f(n),"Even number","Odd number")Me!Labell.Caption=n "is" pEnd Sub窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为【 】。

考题 在名为Form1的窗体上,绘制一个名为Text1的文本框。设置文本框属性,在文本框中显示“文本框”;再建立一个名为Cmd1,标题为Clear的命令按钮,如下图所示。编写适当的事件过程,使程序运行后,若单击Clear命令按钮,则清除文本框中所显示的信息。注意:文件必须存放在考生文件夹中,窗体文件名为execise5.frm,工程文件名为exeeise5.vbp。

考题 在名为Foma1的窗体上绘制一个标签(名称为Lab1,标题为Input)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Cmd1,标题为Display)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入Visual Basic,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如下图所示。注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise69.vbp,窗体文件名为exeCise69.frm。

考题 在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl),编写如下事件过程:打开窗体运行后,单击命令按钮,文本框中显示的内容是__________。