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

[主观题]

窗体上有一个列表框List1和一个文本框Text1，程序运行时，当单击列表框某个项目时，在文本框里显示选中的列表项内容，下面能实现上述操作的是______。

A.Private Sub List1_Click()

B.Private Sub List1_Click()Text1.Text = List1.List Text1.Text = List1.ListIndex/ End Sub End Sub

C.Private Sub List1_Click()

D.Private Sub List1_Click()Text1.Text = List1.Text Text1.Text = List1.Caption End Sub End Sub

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“窗体上有一个列表框List1和一个文本框Text1，程序运行…”相关的问题

第1题

在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表中添加若干列表项。

当双击列表框中的某个项目时，在标签Labe1中显示所选中的项如图所示。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form. _Load() List1．AddItem"北京" List1．Addltem"上海" List1．AddItem"河北" End Sub Private Sub List1【】() Labe1．Caption=【】 End Sub

点击查看答案

第2题

在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项

。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。

Private Sub Form_Load() List1.AddItem“北京” List1.AddItem“上海” List1.AddItem“河北” End Sub Private Sub List1_Dblclick() Label.Caption=【】 End Sub

点击查看答案

第3题

在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后，在列表框中添加若干列

表项。当双击列表框中的某个项目时，在标签kabel1中显示所选中的项目，如图所示。

请在【】和【】处填入适当内容，将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【】() Label1.Caption=【】 End Sub

点击查看答案

第4题

在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加若干列表项。

当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在【】和【】处填入适当的内容，将程序补充完整。(2002年9月) Private Sub Form_load() List1. AddItem"北京" List1. AddItem"上海" List1. AddItem"河北" End Sub Private Sub【】 () Label1. Caption=【】 End Sub

点击查看答案

第5题

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

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。

Private Sub Command1_Click() If List1.ListIndex＞=0 Then List1．RemoveItem【】 LabeCaption=【】 Else MsgBox“请选择要删除的项目” End If End Sub

点击查看答案

第6题

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

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

点击查看答案

第7题

如图16－10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的

如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len(【】) k=0 While k＜List1. ListCount And Not found If Text1=Left $(List1. List(k), n)Then Text2=【】 found=True End If k=k+1 Wend If Not found Then Text2="查无此人" End If End Sub

点击查看答案

第8题

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

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

End If End Sub

点击查看答案

第9题

程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本

。程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。 Option Explicit Private【】 Dim k As Integer For k=1 to 100 If k Mod 20 Then 【】 Else Text1.Text="" End lf Print“程序运行完毕，可再双击窗体” End Sub

点击查看答案

第10题

已知在窗体上有一个文本框控件，它的名称为Text1，且输入的字符全部为数字，现在要把该字符转换为整

数送给整型变量C，所用到的语句是【】。

点击查看答案

第11题

窗体上有4个文本框控件数组text1（)和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。

窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。

Dim x(3)As Integer Private Sub Command1_Click () For i = 0 To 3 x(i)=【】 Next i For i = 0 To UBound(x)- 1 For j = i To UBound(x) If【】Then t = x(i) x(i)= x(j) x(j)= t End If Next j Next i For i = 0 To 3 Text1(i) .Text = Str(x(i)) Next i End Sub

点击查看答案

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）