以下程序段的功能是:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。空白行应选择的语句为( )。
Do While List2ListCount
List2.RemoveItem0
Loop
A:List1.AddItem List2.List(0) B:List1.AddItem List2.Text C:List2.AddItem List1.List(0) D:List2.AddItme List1.Text
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程:
Private Sub Command1_Click( )
For i =0 To List1. ListCount - 1
If List1. Selected(i) = True Then
List2. Additem Text
End ff
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时,发现不能达到预期目的,应做修改,下列修改中正确的是( )。
A:将For循环的终值改为List1. ListCount B:将List1. Selected(i)=True改为List1. List(i). Selected=True C:将List2. AddItem Text改为List2. AddItem List1. List(i) D:将List2. AddItem Text改为List2. AddItem List1. ListIndex
给程序的空白行选择适当的语句。程序段的功能是:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。程序如下。
Do While List2.ListCount
__________________
List2.Removeltem 0
Loop
A:List1.Addltem List2.List(0) B:List1.Addltem List2.Text C:List2.Addltem List1.List(0) D:List2.Addltem List1.Text
在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是:单击命令按钮后,程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意,填空处应选择
Option Base 1 Dim a(100)As Integer Private Sub Command1_Click( ) n = 100 For i = 2 To Sqr(n) For j = i + 1 To n If j Mod i = 0 And a(j)<> 0 Then a(j)= 0 Next j Next i For i = 1 To n If a(i)<> 0# Then Next i End Sub Private Sub Form_Load ( ) For i = 1 To 100 a (i)=i Next i End Sub
A:List1.Text=Str(a(i))+ vbCrLf B:List1.Text=Str(a(i))+ vbCrLf C:List1.AddItem a(i) D:List1.AddItem=a(i)
在窗体上有一个名称为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)
给程序的空白行选择适当的语句。程序段的功能是:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。( )
Do While List2.List Count
______
List2.Removeltem0
Loop
A:List1.AddltemList2.List(0) B:List1.Addltem List2.Text C:List2.AddltemList1.List(0) D:List2.AddltemList1.Text
在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为 ______。
A:For i = 0 To List1.ListCount - 1 …… Next B:For i = 0 To List1. Count- 1 …… Next C:For i = 0 To List1. ListCount …… Next D:For i = 0 To List1.Count …… Next
给程序的空白行选择适当的语句。程序段的功能是:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop
A:List1.AddltemList2.List(0) B:List1.Addltem List2.Text C:List2.AddltemList1.List(0) D:List2.AddltemList1.Text
在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为:
A:For i=0 To List1.ListCount-1 …… Next B:For i=0 To List1.Count-1 …… Next C:For i=0 To List1.ListCount …… Next D:For i=0 To List1.Count …… Next
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程: Private Sub Command1_Click( ) For i=0 To List1.ListCount-1 If List1.Selected(i)=True Then List2.AddItem Text End If Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时,发现不能达到预期目的,应做修改,下列修改中正确的是()。
A:将For循环的终值改为List1.ListCount B:将List1.Selected(i)=True改为List1.List(i).Selected=True C:将List2.AddItem Text改为List2.AddItem List1.List(i) D:将List2.AddItem Text改为List2.AddItem List1.ListIndex