2. 计算机
  3. 窗体上有2个名称为List1、List2的列表框，1个标题为"移动"的命令按钮Command1，如图所示。在List1中选择多个项目，并单击"移动"命令按钮，则选中的项目被移动到List2中。编写如下程序： Private Sub Command1_Cl

窗体上有2个名称为List1、List2的列表框，1个标题为"移动"的命令按钮Command1，如图所示。在List1中选择多个项目，并单击"移动"命令按钮，则选中的项目被移动到List2中。编写如下程序： Private Sub Command1_Cl

admin2020-02-27  76
问题 窗体上有2个名称为List1、List2的列表框，1个标题为"移动"的命令按钮Command1，如图所示。在List1中选择多个项目，并单击"移动"命令按钮，则选中的项目被移动到List2中。编写如下程序：

Private Sub Command1_Click()
    Dim i As Integer,j As Integer, k As Integer
    Dim n As Integer,arr() As Integer
    n=List1.SelCount
    ReDim arr(1 to n)
    m=1
    For i=1 To List1.ListCount ’i循环
        If List1.Selected(i) Then
            arr(m)=i
            m=m+1
        End if
     Next i
     For j=1 To n              ’j循环
        List2.AddItem.List1.List(arr(i))
        List1.RemoveItem arr(i)
        For k=j+1 TO n         ’k循环
             arr(k)=arr(k)-1
        next k
      next j
End Sub
运行程序，发现有错误，以一下正确的修改是
选项 A、i循环的初始语句应改为：For i = 0 To List1.ListCount - 1
B、k循环的循环体应改为：arr(k) = arr(k) + 1
C、j循环的初始语句应改为：For j = m - 1 To n
D、删除k循环涉及的三行代码
答案A
解析 列表框的SelCount用于读取列表框中所选项的数目。此题中，将所选项目数目赋值给m。ListCount是列表框中表项的数目，表项的排列从0开始，最后一项的序号为ListCount-1，故第一个For循环初始语句应该改为For i = 0 To List1.ListCount - 1，故A项正确。
转载请注明原文地址:https://kaotiyun.com/show/UFTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)