首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有2个名称为List1、List2的列表框,1个标题为"移动"的命令按钮Command1,如图所示。在List1中选择多个项目,并单击"移动"命令按钮,则选中的项目被移动到List2中。编写如下程序: Private Sub Command1_Cli
窗体上有2个名称为List1、List2的列表框,1个标题为"移动"的命令按钮Command1,如图所示。在List1中选择多个项目,并单击"移动"命令按钮,则选中的项目被移动到List2中。编写如下程序: Private Sub Command1_Cli
admin
2015-06-30
28
问题
窗体上有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://jikaoti.com/ti/Yc60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定程序中有如下语句:answer=MsgBox("第一个字符串",vbAbortRetryIgnore_OrvbCritieal_
在关系数据库中,对一个关系做投影操作后,新关系的元组个数将
在窗体上画一个名称为Labell的标签,然后编写如下事件过程。PrivateSubForm_Click()Dimarr(10,I0)AsIntegerDimiAsInteger,jAsInte
在VisualBasic中,组合框是文本框和下列哪一项的特性的组合
程序执行结果s的值是【】。PrivateSubsubl(ByvalpAsInteger)p=p*2EndSubPrivateSubCommandl_Click()DimiAsIn
以下能够正确计算1+2+3+…+10的程序是
假定建立了一个名为Command1的命令按钮数组,则下列说法中错误的是()。
设已打开5个文件,文件号为1、2、3、4、5。要关闭所有文件,则下列语句中正确的是()。
关于多行结构条件语句的执行过程,正确的说法是()。
设a=5,b=4,c=3,d=2,下列表达式的值是3>2*bOra=cAndb<>COrc>d
随机试题
请使用VC6或使用【答题】菜单打开考生文件夹proj2下的工程proj2,此工程中包含一个源程序文件main.cpp,其中有坐标点类Point、线段类Line和矩形类Rectangle的定义,还有main函数的定义。程序中两点间的距离的计算是按公式d=实现
A.医生对自杀的病人予以制止B.医生的行为以保护病人利益、促进病人健康、增进其幸福为目的C.医生要保护病人的隐私D.医生的行为要遵循医德规范的要求E.医生在紧急灾难(如传染病流行)面前要服从卫生部门调遣能体现医学伦理学有利原则的是()
患者,女性,22岁,症见月经提前,两胁及乳房胀痛,口燥咽干,头痛目眩,不思饮食,精神疲惫,舌淡,苔薄白,脉弦而虚。治疗最佳选方是
甲研究所根据与乙公司签订的委托开发合同,完成一项发明。现甲研究所单独向专利局提出专利申请,而乙公司未经甲研究所同意便开始使用这项发明。双方均对对方表示异议。对此,下列意见正确的有哪些?()
大气污染源按预测模式的模拟形式分为()类别。
企业需在每月月末将本年利润的余额结转至利润分配。()
目前我国中央银行在公开市场通过买卖()进行公开市场操作。
安全摄入范围位于()。
设向量组(Ⅰ)α1,α2,…,αs,其秩为r1,向量组(Ⅱ)β1,β2,…,βt,其秩为r2,且βi=(i=1,2,…,s)均可以由α1,α2,…,αs线性表示,则()
有如下程序:#include<iostream>usingnamespacestd;intmain(){intsum;for(inti=0;i<6;i+=3){sum=i;fo
最新回复
(
0
)