首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。 Private Sub
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。 Private Sub
admin
2012-03-22
73
问题
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text输入。例如数组各元素的值依次为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(LBound(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(Text1.Text)
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/uUhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()Dima(3,3)Fori=1To3
编写如下事件过程:PrivateSubForm_Click()k=2Ifk>=1ThenA=3Ifk>=2ThenA=2Ifk>=3ThenA=1PrintAEn
下面叙述正确的是______。
在窗体上画一个命令按钮,然后编写下列程序: PrivateSubCommand12_Click() Tt3 EndSub SubTt(aAsInteger) StaticXAsInteger X=X*a+
如果要设计一个多窗体程序时,要设计一个封面窗体(名称(Name)为FormCover,标题(Caption为“多媒体演示”),其内部的各控件及其属性见下表。 则设计出的窗体可能是
下述关于数据库系统的叙述中正确的是
表达式3^2Modl4\2^3的值是
表达式3^2Mod36\2^5的值是【】
随机试题
下列关于硬盘的说法错误的是________。
下列说法正确的是()
癫痫病人做脑电图检查可以
关于枕先露的分娩机制,正确的是
乙公司2012年6月30日银行存款日记账余额为149300元,银行发来的对账单余额为162500元。经核对发现以下未达账项:①委托银行代收的销货款8000元,银行已收到入账,但企业尚未收到银行收款通知书。②企业于月末交存银行的转账支票16400元,银行
期货交易所应当及时发布价格预测信息。()
2007年,中国人民银行加大了宏观金融调控的力度,灵活运用货币政策工具:第一,运用公开市场操作,2007年累计发行央行票据4.07万亿,其中对商业银行定向发行的3年期央行票据5.550亿;第二,适时运用存款准备金率工具,年内共上调人民币存款准备金率10次;
2020年1月1日,某公司为规避所持有纤维板的公允价值变动风险,决定在期货市场上建立套期保值头寸,并指定期货合约X为2020年上半年纤维板价格变化引起的公允价值变动风险的套期。期货合约X的标的资产与被套期项目纤维板在数量、质次、价格变动和产地方面相同。20
Shynessisthecauseofmuchunhappinessforagreatmanypeople.Shypeopleareanxiousandself-conscious;thatis,theyaree
Mind-controlledCarsA)AcarinGermanycanbesteeredwiththoughtalone.RoseEvelethasksitsdriverandhisteamaboutthev
最新回复
(
0
)