在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Labell,文本框的Text1属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后,在文本框中输入28.653,单击命令按钮,标签中显示的内容是 ______。
A.27
B.28
C.29
D.30
第1题:
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
程序运行后,单击命令按钮,在文本框中显示的值是
A.2
B.3
C.4
D.5
第2题:
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在( )处填入适当的内容,将程序补充完整。
第3题:
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为多少?
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为:同学们,你们好。
略
第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,单击命令按钮,则标签显示内容为【 】。
第5题:
在窗体上画两个文本框(其Name属性分别为Text1和Tex12)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: 程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。
A10和0
B2和100
C3和50
D4和168