(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）该列表项被删除后又在原位置插入
相关考题：
在窗体上画一个名为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
在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： 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
（ 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
把窗体的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
在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：Private Sub Cmd_Click( )Dim sum,kFor k=1 to 6sum=30+kNext kMsgBox sum+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是【 】。
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,y As Integer,z As IntegerCall f(x,y,z)End SubSub f(a As Integer,b As Integer,c As Integer)c=b*aEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
窗体上有一个按钮和一个列表框，执行下列程序后的输出结果为【 】。Private Sub Command1_Click()List1.Addltem"China"List1.Addltem"USA"List1.Addltem"Japan"，1Print List1.List(2)End Sub
在窗体上画一个文框和一个列表框，然后编写下列两个事件过程： 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
（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
（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.北京中国
在窗体上画一个文本框和一个列表框，然后编写下列两个事件过程：Private Sub Form_Load()List1.AddItem"357"List1.AddItem"246"List1.AddItem"123"List1.AddItem"456"Text1.Text=""End SubPrivate Sub List1 DblClick()m=List1.TextPrint m+Text1.TextEnd Sub程序运行后，在文本框中输入“123”，然后双击列表框中的"456"，输出结果是( )。A．1245B．456123C．123456D．0
设窗体上有一个名为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.该列表项被删除后又在原位置插入
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：Private Sub Command1_Click()Dim In As IntegerIn=______List.Remove IndEnd Sub则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount
窗体上有一个列表框和一个文本框，编写如下两个事件过程： 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．北京中国
设窗体上有_个名为Listl的列表框，并编写下面的事件过程：Private Sub Listl_Click()Dim ch As Stringch=Listl．List(Listl．Listlndex)Listl，RemoveItem Listl．ListIndexListl．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是A．该列表项被移到列表的最前面B．该列表项被删除C．该列表项被移到列表的最后面D．该列表项被删除后又在原位置插入
窗体上画一个名称为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．abcdeB．efghiC．EFGHID．ABCDE
在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： 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．40123B．163C．123D．30123
在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程： 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．789123B．456789C．789456D．1245
窗体上有一个列表框和一个文本框，编写如下两个事件过程： 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 BeejingB．China TianjinC．China ShanghaiD．Shanghai China
在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程:Private Sub Form_loab()List.AddItem″357″List.AddItem″246″List.AddItem″123″List.AddItem″456″TEXT1.Text=″″End SubPrivate Sub Command1_Click()List.Listindex=3Print List.Text1+Text1.TextEnd Sub程序运行后,在文本框中输入″789″,然后双列表框中的″456″,则输出结果为A．789123B．456789C．789456D．1245
在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： 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．1245B．456123C．123456D．0
设窗体上有一个名为List1的列表框，并编写下面的事件过程：Private Sub List1_Click（ ）Dim ch As Stringch=List1．List(List1．Listlndex)List1．RemoveItem List1．ListlndexList1．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是（ ）。A.该列表项被移到列表的最前面B.该列表项被删除C.该列表项被移到列表的最后面D.该列表项被删除后又在原位置插入
设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（ ）。A.Private Sub Command1 Click（ ） List1，Clear End SubB.Private Sub Command1 Click（ ） List1．Clear List1．ListIndex End SubC.Private Sub Command1 Click（ ） List1 Removeltem List1．ListIndex End SubD.Private Sub Command1 Click（ ） List1．Removeltem End Sub
窗体上有一个命令按钮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．程序出错
窗体上有一个列表框和一个文本框，编写下列两个事件过程：Private Sub Form. Load()List1.Addltem"北京"List1.Addltem"天津"List1.Addltem"上海"Text1.Text=""End SubPrivate Sub List1 Click()Print Text1.Text+List1.TextEnd Sub程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。A．中国北京B．中国天津C．中国上海D．北京中国
（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：Private Sub Command1_Click （）Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()End Sub End SubC）Private Sub Commandl_Click() D）Private Sub Command_ Click()End Sub End Sub