窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程: Private Sub Command1_Click() n%=List1.ListIndex If n>0 Then ch$=List1.List(n) Lis

admin2019-06-11  32

问题 窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:
Private Sub Command1_Click()
n%=List1.ListIndex
If n>0 Then
ch$=List1.List(n)
List1.List(n)=List1.List(n-1)
List1.List(n-1)=ch
End If
End Sub
程序运行时,选中1个列表项,然后单击Command1按钮,则产生的结果是

选项 A、若选中的不是最前面的列表项,则选中的列表项与它前一个列表项互换位置
B、选中的列表项与它前面的列表项互换位置
C、若选中的不是最后面的列表项,则选中的列表项与它后一个列表项互换位置
D、选中的列表项与它后面的列表项互换位置

答案A

解析 当单击Command1按钮后,List1列表框中被选中项的索引值赋给变量n,如果被选中项不是空也不是第1项时,将选中项的项目文字赋值给变量ch,用选中项的上面一项的文字替换选中项的文字,再把变量ch中的文字替换选中项上面一项的文字,简单说就是选中项和它上面一项的文字交换。因此A选项的说法正确。
转载请注明原文地址:https://jikaoti.com/ti/VaN0FFFM
0

最新回复(0)