更多"在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选"的相关试题:
[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。
下面是实现上述功能的程序，请填空。
Private Sub Form_Load（ ）
List1.AddItem "AAAAA"
List1.AddItem "BBBBB"
List1.AddItem "CCCCC"
List1.AddItem "DDDDD"
End Sub
Private Sub Command1_Click（ ）
Dim L1 As Integer
L1= 【12】
If L1 ＞=0 Then
List1.RemoveItem 【13】
Labell.Caption= 【14】
Else
MsgBox("请选择要删除的项目")
End If
End Sub
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程： Private Sub Commandl_Click（ ） Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是( )。
A. 11
B. 12
C. 16
D. 20
[填空题]在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Label1，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Counter=0
For i=1 T0 4
For j=6 T0 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是______。
[填空题]在窗体上画一个命令按钮和一个标签，其名称分别为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
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是______。
[单项选择]
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： 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
Labell.Captidn=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（）。
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为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和Labe11，然后编写如下事件过程：
Private Sub Command1_Click( )
Counter=0
For i=1 To 4
For j=8 To 1 Step-2
Counter=Counter+1
Next j
Next i
Labe11.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是______。
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Counter=0
Fori=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
