首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有2个名称为List1、List2的列表框,1个标题为"移动"的命令按钮Command1,如图所示。在List1中选择多个项目,并单击"移动"命令按钮,则选中的项目被移动到List2中。编写如下程序: Private Sub Command1_Cl
窗体上有2个名称为List1、List2的列表框,1个标题为"移动"的命令按钮Command1,如图所示。在List1中选择多个项目,并单击"移动"命令按钮,则选中的项目被移动到List2中。编写如下程序: Private Sub Command1_Cl
admin
2020-02-27
45
问题
窗体上有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全国计算机二级
相关试题推荐
下面对软件测试描述错误的是()。
设变量x的值是845,则下面语句的输出是()。Printx\100+(xMod100)\10+xMod10
如果将命令按钮的访问键设置为“D”,以下不会触发命令按钮Click事件的操作是()。
有以下程序代码:ConstNUMAsInteger=5PrivateSubForm—Click()DimaAsInteger,bAsIntegera=1:b=NUMDoa=a+
设有如下数组声明:Dima()AsSingle下面关于这一声明的叙述中正确的是()。
以下关于过程及过程参数的描述中,错误的是()。
窗体上有2个名称分别为Text1、Text2的文本框,1个名称为Command1的命令按钮。编写如下程序代码:PrivateSubForm—Load()Textl.Text=“”Text2.Text=“”End
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是()。
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
关系的实体完整性要求关系中不能为空的属性是()。
随机试题
A.HaveyouplannedtoanothercityB.WhatareyoudoingC.WhenwouldyoubeleavingD.WherehaveyoubeenE.Wouldyoubein
患者男性,36岁,诊断肠梗阻入院,遵医嘱插入鼻胃管。插管前,护士给患者解释插管的目的是
某患者,36岁,近几天感到外阴瘙痒,白带增多,呈稀薄状且有腥臭味,应建议她到医院做什么检查
某省检察机关请求其他省检察机关提供调查对象情况,是一种()。
下列说法中不符合弗洛伊德关于人格结构的表述的是()。
如何理解和实现社会主义市场经济条件下收入分配中的公平?
下列关于中央银行的银行职能说法不正确的是()
[A]Communication[B]Identity[C]Loss[D]Practicalities[E]Rehearsing[F]SolutionsandPrevention
Thebookwas(sobored)thatI(returnedit)(tothelibrary)(withoutfinishingit).
Theoldpaintingwasdamagedinthefloodandhadtobepainstakingly______.
最新回复
(
0
)