首页 > 自考

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

[主观题]

窗体上有一个列表框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的列表框。程序运行后，在列表框中添加若干列表项。

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

点击查看答案

第2题

将宏对象拖入到窗体的设计视图，会自动添加一个()。

A.标签

B.文本框

C.列表框

D.命令按钮

点击查看答案

第3题

如图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

点击查看答案

第4题

设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load（） Show Text1.Tex

设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp（Button As Integer, _

Shift As Integer, X As Single, Y As Single）

Print "程序设计"

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

Print "Visual Basic";

End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

点击查看答案

第5题

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

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

点击查看答案

第6题

已知列表框控件List1中已放入若干表项，下列关于List1的叙述中错误的是

A.第一个表项的序号为0

B.没有选中任何一个表项时，ListIndex属性的值为-1

C.最后一个表项的序号为ListCount

D.可用MultiSeleet属性设置是否可多选

点击查看答案

第7题

窗体上有一个命令按钮，数据文件data.txt的内容如下： "语文" "2001", 87 "数学"

"2002", 75 "英语" "2003", 92 "体育" "2004", 66 Type bs aa As String * 2 bb As String * 4 cc As Integer End Type Private Sub command1_Click(Dim xs As bs Dim fl As Integer fl = FreeFile Open "d:\data.txt" For Input As fl Do While Not EOF(fl) Input fl, xs.aa, xs .bb, xs.cc List1.AddItem xs.bb List1.AddItem xs.aa List1.AddItem xs.cc Loop Print EOF(fl) Close End Sub 问：在列表框中第一行、第三行、第四行的内容是【】、【】、【】。窗体上打印出的是【】。

点击查看答案

第8题

以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本

框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left=【】 Text1．Top=【】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If【】Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top) End If End Sub

点击查看答案

第9题

下列具有输入数据功能的控件是（)控件。

A.列表框

B.选项按钮

C.窗体

D.文本框

点击查看答案

第10题

假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器

列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句【】。

点击查看答案