更多"在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Comma"的相关试题:
[单项选择]在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程。
Private Sub Form_load（ ）
List1.Addltem"Item 1"
List1.Addltem"Item 2"
List1.Addltem"Item 3"
End Sub
Private Sub Command1_Click（ ）
List1.List(List1.Listcount)="AAAA"
End Sub
程序运行后，单击命令按钮，其结果为______。
A. 把字符串"AAAA"添加到列表框中，但位置不能确定
B. 把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C. 把列表框中原有的最后一项改为"AAAA"
D. 把字符串"AAAA"插入列表框的最前面(即"Item 1"的前面)
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drivel、Dirl和Filel。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dirl_Change事件过程中应使用的语句是______。
A. Dirvel.Drive=Dirl.Path
B. Dirl.Path=Drivel.Drive
C. Dirl.Path=Filel.Path
D. Filel.Path=Dirl.Path
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为
Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是：_______。
A. Dirve1．Drive=Dir1.Path
B. Dir1.Path=Drive1.Drive
C. Dir1.Path=File1.Path
D. File1.Path=Dir1.Path
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是______。
A. Dirve1.Drive=Dir1.Path
B. Dir1.Path=Drive1.Drive
C. Dir1.Path=File1.Path
D. File1.Path=Dir1.Path
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_change事件过程中应使用的语句是： ______。
A. Dirve1.Drive=Dir1.Path
B. Dir1.Path=Drive1.Drive
C. Dir1.Path=File1.Path
D. File1.Path=Dir1.Path
[单项选择]窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：
Private Sub Command1_Cliek（ ）
Dim In As Integer
In=______
List. Remove Ind
End Sub
则在程序的空白行的语句是( )。
A. List1.Index
B. List1.ListIndex
C. List1.Text
D. List1.listCount
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为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
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为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和Laloel1,然后编写如下事件过程：
Private Sub Command1_Click（ ）
Counter=0
For i=1 To 4
For i=6 To 1 Step-2
Counter= Counter+1
Next1
Next i
Labl1.Caption-Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是( )。
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为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
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为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
