更多"在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Lal"的相关试题:
[单项选择]在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl，然后编写如下事件过程 Private Sub Form_Load（ ） Listl.Addltem"Iteml" Listl.Addltem"Item2" Listl.Addltem"Item3" End Sub Private Sub Commandl_Click（ ） Listl.List(Listl.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。
A. 把字符串“AAAA”添加到列表框中，但位置不能确定
B. 把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)
C. 把列表框中原有的最后一项改为“A从A”
D. 把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)
[单项选择]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为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
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：
Sub s(x As Integer, y As Integer)
Static z As Integer
y=x*x+z
z=y
End Sub
Private Sub Command1 Click（ ）
Dim i As Integer, z As Integer
m=0
z=0
For i=1 To 3
S i, Z
m=m+z
Next i
Labell. Caption=Str(m)
End Sub
程序运行后，单击命令按钮，在标签中显示的内容是( )。
A. 50 B) 20 C) 14 D) 7
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Counter=0
For i=1 To 4
For j=6 To 1 Step-2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是( )
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick（ ） 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. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=InputBox("Enter an integer")
y=InputBox("Enter an integer")
Text1.Text=y+x
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是______。
A. 307
B. 37
C. 703
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click（ ）
Dim m As String,i As Integer
For i=Len(ss) To 1 Step-1
m=m+Mid(ss,i，1)
Next
Text1.Text=UCase(m)
End Sub
运行程序后，在文本框中输入"Visual Basic 2011"，并单击命令按钮，则文本框中显示的是______。
A. VISUAL BASIC
B. ISUAL BASIC 2011
C. CISAB LAUSIV 2011
D. 1102 CISAB LAUSIV
[单项选择]在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程。
Private Sub Form_Load（ ）
List1.AddItem“Itemn 1”
List1.AddItem“Itemn 2”
List1.AddItem”Item 3”
End Sub
Private Sub Command1_Click（ ）
List1.List( List1.ListcountF AAAA"
End Sub
程序运行后，单击命令按钮，其结果为( )。
A. 把字符串“AAAA”添加到列表框中，但位置不能确定
B. 把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面)
C. 把列表框中原有的最后一项改为“AAAA”
D. 把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)
[单项选择]
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text I和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S I As String, S2 As String
Private Sub Form Load（）
Text 1 .Text=""
Text2.Text=""
Text 1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form_ KeyDown（KeyCode As Integer, Shift As Integer）
S2=S2＆Chr（KeyCode）
End Sub
Private Sub Forin_ KeyPress（KeyAscii As Integer）
S1=S1＆Chr（KeyAscii）
End Sub
Private Sub Command l Click
Text l .Text=Sl
Text2.Text=S2
S1=""
S2=""
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为（）
A. abc和ABC
B. 空白
C. ABC和abc
D. 出错
[单项选择]在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String,S2 As String
Private Sub Form_Load（ ）
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Private Sub Command1_Click（ ）
Text1.Text=S1
Text2.Text=S2
S1=" "
S2=" "
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )
A. abc和ABC
B. 空白
C. ABC和abc
D. 出错
[单项选择]在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click（ ） CommonDialogl.Flags=cdlOFNHideReadOnly CommonDialogl.Filter="All Files(*.*)|*.*|Text Files"& "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialogl.FilterIndex=2 CommonDialogl.ShowOPen MsgBoxCommonDialogl.filename End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显，示的是 ______。
A. All Files(*.*)
B. Text Files(*.tx
C. Batch Files(*.ba
D. 不确定
[单项选择]在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*aEnd SubPrivate Sub Form_ Load（ ） Label1.Caption="ABCD" Label2.Caption=10End SubPrivate Sub Command1_Click（ ） a=Val(Label2.Caption) Call func (Label1，A) Label2.Caption=aEnd Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是______。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
