(32）设窗体上有一个名为List 1的列表框，并编写下面的事件过程：Private Sub Listl_C1ick()Dim ch As StringCh=Listl．List(List l .ListIndex)Listl.RemoveItem Listl.ListIndexListl.AddItem chEnd Sub程序运行时，单击一个列表项，则产生的结果是A）该列表项被移到列表的最前面B）该列表项被删除C）该列表项被移到列表的最后面D）该列表项被删除后又在原位置插入

题目

(32）设窗体上有一个名为List 1的列表框，并编写下面的事件过程：

Private Sub Listl_C1ick()

Dim ch As String

Ch=Listl．List(List l .ListIndex)

Listl.RemoveItem Listl.ListIndex

Listl.AddItem ch

End Sub

程序运行时，单击一个列表项，则产生的结果是

A）该列表项被移到列表的最前面

B）该列表项被删除

C）该列表项被移到列表的最后面

D）该列表项被删除后又在原位置插入

相似考题

1.在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。A．Private Sub List1_Click() Label1. Caption=List1. ListIndex End SubB．Private Sub List1_Click() Label1. Name=List1. ListIndex End SubC．Private Sub List1_Click() Label1. Name=List1. Text End SubD．Private Sub List1_Click() Label1. Caption=List1. Text End Sub

2.（ 15 ）设在窗体 Form1 上有一个列表框 List1 ，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A)Prvate Sub List1_Click()Print List1.TextEnd SubB)Private Sub Form1_Click()Print List1.TextEnd SubC)Private Sub List1_Click()Print Form1.TextEnd SubD)Private Sub Form1_Click()List1.Print List1.TextEnd Sub

3.把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。A． AB．BC．CD．D

4.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_ Load () Liet1.AddItem“357” List1.AddItem“246” List1.AddItem“123” List1.AddItem“456” Text1.Text=“” End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为______ 。A．1245B．456789C．789456D．0

更多“(32)设窗体上有一个名为List 1的列表框,并编写下面的事件过程:Private Sub Listl_C1ick()Dim ch ”相关问题

  • 第1题：

    在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：

    Private Sub Cmd_Click( )

    Dim sum,k

    For k=1 to 6

    sum=30+k

    Next k

    MsgBox sum+k

    End Sub

    打开窗体后，单击命令按钮，消息框的输出结果是【 】。


    正确答案：43
    43 解析：在循环体内sum每次均为30加k，最后一次循环为30+6，k自增为7，消息框输出结果为43。

  • 第2题：

    窗体上有一个按钮和一个列表框，执行下列程序后的输出结果为【 】。

    Private Sub Command1_Click()

    List1.Addltem"China"

    List1.Addltem"USA"

    List1.Addltem"Japan"，1

    Print List1.List(2)

    End Sub


    正确答案：USA
    USA

  • 第3题：

    （23）窗体上有一个命令按钮Command1和一个列表框List1.先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Commandl_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。

  • 第4题：

    在窗体上画一个文本框和一个列表框，然后编写下列两个事件过程：

    Private Sub Form_Load()

    List1.AddItem"357"

    List1.AddItem"246"

    List1.AddItem"123"

    List1.AddItem"456"

    Text1.Text=""

    End Sub

    Private Sub List1 DblClick()

    m=List1.Text

    Print m+Text1.Text

    End Sub

    程序运行后，在文本框中输入“123”，然后双击列表框中的"456"，输出结果是( )。

    A．1245

    B．456123

    C．123456

    D．0


    正确答案：B
    解析：分析程序，在程序运行时，列表框自动添加几个列表项，双击列表框时，程序把当前列表项的Text属性值赋值给变量m，然后将m与文本框的Text属性值连接起来并输出。List.Text代表列表框中当前项目的内容，选择456后，m的值为456，与文本框中的字符串连接，输出到窗体上。

  • 第5题：

    窗体上有一个命令按钮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。

  • 第6题：

    设窗体上有_个名为Listl的列表框，并编写下面的事件过程：

    Private Sub Listl_Click()

    Dim ch As String

    ch=Listl．List(Listl．Listlndex)

    Listl，RemoveItem Listl．ListIndex

    Listl．Addltem ch

    End Sub

    程序运行时，单击一个列表项，则产生的结果是

    A．该列表项被移到列表的最前面

    B．该列表项被删除

    C．该列表项被移到列表的最后面

    D．该列表项被删除后又在原位置插入


    正确答案：C
    解析：RemoveItem方法作用是删除项；AddItem方法作用是添加项，若省略Index值，则默认为插入到列表的最后面。

  • 第7题：

    在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=" " End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为

    A．40123

    B．163

    C．123

    D．30123


    正确答案：A
    解析：当双击列表框的第四行，对应的Text值是40而不是123。另外，ListBox和TextBox的Text属性返回的均为字符型数据。窗体上显示的是列表框的内容与文本框的内容连接以后的内容，即为40123。

  • 第8题：

    窗体上有一个列表框和一个文本框，编写如下两个事件过程： Private Sub Form_Load() List1.Addltem"Beijing" List1.Addltem"Tianjin" List1.Addltem"Shanghai"， Text1.Text=" End Sub Private Sub Listl_Dbl Click() x=Listl.Text Printx+Textl.Text End Sub 程序运行后，在文本

    A．China Beejing

    B．China Tianjin

    C．China Shanghai

    D．Shanghai China


    正确答案：D

  • 第9题：

    在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem "357" List1.AddItem "246" List1.AddItem "123" List1.AddItem "456" Text1.Text="" End Sub Private Sub List1_Db1Click() m=List1.Text Print m+Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。

    A．1245

    B．456123

    C．123456

    D．0


    正确答案：B
    解析：分析程序，在程序运行时，列表框自动添加几个列表项，双击列表框时，给程序把当前列表项的Text属性值赋值给变量m，然后将m与文本框的Text属性值连接起来并输出。List.Text代表列表框中当前项目的内容，选择456后，m的值为456，与文本框中的字符串连接，输出到窗体上。

  • 第10题：

    设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（ ）。

    A.Private Sub Command1 Click（ ） List1，Clear End Sub

    B.Private Sub Command1 Click（ ） List1．Clear List1．ListIndex End Sub

    C.Private Sub Command1 Click（ ） List1 Removeltem List1．ListIndex End Sub

    D.Private Sub Command1 Click（ ） List1．Removeltem End Sub


    正确答案：C
    C。【解析】在．VisualBasic中列表框的clear方法是用来删除所有列表项，RemoveItem方法是删除指定的列表项，而列表框的Index属性表示选中的列表项的位置；本题是删除选中的列表项，故应选C。

  • 第11题：

    窗体上有一个列表框和一个文本框，编写下列两个事件过程：

    Private Sub Form. Load()

    List1.Addltem"北京"

    List1.Addltem"天津"

    List1.Addltem"上海"

    Text1.Text=""

    End Sub

    Private Sub List1 Click()

    Print Text1.Text+List1.Text

    End Sub

    程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。

    A．中国北京

    B．中国天津

    C．中国上海

    D．北京中国


    正确答案：A
    解析：程序运行时，首先在文本框中输入“中国”，则文本框的Text属‘陛值为“中国”；然后单击列表框中的“北京”，则此时列表框的Text属性值为“北京”；最后用“+”将文本框的Text属性值和列表框的Text属性值连接起来，因此输出“中国北京”。

  • 第12题：

    窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

    A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

    End Sub End Sub

    C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

    End Sub End Sub


    正确答案：B

  • 第13题：

    在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：

    Private Sub Command1_Click()

    Dim x As Integer,y As Integer,z As Integer

    Call f(x,y,z)

    End Sub

    Sub f(a As Integer,b As Integer,c As Integer)

    c=b*a

    End Sub

    打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。


    正确答案：15
    15

  • 第14题：

    在窗体上画一个文框和一个列表框，然后编写下列两个事件过程： Private Sub Form_Load() List1.Adddltem"357" List1.Adddltem"246" List1.Adddltem"123" List1.Adddltem"456" Text1.Text="" End Sub Private Sub List1_Dblclick() M=Textl.Text Print m+Text1.Text End Sub 程序运行后，在文本框中输入“123”然后双击列表框中的“456”输出结果是A.1245 B.456123 C.123456 D.0


    正确答案：B
    【解析】分析程序，在程序运行时，列表框自动添加几个列表项，双击列表框时，程序把当前列表项的Text属性值赋值给变量m，然后将m与文本框的Text属性值连接起来并输出。List.Text代表列表框中当前项目的内容，选择456后，m的值为456，与文本框中的字符串连接，输出到窗体上。

  • 第15题：

    （13）窗体上有一个列表框和一个文本框，编写下列两个事件过程： Private Sub Form_Load() List1.AddItem"北京" List1.AddItem"天津" List1.AddItem"上海" Text1.Text="" End Sub Private Sub List1_Click() Print Text1.Text+List1.text End Sub 程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是A.中国北京 B.中国天津 C.中国上海 D.北京中国


    正确答案：A
    【解析】程序运行时，首先在文本框中输入“中国”，则文本框的Text属性值为“中国”；然后单击列表框中的“北京”，则此时列表框的Text属性值为“北京”；最后用“+”将文本框的Text属性值和列表框的Text属性值连接起来，因此输出“中国北京”。

  • 第16题：

    设窗体上有一个名为List1的列表框，并编写下面的事件过程： Private Sub List1_Click（ ） Dim ch As String ch=List1．List(List1．Listlndex) List1．RemoveItem List1．Listlndex List1．Addltem ch End Sub 程序运行时，单击一个列表项，则产生的结果是（ ）。

    A.该列表项被移到列表的最前面

    B.该列表项被删除

    C.该列表项被移到列表的最后面

    D.该列表项被删除后又在原位置插入


    正确答案：C
    C。【解析】List1列表框先将选中的ch字符删除，然后再将其插入到最后，ListBox在增加项的时候是加在列表最后面的。

  • 第17题：

    窗体上有一个列表框和一个文本框，编写如下两个事件过程： Private Sub Form_Load() List1.Addltem "北京" List1.Addltem "天津" List1.Addltem "上海" Text1.Text= "" End Sub Private Sub List1_Click() Print Text1.Text+List1.Text End Sub 程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果为( )。

    A．中国北京

    B．中国天津

    C．中国上海

    D．北京中国


    正确答案：A
    解析：程序运行时，首先在文本框中输入“中国”，则文本框的Text属性值为“中国”，然后单击列表框中的“北京”，则此时列表框的Text属性值为“北京”；最后用“+”将文本框的Text属性值和列表框的Text属性值连接起来，因此输出“中国北京”。

  • 第18题：

    窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。

    A．abcde

    B．efghi

    C．EFGHI

    D．ABCDE


    正确答案：C

  • 第19题：

    在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程： Private Sub Form. Loab() List.AddItem"357" List.AddItem"246" List.AddItem"123" List.AddItem"456" TEXT1.Text="" End Sub Private Sub Command1_Click() List．Listindex=3 Print List.Text1+Text1.Text End Sub 程序运行后，在文本框中输入"789"，然后双击列表框中的"456"，则输出结果为

    A．789123

    B．456789

    C．789456

    D．1245


    正确答案：B
    解析：列表框ListIndex属性用来返回或设置控件中当前选择项目的索引值，初始值为0。题中“List.Listindex=3"则设置选择列表框的第4项“456”，又由于文本框中输入值“789”，所以输出结果字符串连接“456789”。

  • 第20题：

    在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程:

    Private Sub Form_loab()

    List.AddItem″357″

    List.AddItem″246″

    List.AddItem″123″

    List.AddItem″456″

    TEXT1.Text=″″

    End Sub

    Private Sub Command1_Click()

    List.Listindex=3

    Print List.Text1+Text1.Text

    End Sub

    程序运行后,在文本框中输入″789″,然后双列表框中的″456″,则输出结果为

    A．789123

    B．456789

    C．789456

    D．1245


    正确答案：B
    解析：列表框ListIndex 属性用来返回或设置控件中当前选择项目的索引值,初始值为0,题中"List.Listindex=3"则设置选择列表框的第4项"456",又由于文本框中输入值"789",所以输出结果字符串连接"456789"

  • 第21题：

    设窗体上有一个名为List1的列表框，并编写下面的事件过程：

    Private Sub List1_Click（ ）

    Dim ch As String

    ch=List1．List(List1．Listlndex)

    List1．RemoveItem List1．Listlndex

    List1．Addltem ch

    End Sub

    程序运行时，单击一个列表项，则产生的结果是（ ）。

    A.该列表项被移到列表的最前面

    B.该列表项被删除

    C.该列表项被移到列表的最后面

    D.该列表项被删除后又在原位置插入


    正确答案：C
    C。【解析】List1列表框先将选中的ch字符删除，然后再将其插入到最后，ListBox在增加项的时候是加在列表最后面的。

  • 第22题：

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


    正确答案：C
    解析：ListCount属性返回控件列表部分项目的个数。要对列表框中的每个项目都能进行处理，必须要用到List(Index)属性，而该属性的下标值是从0开始的。变量s为变体型变量，List属性内的内容是字符型的，所以加号(+)起到了连接作用。上述程序运行的结果只是将列表框中的内容连接起来。选项C是正确的。

  • 第23题：

    （ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：

    Private Sub Command1_Click （）

    Dim b,k

    For k=1 to 6

    b=23+k

    Next k

    MsgBox b+k

    End Sub

    打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。


    正确答案：

相关内容