计算机二级

窗体上有一个命令按钮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．程序出错

题目

窗体上有一个命令按钮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．程序出错

如果没有搜索结果，请直接 联系老师 获取答案。
如果没有搜索结果，请直接 联系老师 获取答案。
相似问题和答案

第1题：

窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下： Private Sub Command1_Click（) Open "c:f1.txt" For Input As #1 Do While Not EOF（1) Input #1, str1 List1.AddItem str1 Loop Close End Sub 对于上述程序，以下叙述中错误的是________。

A．Close的作用是关闭已经打开的数据文件

B．单击命令按钮后，把f1.txt中的所有内容添加到列表框中

C．以输入方式打开随机文件f1.txt

D．运行程序后，列表框中的列表项都是f1.txt中的记录


C C。【解析】本题考y,-add方法里IsMissing的v3，v3是一个可选项，用来判断这个参数是否存在。根据程序语句，当输入3个参数时，就是3个参数求和，输入2个参数时是两个数求和，题目中是2个参数，因此是2个参数求和，不会报错。

第2题：

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


正确答案：C
C。【解析】本题程序中的意思为如果选择了符合条件的数，那么将选中的项增加到List2列表框中，同时在List1中移除所选项，所以本题A和B选项均正确。

第3题：

窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_Click() Dim In As Integer In=______ List.Removc Ind End Sub 则在程序的空白行的语句是( )。

A．List1.Index

B．List1.ListIndex

C．List1.Text

D．List1.ListCount


正确答案：B
解析：Index属性返回或设置惟一的标识控件数组中一个控件的编号；ListIndex属性返回或设置控件中当前选择项目的索引；ListCount属性返回列表控件中项目的个数；Text属性返回列表框中选择的项目，是string类型，这里需要一个数值类型，所以使用ListIndex。

第4题：

（ 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 中


正确答案：C

第5题：

窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。

Pfivate Sub Form_Load()

Fori=1 To 100

If iMod7=


正确答案：Lisn.Addnem IUst1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)
Lisn.Addnem I,Ust1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)

第6题：

在窗体上有一个名称为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 iEnd Sub

A．List1.Select(i)

B．List1.Sort(i)

C．List1.List(i)

D．Ltst1.Select(List1.Listindex)


正确答案：A
解析：列表框有一个数组属性Select，它的每一个元素用来记下相应下标的选项是否被选中，如果相应下标的选项被选中，该元素的值为True，否则为False。要删除列表框中被选中的选项，可一一判断列表框的Select数组属性中的每一个元素值，如果是True，则把与它下标一致的选项删除。

第7题：

窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：

Private Sub Command1_Click()

Dim In As Integer

In=______

List.Remove Ind

End Sub

则在程序的空白行的语句是( )。

A．List1.Index

B．List1.ListIndex

C．List1.Text

D．List1.ListCount


正确答案：B
解析：Index属性返回或设置唯一的标识控件数组中一个控件的编号；ListIndex属性返回或设置控件中当前选择项目的索引；ListCount属性返回列表控件中项目的个数；Text属性返回列表框中选择的项目，是string类型，这里需要一个数值类型，所以使用ListIndex。

第8题：

窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；

还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。

A．京

B．北京 南京

C．南京 北京

D．没有匹配的项目


正确答案：C
解析：InStr([首字符位置]字符串1，字符串2[,n])用来在“字符串1”中查找“字符串2”，如果找到，则返回“字符串2”的第一个字符在“字符串广中的位置。ListCount属性表示组合框中项目的数量。ListCount-1表示组合框中最后一项的序号。程序中循环变量的初值是列表框中的最后一个项目，终值是列表框中的第一个项目，此循环的作用是从列表框的最后一个项目到第一个项目中，找出列表框项目中包含“京”的项目，并将内容显示在Text2中。

第9题：

窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load（）

For i=1 To 100

If i Mod 7 =0 Then

________

End If

Next

End Sub

Private Sub Command1_Click（）

Sum = 0

For i = 0 To ________

Sum = Sum + ________

Next

Text1.Text = Sum

End Sub


正确答案：

 list1.additem i　list1.listcount-1　list1.list(i) 

相关内容