单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

下面的程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是 Private Sub Command1_Click() Dim count(25) As Integer, ch As String ch=Uease(InputBox( 请输入字母字符串 )) For k=1 To Len(eh) n=Asc(Mid(ch, k, 1))-Asc( A ) If n＞0 Then Count(n)=Count(n)+1 End If Next k m=Count(0) For k=1 To 25 If m＜count(k) Then m=count(k) End If Next k Print m End Sub

A．0
B．1
C．2
D．3

单项选择题

设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图5所示的文件对话框： Private Sub Command1_Click() CD1.DialogTitle= 打开文件 CD1.InitDir= C: CD1.Filter= 所有文件|*.*|Word文档|*.doc|文本文件|*.txt: CD1.FileName= CD1.Aetion=1 If CD1.FileName= Then Print 未打开文件 Else Print 要打开文件 & CD1.FileName End If End Sub 但实际显示的对话框中列出了C: 下的所有文件和文件夹，“文件类型”列表框中显示的是“所有文件”。所以，需要修改程序，下面的修改方案中正确的是

相关试题