SW笨笨 wrote:
dim i as interger '声明变量
dim j as interger '声明step
i=A '负初值
j=1 '负初值
……
do while 结束条件
i=i+j '变量变化
if i=A or i=B then j=j*(-1) '判断变化方向
……要执行的语句
loop
笨笨现在手头没有VB,有可能跟C高混,不过原理一样
欢迎光临 iCAx开思网 (https://www.icax.org/) | Powered by Discuz! X3.3 |