想把数组：0，1，2，3，4，5 变为：1，2，3，4，5
Function 算法_删除数组首元素(str)
Dim tempstr
tempstr = str
For i = 1 To UBound(tempstr)
str(i - 1) = tempstr(i)
Next
//打印
For o = 0 To UBound(str)
TracePrint str(o)
Next
End Function
这是我的实现，不过这样得到的是1，2，3，4，5，5，求改进
更正下问题 ：vbs中如何实现删除一个数组的首元素,相应地也把数组长度缩小一位
第1个回答 2013-03-11
你的方法是错误的，你只是把值的第n个元素的数组变化已成为第n +1个元素的值，数组的数量并不会改变。
函数算法_删除数组元素（STR）
昏暗的tempstr
tempstr = STR
对于i = 1 UBound函数（STR）
如果i = 1，那么...... /> tempstr =的STR（一）
其他
tempstr = tempstr＆“| | |”＆STR（我）
tempstr =分裂（tempstr，“| | |“）
/ /打印
对于o = 0 UBound函数（STR）
TracePrint STR（O）
下一步
端功能
函数算法_删除数组元素（STR）
昏暗的tempstr
tempstr = STR
对于i = 1 UBound函数（STR）
如果i = 1，那么...... /> tempstr =的STR（一）
其他
tempstr = tempstr＆“| | |”＆STR（我）
tempstr =分裂（tempstr，“| | |“）
/ /打印
对于o = 0 UBound函数（STR）
TracePrint STR（O）
下一步
端功能
第2个回答 2013-03-06
你的方法是错误的，你只是把数组的第n个元素的值改变成了第n+1个元素的值，数组的数量并没有变化。
Function 算法_删除数组首元素(str)
Dim tempstr
tempstr = str
For i = 1 To UBound(str)
if i = 1 then
tempstr=str(i)
else
tempstr=tempstr & "|||" & str(i)
Next
tempstr=split(tempstr,"|||")
//打印
For o = 0 To UBound(str)
TracePrint str(o)
Next
End Function
Function 算法_删除数组首元素(str)
Dim tempstr
tempstr = str
For i = 1 To UBound(str)
if i = 1 then
tempstr=str(i)
else
tempstr=tempstr & "|||" & str(i)
Next
tempstr=split(tempstr,"|||")
//打印
For o = 0 To UBound(str)
TracePrint str(o)
Next
End Function
