更多"窗体上有一个名为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】 。