窗体上有一个名称为Cbl的组合框,程序运行后,为了输出选中的列表项,应使用的语句是( )。
A. Print Cb1.Selected
B. Print Cb1.List(Cb1.Listlndex)
C. Print Cb1.Selected.Text
D. Print Cb1.List(Listlndex)
第1题:
窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是( )。
A.Print Cb1.Selected
B.Print Cb1.List(Cbl.LisfIndex)
C.Print Cb1.Selected.Text
D.Print Cb1.List(ListIndex)
第2题:
在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为;显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项,如下图所示。

要求;
修改列表框的适当属性,使得运行时可以多选,并去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。

第3题:
(16)窗体上有一个名称为Cbl的组合框,程序运行后,为了输出选中的列表项,应使用的语句是
A)Print Cb1.Selected
B)Print Cbl.I,ist(Cbl.ListIndex)
C)Print Cb1.Selected.Text
D)Print Cbl.List(Listlndex)
第4题:
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框,名称为cbl,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为Textl的文本框;再添加一个标题为“计算”、名称为cl的命令按钮,如图所示。请编写适当的事件过程,使得在程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算5000以内能够被该数整除的所有数之和,并放入Textl中。最后,按原文件名存盘。
提示:由于计算结果较大,应使用长整型变量。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序,否则无成绩。

【考点分析】本题考点有:文本框的Name属性、组合框的Name和I.ist属性、命令按钮的Name和Caption属性、Val()函数以及Mod取模运算。
【解题思路】本题主要考查组合框的属性及For循环语句的使用。
Mod取模运算就是求余数,例如10mod3=1,因为10除以3等于3余1,结果就是余数。如果amodb=0,则说明a能被b整除,反之如果amodb<>0,则a不能被b整除。
组合框(ComboBox)将文本框与列表框的特性组合在一起,既可以在组合框的文本框部分输入信息,也可在列表框部分选择项目;组合框的列表项可在设计阶段通过其List属性添加,每输入完一项后按<Ctrl+Enter>键换行再输入下一项;其Text属性用于设置或返回其文本框部分当前的文本。
根据题意,用For逐一循环5000内的整数,通过If语句的条件表达式:iModn=0,判断各个数是否能被n整除,把能被整除的数累加到变量sum。i为循环变量,n的值为Val(Cbl.Text)。
【操作步骤】
步骤1:打开本题工程文件,按照题目要求建立控件并设置组合框控件属性,如图3.19所示。程序中用到的控件及属性见表3.11。



步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。
参考答案
Private Sub C1_Click()
Dim sum As Long
Dim n As Integer
Dim i As Integer
n=Val(cbl.Text)’读取选中的数字并通过函数
Vai转换为数值
For i=n T0 5000′从本身开始循环查找
If i Mod n=0 Then
sum=Sum+i′判断是否能被该数整除并求和
End If
Next i
Text1.Text=sum.在Text1中显示
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
第5题:
在考生文件夹中有一个工程文件execise50.vbp及窗体文件execise50.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“显示”的命令按钮,一个名称为List1的列表框。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项,如下图所示。
要求:

修改列表框的适当属性,使得运行时可以多选;去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
