单项选择题
窗体上有List1、List2两个列表框,List1中有若干列表项(见下图),并有下面的程序:
Private Sub Command1_Click()
For k=List1.ListCout-1 To 0 SteD-1
If List1.Selected(k)Then
List2.Addltem List1.List(k)
List1.Removeltem k
End If
Next k
End Sub
程序运行时,按照图示在List1中选中2个列表项,然后单击Command1命令按钮,则产生的结果是( )
A.在List2中插入了“外语”、“物理”两项
B.在List1中删除了“外语”、“物理”两项
C.同时产生A和B的结果
D.把List1中最后1个列表项删除并插入到List2中
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
下面程序运行时,若输入395,则输出结果是( ) Private Sub Command1_Click() Dim x% x=InputBox( 请输入一个3位整数 ) Print x Mod 10,x 100,(X Mod 100) 10 End Sub
A.3 9 5
B.5 3 9
C.5 9 3
D.3 5 9
点击查看答案&解析
单项选择题
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如下图所示的文件对话框: Private Sub Command1_Click() CD1.DialogTitle= 打开文件 CD1.InitDir= C: CD1.Filter= 所有文件|*.*|Word文档|*.doc|文本文件|*.txt CD1.FileName= CD1.Action=1 If CD1.FileName= Then Print 未打开文件 Else Print 要打开文件 &CD1.FileName End If End Sub 但实际显示的对话框中列出了C: 下的所有文件和文件夹,“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是( )
A.把CD1.Action=1改为CD1.Action=2
B.把“CD1.FiIter=”后面字符串中的“所有文件”改为“文本文件”
C.在语句CD1.Action=1的前面添加:CD1.FilterIndex=3
D.把CD1.FileName=" "改为CD1.FileName="文本文件\
点击查看答案&解析
相关试题
在窗体上画一个文本框,其名称为Text1,在...
在窗体上画一个名称为Command1的命令按钮...
在窗体上画一个标签、一个计时器和一个命令...
有一个学生选课的关系,其中学生的关系模式...
有如下程序: Private Sub Form_Click...