vb 将一个数据系列最后一个元素移动到第一个位置其他元素依次移动

发布网友发布时间：2024-10-20 13:43

共2个回答

热心网友时间：2024-11-14 16:07

Private Function ReSort(ByVal strExp As String, intR As Integer)
Dim str As String
str = strExp
ReSort = Right(str, intR) & Mid(str, 1, Len(str) - intR)

End Function

Private Sub Command1_Click()
Debug.Print ReSort("2 8 3 5 4 7", 1)
End Sub

热心网友时间：2024-11-14 16:08

对数组a(n)操作
x=a(n)
for i=0 to n-1
a(i+1)=a(i)
next
a(0)=x

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com