dim a(5)for i=1 to 5a(i)=inexta(1)=tfor i =2 to 5a(i-1)=a(i)

dim a(5)
for i=1 to 5
a(i)=i
next
a(1)=t
for i =2 to 5
a(i-1)=a(i)
next
a(i-1)=t
for i=1 to 5
print a(i)
next
结果是2-3-4-5-1为什么最后一个是1呢.
我歆飞扬 1年前 已收到1个回答 举报

我的狗狗睡着了 春芽

共回答了22个问题采纳率:95.5% 举报

我理解题目的用意是:将1,2,3,4,5 数组的第1个元数移到最后,重新显示.我修改的代码如下:Private Sub Command1_Click()
Dim a(5)
For i = 1 To 5
a(i) = i
Next
t = a(1)
For i = 2 To 5
a(i - 1) = a(i)
Next
a(5) = t
For i = 1 To 5
Print a(i)
Next
End Sub 运行结果如下图所示:

1年前

4
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.048 s. - webmaster@yulucn.com