首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
68
问题
窗体上有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全国计算机二级
相关试题推荐
下面控件中,没有Caption属性的是()。
某带链的队列初始状态为front=rear=NULL。经过一系列正常的入队与退队操作后,front=rear=10。该队列中的元素个数为()。
对软件系统总体结构图,下面描述中错误的是()。
以下关于命令按钮的叙述中正确的是()。
设已经在菜单编辑器中设计了弹出式菜单mnuStyle,要求程序运行时,当用户在文本框Textl上单击鼠标右键时,能够弹出该菜单,则应使用的事件过程是()。
设窗体上有名称为Optionl的单选按钮,且程序中有语句:IfOptionl.Value=TrueThen下面语句审与该语句丕等俭的是()。
把数学表达式表示为正确的VB表达式应该是()。
将E—R图转换为关系模式时,实体和联系都可以表示为()。
随机试题
二战后,日本法律制度属于()
下列哪些选项能说明支饮不同于哮病()
国务院期货监督管理机构应当制定期货公司持续性经营规则,对期货公司及其分支机构的下列()等方面提出要求。
一位教师在进行《两条小溪的对话》的教学时,让学生分角色表演,有一位学生问:“老师,我能不用书上的原话吗?”老师和蔼地问:“为什么呢?”“因为书中的原话太长,我背不下来,如果拿着书来表演,又不太好!”孩子说出了原因。“你的意见很好,用自己的话来表演吧!”老师
(2010年918联考一28)一副扑克牌有52张,最上面一张是红桃A。如果每次把最上面的10张移到最下面而不改变它们的顺序及朝向,那么,至少经过多少次移动,红桃A会出现在最上面?()
以特定目的作为犯罪构成必要要件的犯罪是()。
localization
[*]
请使用VC6或使用【答题】菜单打开考生目录proj3下的工程文件proj3,其中该工程中包含定义了用于表示姓名的抽象类Name、表示“先名后姓”的姓名类Name1(名、姓之间用空格隔开)和表示“先姓后名”的姓名类Name2(姓、名之间用逗号隔开);程序应当
TomJohnsoncametoa(11).Hewantedtostayinasingleroomwithbath.Hemadethereservationatthe(12)Afterhearrived
最新回复
(
0
)