题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2024-01-30 22:35:03

[填空题]若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(x As Long) As Boolean
If x Mod 2=0 Then
f=True
Else
f= False
End If
End Function
Private Sub Commandl_Click( )
Dim n As Long
n=Val(Me!text1)
p=IIf(f(n), "Even number", "Odd number")
Me!Label1.Caption=n&"is"&p
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。

更多"若窗体中已有一个名为Command1的命令按钮、一个名为Label1的"的相关试题:

[填空题]若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(x As Long) As Boolean If x Mod 2=0 Then f=True Else f=False End If End Function Private Sub Command1_Click( ) Dim n As Long n=Val(Me!text1) p=IIf(f(n) ,“Even number”,“Odd number”) Me!Label 1.Caption=n&“is”&p End Sub 窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。
[填空题]若窗体中已有一个名为COMMAND1的命令按钮、一个名为LABEL1的标签和一个名为 TEXT1的文本框,且文本框的内容为空,然后编写如下事件代码:
PRIVATE FUNCTION F(X AS LONG) AS BOOLEAN
IF X MOD 2 = 0 THEN
F = TRUE
ELSE
F=FALSE
END IF
END FUNCTION
PRIVATE SUB COMMAND1_CLICK( )
DIM N AS LONG
N=VAL(ME! TEXT1)
P = IIF( F(N) , "EVEN NUMBER" ,"ODD NUMBER" )
ME ! LABEL1: CAPTION = N&"IS" &P
END SUB
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示的内容为 【13】
[填空题]若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(x As Long) As Boolean If x Mod 2=0 Then f=True Else f=False EndIf End Function Private Sub Commandl_Click( ) Dim n As Long n=Val(Me!text1) p=If(f(n),"Even number","Odd number") Me!Label1.Caption=n& "is"&p EndSub 窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为【 】。
[填空题]若窗体中已有一个名为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,单击命令按钮,则标签显示内容为 【12】
[填空题]若窗体中已有一个名为Commandl的命令按钮、一个名为Label1的标签和一个名为Textl的文本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(X As Long)As Boolean lf x Mod 2=0 Then f=True EIse f=False End If End Function Private Sub Commandl click( ) Dim n As Long n=Val(Me!bextl) p=IIf(f(n),”Even number”,”Odd number”) Me!Labell.Caption=n&”is”&P End Sub 窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。
[单项选择]在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Label1,文本框的Text1属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click( )
x=Int(Val(Text1.Text)+0.5)
Label1.Caption=Str(x)
End Sub
程序运行后,在文本框中输入28.653,单击命令按钮,标签中显示的内容是: ______。
A. 27
B. 28
C. 29
D. 30
[单项选择]在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1,然后编写如下两个事件过程:
Private Sub Command1_Click( )
  a = InputBox("请输入一个字符串")
  Text1.Text = a
End Sub
Private Sub Text1_Change( )
  Label1.Caption = UCase(Mid(Text1.Text, 8))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"Visual Basic",则在标签中显示的内容是________。
A. visual basic
B. VISUAL BASIC
C. basic
D. BASIC
[单项选择]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:
Private Sub Command1_Click( )
strText=InputBox("请输入")
Text1. Text=strText
End Sub
Private Sub Text1_Change( )
Label1. Caption=Right(Trim(Text1. Text), 3)
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是______。
A. 空
B. abcdef
C. abc
D. def
[单项选择]在窗体上画—个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写 如下两个事件过程:
Private sub Command1_Click( )
strText=lnputBox(“请输入”)
Text1.Text=strText
EndSub
Private Sub Text1_Change( )
Label1.Caption=Right(Trim(Text1.Text),3)
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是
A. 空
B. abcdef
C. abe
D. def
[单项选择]设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是______。
A. Label1.BackStyle=2
B. Command1.Style=1
C. Text1.ScrollBars=4
D. Check1.Value=2
[单项选择]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:
Private x As Integer
Private Sub Command1_Click( )
Static y As Integer
Dim z As Integer
n = 10
2 = n + z
y=y+z
x = x + z
Label1.Caption =x
Label2.Caption =y
Label3.Caption =z
End Sub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码