（16）窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A）Print Cb1.SelectedB）Print Cbl.I,ist(Cbl.ListIndex)C）Print Cb1.Selected.TextD）Print Cbl.List(Listlndex)

题目

（16）窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是

A）Print Cb1.Selected

B）Print Cbl.I,ist(Cbl.ListIndex)

C）Print Cb1.Selected.Text

D）Print Cbl.List(Listlndex)

相似考题

1.设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是（ ）。A．Text1.MaxLength=0B．Text1.Enabled=FlaseC．Text1.Visible=FlaseD．Text1.Width=0

2.在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A=InputBox("被除数")B=InputBox("除数")Print A；"÷"；B；"="；A / BEnd Sub则窗体中显示的内容是______。

3.在窗体上有—今名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。A．Cd1.Action=2B．Cd1.Acfion=1C．Cd1.ShowSave=TrueD．Cd1.ShowSave=0

4.在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是（ ）。A．Cd1.Action=2B．Cd1.Action=1C．Cd1.ShowSave=TureD．Cd1.ShowSave=0

参考答案和解析
正确答案：B
更多“(16)窗体上有一个名称为Cbl的组合框,程序运行后,为了输出选中的列表项,应使用的语句是A)Print Cb ”相关问题

  • 第1题：

    设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。

    A．Text1. MaxLength=0

    B．Text1. Enabled=False

    C．Text1. Visible=False

    D．Text1. Width=0


    正确答案：B
    解析：当文本框的Enabled属性被设置成“False”时，文本框是只读状态，纯粹用来显示，其中的内容呈灰色，对鼠标和键盘的操作没有反应。

  • 第2题：

    在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句： ______。

    A．Text1.Clear

    B．Text1.Locked=True

    C．Text1.Visible=False

    D．Text1.Enabled=True


    正确答案：B
    解析：对于Textbox控件，可通过设置其Visible属性为False，使其隐藏，设置Enabled属性为False使其不可用，设置Locked属性为True，使其不可被编辑。

  • 第3题：

    下列程序执行后，按住Cbl键并在文本框中输入a，则在窗体上输出的结果为 ______。 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print keyCode, Shift End Sub

    A．a 2

    B．65 2

    C．97 1

    D．97 2


    正确答案：B
    解析：文本框的KeyDown事件有两个参数：KeyCode和Shift。KeyCode参数返回用户操作的那个键的扫描代码。a的扫描代码为65。Shift参数用来表述用户按下了Shift、Ctrl、Alt键中的一个或多个。按下Shift键，Shift参数的位0变为1；按下Ctrl键，Shift参数的位1变为1；按下Alt键，Shift参数的位2变为1。因此当按下了Ctrl键时，Shift键的参数的值变为2。

  • 第4题：

    在窗体上画一个文本框，其名称为Textl。为了在程序运行后Textl中的文本不可编辑，应当使用的语句是______。

    A．Textl.Clear

    B．Textl.Locked=True

    C．Textl.Visible=False

    D．Textl.Enabled=Trve


    正确答案：B
    解析：对于Textbox控件，可通过设置其Visible属性为False，使其隐藏，设置Enabled属性为False使其不可用，设置Locked属性为True，使其不可被编辑。

  • 第5题：

    设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：

    Private Sub Commandl一Click()

    x!==Val(Textl．Text)

    Select Case x

    Casc Is<-10，Is>=20

    Print“输入错误”

    Case Is<0

    Print 20 x

    Case ls<10

    Print 20

    Case Is=20

    Print x+10

    End Select

    End Sub

    程序运行时，如果存文本框中输入一5，则单击命令按钮后的输出结果是

    A．5

    B．20

    C．25

    D．输入错误


    正确答案：C
    解析：本题考查的知识点是Select Case语句，其功能是根据“测试表达式”的值(本题中测试表达式为x)，从多个语句块中选择符合条件的一个语句块执行。

  • 第6题：

    在窗体中添加一个名称为commandl的命令按钮，然后编写如下程序：

    体打开运行后，单击命令按钮，则消息框的输出结果为（ ）

    A. 3

    B. 7

    C. 9

    D. 16


    正确答案：C
    考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为3，然后依次调用n和f2；在f1中对x平方；在t2中又用Dim定义了一个局部变量X，按照局部覆盖全局的原则，在f2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为9。

  • 第7题：

    窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（ ）。

    A. Print Cb1．Selected

    B. Print Cb1．List(Cb1．Listlndex)

    C. Print Cb1．Selected．Text

    D. Print Cb1．List(Listlndex)


    正确答案：B
    B)    【解析】组合框的属性ListIndex返回当前所选项目的索引号，List(Index)属性返回指定索引号的列表项内容，因此返回当前选定的列表项应该用Cb1．List(Cb1．ListIndex)。

  • 第8题：

    在考生文件夹下有一个工程文件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：调试并运行程序，关闭程序后按题目要求存盘。

  • 第9题：

    在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为；显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。

    要求；

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


    正确答案：

  • 第10题：

    在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：

    窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。


    正确答案：
    2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。

  • 第11题：

    单选题
    在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为（　　）。
    A

    Text1.Clear

    B

    Text1.Visible=False

    C

    Text1.Hide

    D

    Text1.Enabled=False


    正确答案： D
    解析：
    B项，Visible属性用来设置文本框显示或隐藏，当属性值为True时文本框显示，为False时文本框隐藏。AC两项，文本框没有Clear和Hide方法；D项，Enabled属性用来设置文本框可用不可用，属性值为True时可在文本框中输入数据，为False时文本框为灰色，内容不能修改。

  • 第12题：

    单选题
    窗体上有一个列表框控件List1。以下叙述中错误的是（　　 ）。
    A

    List1中有ListCount-1个列表项

    B

    当List1.Selected（i）=True，表明第i项被选中

    C

    设置某些属性，可以使列表框显示多列数据

    D

    List1.Text的值是最后一次被选中的列表项文本


    正确答案： C
    解析：
    A项错误，列表框控件的列表项个数即为ListCount属性值。B项正确，如果列表项的某项被选中，则该项的Selected属性值为True；C项正确，列表框控件的Columns属性用来确定列表框的列数；D项正确，Text属性的值为最后一次选中的表项的文本，不能直接修改Text属性。

  • 第13题：

    （18）设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是

    （ ）。

    A）List1.List

    B）List1.ListIndex

    C）List1.Text

    D）List1.Index


    正确答案：C

    （18）【答案】C)
    【解析】List属性获得和是列表项数组；Lisrlndex获得的是选项中的索引；Index获得的是控制数组的索引；Text属性获得的是选项中的内容，故答案选D。

  • 第14题：

    设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。

    A．Textl.MaxLength=0

    B．Textl.Enabled=False

    C．Textl.Visible=False

    D．Textl.Width=0


    正确答案：B

  • 第15题：

    设窗体上有一个列表框控件Listl，含有若干列表项。以下能表示当前被选中的列表项内容的是

    A．Listl．List

    B．Listl．Listlndex

    C．Listl．Text

    D．Listl：Index


    正确答案：C
    解析：List属性获得的是列表项数组；ListIn-dex获得的是选中项的索弓l；Index获得的是控件数组的索引；Text属性获得的是选中项的内容，故答案选D。

  • 第16题：

    窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是

    A．Print Cbl．Selected

    B．Print Cbl．List(Cbl．ListIndex)

    C．Print Cbl．Selected．Text

    D．Print Cbl．List(ListIndex)


    正确答案：B

  • 第17题：

    在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。

    存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

    2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图2—2所示。

    注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjr4.vbp。


    正确答案：① 启动Visual Basic在窗体上画1个组合框和1个命令按钮。 ② 按F4键激活属性窗门在属性窗口中设置组合框和命令按钮的属性见表3。 　　③ 编写命令按钮的Click事件过程： 　　Private Sub C1_Click() 　　　　Dim flag As Boolean 　　　　For i＝0 To Cb1.ListCount—1 　　　　　　If Cb1.List(i)＝Cb1.Text Then 　　　　　　　　 flag＝True 　　　　　　Else 　　　　　　　　 flag＝False 　　　　　　End If 　　　　Next 　　　　If flag Then 　　　　　　 MsgBox"此项已存在""" 　　　　　　 Cb1.Text="" 　　　　　　 Else 　　　　Cb1.Addltem Cb1.Text 　　　　　　 End If 　　End Sub 2．① 对象主要属性设置如表4所示。 ② 分析：按试题要求在窗体上画一个列表框并分别将它们的属性按表4的内容进行设置。ListIndex属性返回或设置控件中当前选择项目的索引值。当双 击列表框中的任一项时即触发了DblCilck(双击)事件。向列表框 (对象)中添加内容的方法为AddItem其格式为：对象．AddItem字符串表达式位置如果 省略“位置”当Sorted属性设置为False时“字符串表达式”将添加到列表的结尾。 ③ 编程代码： Private Sub L1 DblClick() For i＝0 To L1. ListIndex s＝s+Val(L1.list(i)) Next i L1.AddItem s End Sub
    ① 启动Visual Basic，在窗体上画1个组合框和1个命令按钮。 ② 按F4键，激活属性窗门，在属性窗口中设置组合框和命令按钮的属性，见表3。 　　③ 编写命令按钮的Click事件过程： 　　Private Sub C1_Click() 　　　　Dim flag As Boolean 　　　　For i＝0 To Cb1.ListCount—1 　　　　　　If Cb1.List(i)＝Cb1.Text Then 　　　　　　　　 flag＝True 　　　　　　Else 　　　　　　　　 flag＝False 　　　　　　End If 　　　　Next 　　　　If flag Then 　　　　　　 MsgBox"此项已存在",,"" 　　　　　　 Cb1.Text="" 　　　　　　 Else 　　　　Cb1.Addltem Cb1.Text 　　　　　　 End If 　　End Sub 2．① 对象主要属性设置如表4所示。 ② 分析：按试题要求在窗体上画一个列表框，并分别将它们的属性按表4的内容进行设置。ListIndex属性返回或设置控件中当前选择项目的索引值。当双 击列表框中的任一项时，即触发了DblCilck(双击)事件。向列表框 (对象)中添加内容的方法为AddItem，其格式为：对象．AddItem字符串表达式，位置如果 省略“位置”，当Sorted属性设置为False时，“字符串表达式”将添加到列表的结尾。 ③ 编程代码： Private Sub L1 DblClick() For i＝0 To L1. ListIndex s＝s+Val(L1.list(i)) Next i L1.AddItem s End Sub

  • 第18题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。

    A. 输出0

    B. 输出25

    C. 输出45

    D. 无任何输出


    正确答案：D
    D)    【解析】本题考查VB程序的执行特点。程序执行时，布尔型变量SW默认为False，单击命令按钮后弹出对话
    框，在该对话框中输入25之后，始终没有在窗体上单击鼠标，因而没有改变SW的值，所以没有进行fun函数过程的调用，也就无
    任何输出。

  • 第19题：

    在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件和文件名。


    正确答案：
    根据题意，将两个名称分别为Check1和Check2的复选按钮、一个名称为Text1的文本框和一个名称为Command1的命令按钮放入到窗体中，复选按钮的Caption属性分别为Item1和Item2，Text1的Text属性为空，命令按钮的Caption属性为“选择”。双击Command1进入代码编写窗口，代码如下：
    Private hub Command1 Click
    If Check1．Value=1 Then 当选中Check1时
    If Check2．Value=1 Then选中Check2
    Text1．Text="不能全选"
    在Text1中显示不能全选
    Else 没有选中Check2
    Text1．Text="选中Item1"
    在Text1中显示选中Item1
    End If
    Else当没选中Check1时
    IfCheck2．Value=1 Then选中Cheek2
    Text1．Text="选中Item2"显示选中Item2
    E1se
    Text1．Text=""不显示
    End If
    End If
    End Sub
    单击按钮运行程序，并按要求保存。

  • 第20题：

    在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。

    Private Sub Form. load()

    Listl.AddItem “北京”

    List1.AddItem “上海”

    List1.AddItem “河北”

    End Sub

    Private Sub ______()

    Labell.Caption=______

    End Sub


    正确答案：List1 DblClick或 Form1.Listl DblCiick或Me.List1 DblClick Listl.Text 或 Listl 或 Forml.Listl.Text 或 Me.Listl.Text或Forml.Listl或Me.Listl
    List1 DblClick或 Form1.Listl DblCiick或Me.List1 DblClick , Listl.Text 或 Listl 或 Forml.Listl.Text 或 Me.Listl.Text或Forml.Listl或Me.Listl 解析：由于本程序要响应列表框的双击事件，故第一处应填：Listl_DblClick。指明List1所属的窗体也可以，上面的答案是等价的。列表框的Text属性返回被选中的列表框的内容，根据题意，第二处应该填：List1.Text。同时由于Text属性是列表框的属性值，可以省略不写，故上述答案是等价的。

  • 第21题：

    在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句是______。

    A．Text1.Clear

    B．Text1.Locked=True

    C．Text1.Visible=False

    D．Text1.Enabled=True


    正确答案：B
    解析：对于Textbox控件，可通过设置其Visible属性为False，使其隐藏，设置Enabled属性为False使其不可用，设置Locked属性为True，使其不可被编辑。

  • 第22题：

    单选题
    设窗体上有一个列表框控件List1含有若干列表项，以下能表示当前被选中的列表项内容的是（　　）。
    A

    List1.List

    B

    List1.ListIndex

    C

    List1.Text

    D

    List1.Index


    正确答案： B
    解析：
    C项，Text属性代表了列表框的当前被选中的列表项内容。A项，用来列出表项的内容；B项，ListIndex用来表示已选中的表项的位置；D项，没有Index属性。

  • 第23题：

    单选题
    窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：程序运行时，选中一个列表项，然后单击Command1按钮，则产生的结果是（　　）。
    A

    若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置

    B

    选中的列表项与它前面的列表项互换位置

    C

    若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置

    D

    选中的列表项与它后面的列表项互换位置


    正确答案： B
    解析：
    当单击Command1按钮后，List1列表框中被选中项的索引值赋给变量n，如果被选中项不为空也不是第1项时，将选中项的项目文字赋值给变量ch，用选中项的上面一项的文字替换选中项的文字，再把变量ch中的文字替换成选中项上中项上面一项的文字，即选中项和它上面一项的位置进行交换。

相关内容