首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后,各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后,各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,
admin
2010-03-30
105
问题
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后,各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。
Private Sub MoveRight (x() As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = UBound (x)
j = x(i)
For k = i To【 】Step -1
【 】
Next k
x(LBeund(x)) = j
End Sub
Private Sub Command1_click()
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To 10
a(i) = i
Next i
j = Val(TextText)
k=0
Do
k=k+1
Call MoveRight(A)
Loop Until k = j
For i = 0 To 10
Print a(i);
Next i
End Sub
选项
答案
LBound (x)+1,x(k)=x(k-1)
解析
转载请注明原文地址:https://kaotiyun.com/show/Q41p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面关于对象加锁的叙述错误的是()。
软件开发模型包括()。Ⅰ.瀑布模型Ⅱ.扇形模型Ⅲ.快速原型法模型Ⅳ.螺旋模型
设树T的度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为()。
在Java的基本数据类型中,char型采用Unicode编码方案,每个Unicode码占用【】字节内存空间。
设有整形数组的定义inta[]=newint[8],则a.length的值为()。
Java设立了一种追踪图像加载过程的机制,实现这种机制有两种方法:一是使用【】类,另一种是实现ImageObserver接口。
数据库系统在其内部分为三级模式,即概念模式、内模式和外模式。其中,【】是用户的数据视图,也就是用户所见到的数据模式。
同一段程序可能产生不止一种异常,可以放置多个【】子句,其中每一种异常类型都将被检查,第一个与之匹配的就会被执行。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
publicThrowable(StringmessaSe)构造函数包含getMessage()方法,用来返回带参数构造函数创建异常时的参数内容,对无参数构造函数而言,用它返回的是【】。
随机试题
账务处理程序
Thisbookisfullofpractical______onhomedecoratingandrepairs.
下列关于可摘局部义齿模型上架,说法错误的是
()是诊断早孕的最敏感的方法。
某企业的产品销售具有很强的季节性。为平衡该企业的现金流,该企业应实行( )。
合同履行过程中,业主要求保护施工现场的一棵古树,为此,承包商自有一台塔吊累计停工2天。后又因工程师指令增加新的工作,需增加塔吊2个台班,已知台班单价1000元/台班,折旧费200元/台班,则承包商可提出的直接费补偿为()。
施工单位因建设单位拖欠工程款而出售其完成的工程项目,该行为被认定违法是基于施工单位不具有该项目的()。
某工程单代号网络计划中,工作G的最早开始时间为第18天,持续时间为5天,工作G有三项紧后工作,其最早开始时间分别为第28、30和32天,则工作G的自由时差是()天。
根据物权法律制度的规定,下列各项中,担保物权已经设立的有()。
Theperiodofadolescence,i.e.,theperiodbetweenchildhoodandadulthood,maybelongorshort,dependingonsocialexpectati
最新回复
(
0
)