求高手解答 循环
首先在窗体上放一个BUTTON控件
在BUTTON控件内 写下如下代码
Dim A As Integer() = {8000, 2000, 4000, 500, 6000, 3000, 1000} /定义的一维数组
dim b as integer
d2210_set_profile(0, 800, 1000, 0.4, 0.4) 控制卡的函数，设定 马达运动的速度和加减速时间
d2210_t_pmove(0, A(b), 1) 控制卡的函数，设定运行的距离和运动模式
d2210_check_done(0) = 0或1 控制卡的函数，如果等于0说明在运行状态，不能给A(b)赋值。如果等于1说明是在停止状态，可以给A(b)赋值。
我是想d2210_t_pmove(0, A(b), 1)函数连续运行， A(b）的值分别为{8000, 2000, 4000, 500, 6000, 3000, 1000}
希望各位帮我用循环写个小程序。
谢谢各位了

[解决办法]

VB.NET code

 Dim A As Integer() = {8000, 2000, 4000, 500, 6000, 3000, 1000} '/定义的一维数组  dim b as integer=0  d2210_set_profile(0, 800, 1000, 0.4, 0.4) '控制卡的函数，设定 马达运动的速度和加减速时间     do while b<A.lengthif  d2210_check_done(0) = 1 then d2210_t_pmove(0, A(b), 1)b+=1end ifloop