数组最后一项移到最前，其他顺序往后移

发布时间：2020-12-16 22:16:26 所属栏目：大数据来源：网络整理

导读：下面是一个将数组最后一个值移到数组的最前项，其他项顺序往后移的样例程序。 Sub test() Dim arr(6) As Integer arr(0) = 1 arr(1) = 8 arr(2) = 23 arr(3) = 89 arr(4) = 120 arr(5) = 218 arr(6) = 256 Dim i As Integer Dim temp As Integer For i = 0 T

下面是一个将数组最后一个值移到数组的最前项，其他项顺序往后移的样例程序。

Sub test()

Dim arr(6) As Integer arr(0) = 1 arr(1) = 8 arr(2) = 23 arr(3) = 89 arr(4) = 120 arr(5) = 218 arr(6) = 256 Dim i As Integer Dim temp As Integer For i = 0 To 6 temp = arr(6) arr(6) = arr(i) arr(i) = temp Next End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!