更多"在窗体上画一个名称为List1的列表框、一个名称为Label1的标签，"的相关试题:
[单项选择]在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
A. Private Sub List1_Click()
B. Private Sub List1_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
[单项选择]在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干国家的名称，当单击列表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是( )。
A) Private Sub List1_Click（ ）
Labe11. Camion=List1. ListIndex
End Sub
B) Private Sub List1_Click（ ）
Labe11. Name=List1. ListIndex
End Sub
C) Private Sub List1_Click（ ）
Labe11.Name=List1. Text
End Sub
D) Private Sub List1_Click（ ）
Labe11. Caption=List1. Text
End Sub
[单项选择]茌窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是( )。
A. Private Sub List1_Click() Label1.Caption=List1.ListIndex
B. Private Sub List1_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
[单项选择]在窗体上画一个名称为List1的列表框、一个名称为Labell的标签，列表框中显示若干城市名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是( )。
A. Private Sub List1_Click()
B. Private Sub List1_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。
下面是实现上述功能的程序，请填空。
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= 【12】
If L1 ＞=0 Then
List1.RemoveItem 【13】
Labell.Caption= 【14】
Else
MsgBox("请选择要删除的项目")
End If
End Sub
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change（ ）事件和Dir1_Change（ ）事件，在这两个事件中执行的语句分别是 【8】 和 【9】 。
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_ Change事件过程中应使用的语句是______ 。
A. Dirve1.Drive=Dir1.Path
B. Dir1.Path=Drive1.Drive
C. Dir1.Path=File1.Path
D. File1.Path=Dir1.Path
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是______。
A. Dirve1. Drive=Dir1. Path
B. Dit1. Path=Drive1. Drive
C. Dir1. Path=File1. Path
D. File1. Path=Dir1. Path
[填空题]窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command１、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对 List１中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。[*]Private Sub Form_Load( )
For i=1 To 100
If i Mod 7=0 Then
【3】
End Ibf
Next End Sub Private Sub Command1_Click( )
Sum=0
For i=0 To 【4】
Sum=Sum+ 【5】
Next
Text1．Text=Sum
End Sub
[填空题]设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。
Private Sub Command1_Click（ ）
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A. Drivel change B) Drive1_Click C) Dirl_Click D) Dirl_Change
[单项选择]在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.Addltem "357"
List1.Addltem "246"
List1.Addltem "123"
List1.AddItem "456"
Text1.Text = ""
End Sub
Private Sub Listl_DblClick0
m=List1.Text
Print m + Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。
A. 1245
B. 456123
C. 123456
D. 0
