单选题列表框List1中没有数据项，现编制如下程序：程序运行后单击命令按钮Command1，则列表框List1中的数据项为（ ）。A1 2 3B4 5 6C1 3 5D1 2 6
单选题
列表框List1中没有数据项，现编制如下程序：程序运行后单击命令按钮Command1，则列表框List1中的数据项为（ ）。
A
1 2 3
B
4 5 6
C
1 3 5
D
1 2 6
参考解析
解析：
首先依次将1、2、3、4、5、6加入列表框中，表中的项目索引从0开始计数，然后删除索引号为5、4、3的元素，即删除元素6、5、4，最后在列表框中的数据项只剩1、2、3。
首先依次将1、2、3、4、5、6加入列表框中，表中的项目索引从0开始计数，然后删除索引号为5、4、3的元素，即删除元素6、5、4，最后在列表框中的数据项只剩1、2、3。
相关考题：
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）For i=1 To 100If i Mod 7 =0 Then________End IfNextEnd SubPrivate Sub Command1_Click（）Sum = 0For i = 0 To ________Sum = Sum + ________NextText1.Text = SumEnd Sub
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：PrivateSub Form_Load()List1.AddItem "Item1"List1.AddItem "Item2"List1.AddItem "Item3"End SubPrivate Sub Command1_Click()List1.List(List1.Listcount) ="AAAA"End Sub程序运行后，单击命令按钮，其结果为A．把字符串"AAAA"添加到列表框中，但位置不能确定B．把字符串"AAAA"添加到列表框的最后(即"Item3"的后面)C．把列表框中原有的最后一项改为"AAAA"D．把字符串"AAAA"插入到列表框的最前面(即"Item1"的前面)
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j＝1 To 3 a(i,j)＝(i-1)*3+j Print a(i,j)； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是______。A．1 2 3 2 4 6 3 6 9B．2 3 4 3 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：Private Sub Command1_Click()Dim In As IntegerIn=______List.Remove IndEnd Sub则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount
在窗体上画一个命令按钮＜其名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮；其输出结果为 ______。A．1 2 3 4B．2 3 4 5C．2 3 4 4D．3 4 5 6
窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下： Private Sub Command1 Click（ ） Static x As Variant n=0 x=Array(1，2，3，4，5，6，7，8，9，10) While n=4 x(n)=x(n+5) Print x(n)： n=n+1 Wend End Sub 运行程序，单击命令按钮Command1，窗体上显示的是（ ）。A.1 2 3 4 5B.6 7 8 9 10C.2 3 4 5 6D.6 2 3 4 5
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。Pfivate Sub Form_Load()Fori=1 To 100If iMod7=
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京B. 北京南京C. 南京北京D. 没有匹配的项目
（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程序：Private Sub Comand1_Click （）For k=List1.ListCount-1 To 0 Step -1If List1.Selected （ k ） ThenList2.AddItem List1.List （ k ）List1.RemoveItem kEnd IfNext kEnd Sub程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项C ）同时产生 A ）和 B ）的结果D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:Private Sub Command1_Click()Dim a(5,5)For i=1 To 3For j=1 To 4a(i,j)=i*jNextNextFor n=1 To 2For m=1 To 3Print a(m,n);NextNextEnd Sub程序运行后,单击命令按钮,输出结果是A．2 4 6 1 2 3B．1 2 3 2 4 6C．1 2 3 4 5 6D．6 5 4 3 2 1
设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（ ）。A.Private Sub Command1 Click（ ） List1，Clear End SubB.Private Sub Command1 Click（ ） List1．Clear List1．ListIndex End SubC.Private Sub Command1 Click（ ） List1 Removeltem List1．ListIndex End SubD.Private Sub Command1 Click（ ） List1．Removeltem End Sub
在窗体上绘制一个列表框，名为List1，通过属性窗口向列表框中添加4个项目，分别为ltem1、Item2、Item3和Item4。编写适当的事件过程，使程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项Item5。程序的运行情况如下图所示。注意：程序中不得使用任何变量c文件必须存放在考生文件夹中，工程文件名为 execise42.vbp，窗体文件名为execise42.frm。
窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_Click() Dim In As Integer In=______ List.Removc Ind End Sub 则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() For i=1 To 4 If i=1 Then x=i If i＜=4 Then x=X+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为：_______。A．1 2 3 4B．2 3 4 5C．2 3 4 4D．3 4 5 6
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Command1_Click（ ） For k=List1．ListCout-1 To 0 Step-1 If List1．Selected(k)Then List2．Addltem List1．List(k) List1．Removeltem k End If Next k End Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。A.在List2中插入了“外语”、“物理”两项B.在List1中删除了“外语”、“物理”两项C.同时产生A和B的结果D.把List1巾最后1个列表项删除并插入到List2中
窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1．ListCount s=s+List1．List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是A．0B．10C．01234D．程序出错
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程 Private Sub Form_Load() List1.Addltem"Iteml" List1.Addltem"Item2" List1.Addltem"Item3" End Sub Private Sub Command1_click() List1.List(List1.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。A．把字符串“AAAA”添加到列表框中，但位置不能确定B．把字符串“AAAA人”添加到列表框的最后(即“Item3”的后面)C．把列表框中原有的最后一项改为“AAAA”D．把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)
假如列表框(List1)有4个数据项,那么把数据项"China"添加到列表框的最后,应使用的语句是() A、List1.AddItem3,〝China〞B、List1.AddItem〝China〞,List1.ListCount-1C、List1.AddItem〝China〞,3D、List1.AddItem〝China〞,List1.ListCount
窗体上有list1、list2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限。如图b所示。下面的程序可实现这一功能，请填空。Private Sub Command1_Click()If list1.text=””or list2.text””thenMsgbox”请选择交换的物品！”ElseList1.additem list2.textList2.removeitem【11】【12】List1.removeitem list1.listindexEnd IfEnd Sub
假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用（）语句。A、List1.AddItem3，"China"B、List1.AddItem"China"，List1.List1Count-1C、List1.AddItem"China"，3D、List1.AddItem"China"
单选题窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（ ）。A在List2中插入了“外语”“物理”两项B在List1中删除了“外语”“物理”两项C同时产生A项和B项的结果D把List1中最后一个列表项删除并插入到List2中
单选题假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句（）。AList1.AddItem 3, ChinaBList1.AddItem China, List1.List1Count-1CList1.AddItem China, 3DList1.AddItem China, List1.List1Count
单选题假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用（）语句。AList1.AddItem3，ChinaBList1.AddItemChina，List1.List1Count-1CList1.AddItemChina，3DList1.AddItemChina
单选题将数据项“Student”添加到名称为List1的列表框中，并使其成为列表框第一项的语句为（ ）。AList1.AddItem″Student″，0BList1.AddItem″Student″，1CList1.AddItem 0，″Student″DList1.AddItem 1，″Student″
单选题窗体上有名称为command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1（Simple），并有如下事件过程：上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是（ ）。A将For循环的终值改为List1.ListCountB将List1.Selected（i）＝True改为List1.List（i）.Selected＝TrueC将List2.AddItem Text改为List2.AddItem List.List（i）D将List2.AddItem Text改为List2.AddItem List.ListIndex