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

admin2020-02-27 36

问题窗体上有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全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

在线性表的顺序存储结构中，其存储空间连续，各个元素所占的字节数()。

在黑盒测试方法中，设计测试用例的根据是()。

某系统结构图如下图所示(n≥5)该系统结构图的最大扇出数是()。

对软件系统总体结构图，下面描述中错误的是()。

下列叙述中正确的是()。

将E—R图转换为关系模式时，实体和联系都可以表示为()。

一间宿舍可住多个学生，则实体宿舍和学生之间的联系是()。

对哮喘诊断有重要意义的检查是

2岁以内小儿乳牙数目正确的计算方法是

证券金融公司应当建立信息系统安全管理机制，保障公司信息系统安全、稳定运行，妥善保存履行《转融通业务监督管理试行办法》规定职责所形成的各类文件、资料，保存期限不少于()。

揭示事物发展变化方向和道路的规律是()。

一小偷利用一楼住户甲违规安装的防盗网，进入二楼住户乙的室内，行窃过程中将乙打伤。下列哪一种说法是正确的()。

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：PrivateSubCommandl_Click()Dima()a＝Array(“机床”,”车床”,”钻床”,”轴承”)Printa(2)

设有表示学生选课的三张表，学生S(学号，姓名，性别，年龄，身份证号)，课程C(课号，课名)，选课SC(学号，课号，成绩)，则表SC的关键字(键或码)为()。

计算机集成制作系统是

Newsisbadforyou—andgivingupreadingitwillmakeyouhappierA)Inthepastfewdecades,thefortunateamongushaverecogn