题目内容（请给出正确答案）

[主观题]

在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令

按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。 Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1=【】 If L1 ＞=0 Then List1.RemoveItem【】 Labell.Caption=【】 Else MsgBox("请选择要删除的项目") End If End Sub

提问人：网友flytonbo 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在…”相关的问题

第1题

在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl，然后编写如下事件过程Private

在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl，然后编写如下事件过程 Private Sub Form_Load() Listl.Addltem"Iteml" Listl.Addltem"Item2" Listl.Addltem"Item3" End Sub Private Sub Commandl_Click() Listl.List(Listl.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。

A．把字符串“AAAA”添加到列表框中，但位置不能确定

B．把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)

C．把列表框中原有的最后一项改为“A从A”

D．把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)

点击查看答案

第2题

在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。 Priva

在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。

Private Sub Form_load()

List1.AddItem "Itern 1"

List1.AddItem "Itern 2"

List1.AddItem "Itern 3"

End Sub

Private Sub Command1_Click()

List1.List(List1.Listcount)="AAAA"

End Sub

程序运行后,单击命令按钮,其结果为

A．把字符串"AAAA"添加到列表框中,但位置不能确定

B．把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)

C．把列表框中原有的最后一项改为"AAAA"

D．把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)

点击查看答案

第3题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Privat

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：

PrivateSub Form_Load()

List1.AddItem "Item1"

List1.AddItem "Item2"

List1.AddItem "Item3"

End Sub

Private Sub Command1_Click()

List1.List(List1.Listcount) ="AAAA"

End Sub

程序运行后，单击命令按钮，其结果为

A．把字符串"AAAA"添加到列表框中，但位置不能确定

B．把字符串"AAAA"添加到列表框的最后(即"Item3"的后面)

C．把列表框中原有的最后一项改为"AAAA"

D．把字符串"AAAA"插入到列表框的最前面(即"Item1"的前面)

点击查看答案

第4题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Privat

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load0 List1.AddItem"Item 1" List1.AddItem"Item 2" Lis1.AddItem"Irem 3" End Sub Private Sub Command1_Click() List1.List(List1.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为()。

A．把字符串“AAAA”添加到列表框中，但位置不能确定

B．把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面)

C．把列表框中原有的最后一项改为“AAAA”

D．把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)

点击查看答案

第5题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Privat

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load() List1. AddItem"Item1" List1．AddItem"Item2" List1. AddItem"Item3" End Sub Private Sub Command1_Click() List1. List(List1. ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。

A．把字符串“AAAA”添加到列表框中，但位置不能确定

B．把字符串“AAAA”添到列表框的最后(即“Item3”的后面)

C．把列表框之中原有的最后一项改为“AAAA”

D．把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)

点击查看答案

第6题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Privat

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form. Load() List1.AddItem "Item 1" List1.Addltem "Item 2" Listl.Addltem "Item 3" End Sub Private Sub Command1 Click() Listl.List(Listl.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为

A．把字符串“AAAA”添加到列表框中，但位置不能确定

B．把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)

C．把列表框中原有的最后一项改为“AAAA”

D．把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)

点击查看答案

第7题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮。即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 Private Sub Command1_C1ick() If List1. List1adex＞=【】Then List1. Removeltem【】 Label1. Caption=【】 Else MsgBox "请选择要删除的项目" End If End Sub

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1

点击查看答案

第8题

在窗体．上画一个列表框、一个文本框及一个按钮，然后编写如下事件过程：Prirate Sub Form_Loab（)Lis

在窗体．上画一个列表框、一个文本框及一个按钮，然后编写如下事件过程： Prirate Sub Form_Loab() List.Addltem"357" Llst.Addltem"246" List.Addltem"123" List.Addltem"456" TEXTl.Text="" End ub Private Sub Commandl_Click() List.LiSdndex=3 Print List.Text+Textl.Text

A．789123

B．456789

C．789456

D．1245

点击查看答案

第9题

在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程：Private Sub Form. Loab（) L

在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程： 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

点击查看答案