更多"设Label1、Command1、Text1、Check1分别为标签、"的相关试题:
[单项选择]在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为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( )
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
[单项选择]在窗体上画一个文本框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、Text2的2个文本框,要求文本框Text1中输入的数据小于
500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以 下程序中问号(?)处应填入的内容是______。
Private Sub Text1_LostFocus( ) Call CheckInput(Text1,500) End Sub
Private Sub Text2_LostFocus( ) Call CheckInput(Text2,1000) End Sub
Sub CheckInput(t As ,x As Integer) If Val(t.Text)>x Then
MsgBox "请重新输入!"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[单项选择]窗体上有名称分别为Text1、Text2的两个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中间号( )处应填入的内容是
Private Sub Text1_LostFocus( )
Call CheekInput(Text1,500)
End Sub
Private Sub Text2_LostFocus( )
Call CheekInput(Text2,1000)
End Sub
Sub Cheeklnput(t As , x As Integer)
If Val(t.Text)>x Then
MsgBox "请重新输入!"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[单项选择]在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click( )
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体中添加两个文本框,其名称分别为Text1和Text2;两个标签,其名称分别为Label1和Label2。编写程序,使得程序运行后,在文本框Text2中输入小写字母,能转换为比此字母的ASCII码小4的大写字母,结果显示在文本框Text1中。如输入“efg”,则输出的结果为“ABC”,能够实现上述功能的程序是
A. Private Sub Form Load()
B. Private Sub Form_Load()
C. Private Sub Form_Load()
D. Private Sub Form_Load()
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyDown事件过程如下:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim s As String
s=Chr(KeyCode+35)
Text2.Text=s
End Sub
当向文本框Text1中输入小写字母a时,文本框Text2中显示的是
A. A
B. a
C. D
D. d
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时,文本框Text2中显示的是( )。
A. A
B. a
C. C
D. c
[单项选择]在窗体上画一个命令按钮和两个标签,其名称分别为Command1、Label1和Label2,然后编写如下事件过程:
Private Sub Command1_Click( )
a=0
For i=1 T0 10
a=a+1
b=0
For j=1 To 10
a=a+1
b=b+2
Next j
Next i
Label1.Caption=Str(a)
Label2.Caption=Str(b)
End Sub
程序运行后,单击命令按钮,在标签Label1和Label2中显示的内容分别是( )。
A. 10和20
B. 20和110
C. 200和110
D. 110和20