VB编程实现一维数组A(10)中数组元素循环向右移动一个位置
答案:2 悬赏:50 手机版
解决时间 2021-03-30 18:31
- 提问者网友：锁深秋
- 2021-03-30 07:41
VB编程实现一维数组A(10)中数组元素循环向右移动一个位置
最佳答案
- 五星知识达人网友：長槍戰八方
- 2021-03-30 08:37
for i=10 to 0 step -1
if i>0 then
if i=10 then temp=a(10)
a(i)=a(i)-1
else
if i=0 then a(0)=temp
endif
next
数组元素循环向右移动一个位置,最后一个位置,移动到最前面(左)
if i>0 then
if i=10 then temp=a(10)
a(i)=a(i)-1
else
if i=0 then a(0)=temp
endif
next
数组元素循环向右移动一个位置,最后一个位置,移动到最前面(左)
全部回答
- 1楼网友：孤老序
- 2021-03-30 09:34
Private Sub Command1_Click()
Dim i%, t%
Dim a(10) As Integer
For i = 1 To 10
a(i) = Rnd * 100
Next
t = a(10)
For i = 10 To 2 Step -1
a(i) = a(i - 1)
Next
a(1) = t
End Sub
Dim i%, t%
Dim a(10) As Integer
For i = 1 To 10
a(i) = Rnd * 100
Next
t = a(10)
For i = 10 To 2 Step -1
a(i) = a(i - 1)
Next
a(1) = t
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯