Question

按键精灵电脑版数组问题？

初始数组a=(1,5,9,14,21)，当b=1，则移除a的上下标即a=(5,9,14)，下次循环b再为1则a=(9)，b再为1，则a又返回到初始状态(1,5,9,14,21)，若b=0，则增加一个数组元素即a=(1,5,9,14,21,22)，b的值0和1是不断无规律变化的。

Answer 1

根据你的要求写了一下代码给你参考，希望能帮到你
b=0//改变B的值0和1测试
a=Array(1,5,9,14,21)
初始化a=a
//前面数据，后面调用运算，也就是从下面开始循环
If b=1
If UBound(a)<=1
a=初始化a
End If
ReDim c(UBound(a)-2)
For i=1 to UBound(a)-1
c(i-1)=a(i)
Next
Elseif b=0
ReDim c(UBound(a)+1)
For i=0 to UBound(a)
c(i)=a(i)
Next
c(i)=22
End If
ReDim a(UBound(c))
a=c
//下面为测试验证代码是否正确
For i=0 to UBound(a)
MessageBox a(i)
Next