有如下两个列表:list1=[(2),(0),(1),(8)]list2=[(2,),(0,),(1,),(8,)]那么,type(list1[0])和type(list2[0])分别是:Aint和tupleBint和intCtuple和tupleDtuple和int

（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop

A、Sheet1，Sheet2和Sheet3

B、Book1，Book2和Book3

C、Table1，Table2和Table3

D、List1，List2和List3

设计不能最大化和最小化的表单(如图5-10所示)：有2个列表List1和List2，List1的项目初始为A、B、C、D、E、P。当单击“＞”按钮，或在List1中双击项目时，将List1中当前选定的项目添加到List2中；当单击“＜”按钮，或在List2中双击项目时，将List2中当前选定的项目移回到Listl中。List1的项数为0时，则禁用“＞”按钮，否则启用该按钮；List2的项数为0时，则禁用“＜”按钮，否则启用该按钮。

阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。

[应用说明]

某应用程序在运行过程中的一个界面如下图所示：

在“供选课程”列表框(名为Listl)中选择某个课程后，再单击“，”按钮(名称为cmdSelect)，就能将该课程复制到“所选课程”列表框(名称为List2)中(但要注意不要出现重复项)：如果单击“＞＞”按钮(名称为cmdSelAll)，就能将全部供选课程名复制到列表框List2中(注意应先删除List2中的已选项)；如果在“所选课程”列表框中选中某个课程，再单击“＜”按钮(名称为emdDelete)，就会从List2中删除该课程(未选课程时应不做处理)；如果单击“＜＜”按钮(名称为cmdDelAll)，就会从List2中删除所有已选课程。

[Vsual Basic 程序代码]

Private Sub CmdSelect_Cliek()

For i = O To List2.ListCount - 1

If Listl.Text = List2.List(i) Then Exit Sub '不要重复选择

Next i

List2.Addltem (1) '在List2中增添List1中所选的项

End Sub

Private Sub CrndSelAll_Click()

List2.Clear '先删除List2中的已有项

For i = 0 To (2) '对List1中所有各项做循环处理

List2.Addltem (3) '将该项增添到 List2中

Next i

End Sub

Private Sub CmdDelete_Cliek()

If List2.Listlndex ＞= O Then '如果List2中有选中的项,

List2.Removeltem (4) '则删除所选的项

End If

End Sub

Private Sub CmdDelAll_Cliek()

(5)

End Sub

1 1 ．单元格A 2 输入了数值7 0 ，单元格8 2 存放了公式一I F ( A 2 > 9 0 ，“A ”，I F ( A 2 > 8 0 ，“8 ”， “C ”) ) ，那么B 2 显示的是( ) 。

A ．A

B ．B

C ．C

D ．0

给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框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、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中

某 html 文档中有如下代码，则在浏览器中打开该文档时显示为（ ）。 <form> Listl: <input type="text" name="List1" /> <br / > List2: <input type="text" name="List 2 " /> < /form>

A.B.C.D.

窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：

Private sub Commandl_Click()

For k：Listl．ListCount_l To 0 step-1

Tf Listl．Selected(k)Then

List 2．AddItern Listl．List(k)

Listl．Removehem k

End If

Next k

End Sub

程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是

A．在List2中插入了“外语”、“物理”两项

B．在Listl中删除了“外语”、“物理”两项

C．同时产生A)和B)的结果

D．把Listl中最后1个列表项删除并插入到List2中

使列表框List1在填加项目的时候能够自动按字母排序，并且能够连续多选和不连续多选，需执行下面的( )语句。

A．List1．Sorted=0 List1．MultiSelect=0

B．List1．Sorted=True List1,MultiSelect=0

C．List1．Sorted=True List1．MultiSelect=1

D．List1．Sorted=Tme List1．MuldSelect=2

（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程

序：

Private Sub Comand1_Click （）

For k=List1.ListCount-1 To 0 Step -1

If List1.Selected （ k ） Then

List2.AddItem List1.List （ k ）

List1.RemoveItem k

End If

Next k

End Sub

程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是

A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项

B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项

C ）同时产生 A ）和 B ）的结果

D ）把 List1 中最后 1 个列表项删除并插入到 List2 中

1 4 . 某企业2 0 0 8 年1 月份发生如下支出：

①预付租赁仓库租金，全年共1 2 0 0 0 元；

②支付去年第四季度水电费2 0 0 0 元；

③购买办公用具8 0 0 元；

④预计本月应承担的短期借款利息1 5 0 0 元， 季末支付。 按照权责发生制，该企业本月的费用为( ) 元。

A . 3 3 0 0

B ．1 2 8 0 0

C . 3 8 0 0

D ．1 4 3 0 0

窗体上有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．0

B．10

C．01234

D．程序出错

A.['a', 'b', 'c']

B.['a', 'b', 'c', 'de']

C.['d', 'e', 'a', 'b', 'c']

D.['a', 'b', 'c', 'd', 'e']