首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
71
问题
窗体上有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全国计算机二级
相关试题推荐
窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是()。
将数据库的结构划分成多个层次,是为了提高数据库的()。
下列叙述中正确的是()。
在黑盒测试方法中,设计测试用例的根据是()。
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Textl的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则
下列叙述中正确的是()。
使用Open语句可以打开或建立文件,并同时指定文件的输入输出方式。下列输入输出方式中错误的是()。
把数学表达式表示为正确的VB表达式应该是()。
用树型结构表示实体之间联系的模型是()。
关系的实体完整性要求关系中不能为空的属性是()。
随机试题
Thissummerthecity’sDepartmentofTransportationstartsanewbike-shareprogram.People【K1】________liveandworkinNewYork
简述申请律师执业的条件。
简述管理控制的三个基本环节的工作。
《建设工程施工合同(示范文本)》(GF一2013—0201)约定属于承包人工作义务的是()。
某企业2011年末进行财产清查,查明存在的情况有:(1)甲种原材料账面结存1500千克,每千克成本为6元,实际结存1570千克,经查属于收发计量不准确造成,经批准予以处理。(2)乙种原材料账面结存2100千克,每千克成本为10元,实际结存2000千克,
()以言语为工具,所反映的是事物的本质属性和内在规律。
____________。把政策支持作为促进保险业发展的重要力量,加强与国家有关部门、地方政府的协调与合作,完善保险业发展的政策支持体系,推动关系国计民生的保险业务的新发展。一是以税收优惠为突破口,推动养老保险和健康保险的新发展。二是以财政支持为突破口,推
下列关于赤潮的说法,正确的是:
领导交给你一项任务。你如何确保明白领导的意图。并把任务完成好?
HowmanychickensbecometheKFCchain’sfriedmealseveryyear?
最新回复
(
0
)