单项选择题

在窗体上有一个名称为List1列表框和一个名称为Command1的按钮，List1的MultiSelect属性设置为2。当单击Command1按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是______。
Private Sub Command1_ Click ()
for i = List1. ListCount- 1 To 0 Step- 1
if ______ = True then
List1. RemoveItem i
End if
Next i
End Sub

A．List1.Select(i)
B．List1.Sort(i)
C．List1.List(i)
D．Ltst1.Select(List1.Listindex)
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, y As Integera =10: y = 0do a=a+2:y=y+ a Print a= ; a; y= , y if y＞20 then exit doLoop until a＞14End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A．a=12 y=12
a=14 y=16
a=16 y=20
B．a=12 y=12
a=16 y=28
a=14 y=24
C．a=12 y=12
a=14 y=26
D．a=12 y=12
a=14 y=44
单项选择题
在一个窗体上添加命令按钮控件，名为Command1，事件过程如下，则该过程的执行结果为______。Option Base 1Private Sub Command1_ Click() Dim a(5)As Integer Dim k As Integer Dim Total As Integer a (1)= 2 a (2)= 5 a (3)= 4 a (4)= 10 a (5)= 6 for k =1 To 5 Total = Total +a(k) Next k Print TotalEnd Sub
A．10
B．15
C．27
D．35
相关试题