单项选择题

窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：


Private sub Command1_Click()
For k=List1.ListCount P 1 To 0 Step-1
If List1.Selected(k) Then
List 2.Addltem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是______。

A) 在List2中插入了"外语"、"物理"两项
B) 在List1中删除了"外语"、"物理"两项
C) 同时产生A) 和B) 的结果
D) 把List1中最后一个列表项删除并插入List2中
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上有两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮。运行后的窗体外观如下图所示。 设有如下的类型和变量声明： Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p，当单击 保存 按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。
A) Open "c:\\Test2.dat" For Random As #1
Get #1 ,1 ,p
Close #1
B) Open "c: \\Test2.dat" For Output As #1
Put #1,1,p
Close #1
C) Open "c:\\Test2.dat" For Append As #1 Len=Len(p)
Get #1 ,1 ,p
Close #1
D) Open " c:\\Test2.dat" For Random As #1
Len=Len(p)
Put #1,1,p
Close #1
单项选择题
以下循环语句中在任何情况下至少执行一次循环体的是______。
A) Do While＜条件＞
循环体
Loop
B) Do
循环体
Loop While＜条件＞
C) Do Until＜条件＞
循环体
Loop
D) While＜条件＞
循环体
Wend
相关试题