更多"窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果"的相关试题:
[单项选择]窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。
Priate Sub Form_Click（ ）
For i=0 To List1．ListCount-1
If i Mod 2=0 Then
Print List1．List(i)；
End If
Next i
End Sub
Private Sub Form_Load（ ）
List1．AddItem"中国"
List1．AddItem"日本"
List1．AddItem"韩国"
List1．AddItem"新加坡"
List1．AddItem"香港"
End Sub
A. 中国韩国
B. 日本新加坡
C. 中国韩国香港
D. 中国日本韩国新加坡香港
[填空题]窗体上有两个控件：一个是驱动器列表框Drive1，另一个是目录列表框Dir1，现在要使目录列表框跟随驱动器列表框的变化而变化，则需在Drive1_Change事件过程中填入语句 【7】 。
[单项选择]窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框中删除。程序如下：
Privat Sub Command1_Click（ ）
Dim In As Intger
In=______
List.Remove In
End Sub
则在程序的空白处的语句是( )
A. List1.Index
B. List1.ListIndex
C. List1.Text
D. List1.ListCount
[单项选择]窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form Load（ ）
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click（ ）
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。
A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国
[单项选择]窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form Load（ ）
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click（ ）
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。
A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国
[单项选择]窗体上有一个列表框，编写下列程序：
Private Sub Command1_Click（ ）
List1. RemoveItem3
End Sub
Private Sub Form_Load（ ）
List1. AddItem "拉瓦锡"
List1. AddItem "道尔顿"
List1. AddItem "汤姆森"
List1. AddItem "门捷列夫"
End Sub
程序执行时，单击Commandd1，则在列表框中将不再出现 ______。
A. 拉瓦锡
B. 道尔顿
C. 汤姆森
D. 门捷列夫
[填空题]窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。下面的程序可实现这一功能，请填空。
Private Sub Command1_Click（ ）
If List1.Text=”” or List2.Text=”” Then
MsgBox”请选择交换的物品！”
Else
List1.AddItem List2.Text
List2.RemoveItem （ 11 ）
（ 12 ）
List1.RemoveItem List1.ListIndex
End If
End Sub
[填空题]设窗体中已经加入了文件列表框(File1)、目录列表框(Dir1)、驱动器列表框(Drive1)，完成下列程序使这三个控件可以同步变化。
Private Sub Dir1_Change（ ）
______
End Sub
Private Sub File1_Click（ ）
MsgBox File 1.FileName
End Sub
[填空题]
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、
Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。
Pfivate Sub Form_Load（ ）
Fori=1 To 100
If iMod7=0 Then
[6]
End If
Next
End Sub
Private Sub
Commandl_Crick（ ）
Sum=0
Fori=0 To
List1.List Count-1或14
Sum=Sum+ [7]
Next
Textl:Text=Sum
End Sub
[单项选择]窗体上有一个列表框和一个文本框，编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.AddItem“Beijing"
List1.AddItem "Tianjin"
List1.AddItem”Shanghai”
Text1.Text=“”
End Sub
Private Sub List1_Db1Click（ ）
x=List1.Text
Print x+Text1.Text
End Sub
程序运行后，在文本框中输入“China”，然后双击列表中的“Shanghai”，则输出结果为( )。
A. China Beijing
B. China Tianjing
C. China Shanghai
D. Shanghai China
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change（ ）事件和Dir1_Change（ ）事件，在这两个事件中执行的语句分别是 【8】 和 【9】 。
