更多"将数据项“Student”添加到名称为List1的列表框中,并使其成为"的相关试题:
[单项选择]为了删除列表框中的一个列表项,应使用的列表框方法是
A. Move
B. Remove
C. Clear
D. RemoveItem
[填空题]Visual Basic 提供了列表框控件,当列表框中的项目较多。超过了列表框的长度时,系统会自动在列表框边上加一个 【6】 。
[填空题]窗体中有一组文件系统控件,分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1,在它们下面有一个图片框pic1。要求选择一个bmp文件,即单击文件列表框中的某个文件时,将该文件显示在图片框中。请在空白处填入适当的内容,将程序补充完整。
Option Explicit
Private Sub File1_Click( )
Dim fn As String
If Len(Dir1.Path)=3 Then
Fn=Dir1.Pach+File1.FileName
Else
Fn=Dir1.Path & "/"&______
End if
Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels
Pic1.Picture=______
End Sub
Private Sub Form Load( )
File1.FileName="*.bmp"
End Sub
Private Sub Dir1_Change( )
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change( )
Dir1.Path=Drive1.Drive
End Sub
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drive1、Dir1和File1。为了使它们同步操作,必须触发Drive1_Change( )事件和Dir1_Change( )事件,在这两个事件中执行的语句分别是 (8) 和 (9) 。
[填空题]窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框,且有一个名称为Text1的文本框。以下程序的功能是:将指定位置中扩展名为".txt"的文件显示在File1中,如果双击File1中的某个文件,则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load( )
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change( )
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change( )
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick( )
Dim S As String*1
If Right(File1.Path,1)="/"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"/"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1,#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
[填空题]当列表框中的项目较多、超过了列表框的长度时,系统会自动在列表框边上加一个______。
[填空题]组合框是组合了文本框和列表框的特性而组成的一种控件。______风格的组合框不允许用户输入列表框中没有的项。
[单项选择]为了在列表框中使用Ctrl和Shift键进行多个列表项的选择,应将列表框的Multiselect属性设置为
A. 0
B. 1
C. 2
D. 3
[单项选择]窗体上有名称为List 1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是
A. List 1.AddItem"Basic"
B. List 1.List(List 1.ListIndex)="Basic"
C. List 1.Text="Basic"
D. 以上都可以
[填空题]在程序的空白行处填写适当的语句,完成下列功能:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。
Do While List2.ListCount
______
List2.RemoveItem( )
Loop
[单项选择]窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是______。
A. List1.AddItem "Basic"
B. List1.List(List1.Listlndex)="Basic"
C. List1.Text="Basic"
D. 以上都可以