编程我是个菜鸟,
一个循环里面,计算了压强、位移、速度等项目，如果位移符合了条件，就输出压强、位移、速度等项目，
如果位移不符合条件，下一个循环里，计算压强、位移、速度等项目时要引用上一个循环压强、位移、速度等项目的计算结果（计算压强、位移、速度的公式是相同的几个公式），请教各位大哥，这样的循环能不能实现？

[ 本帖最后由 hufl 于 2011-8-23 13:14 编辑 ]

肯定可以，符合全部归0重新开始，不符合保持什么也不做！用if...else then

谢谢您的回复,不过还是搞不懂.
比如速度,这一个循环的速度=上一个循环的速度+加速度*时间,
比如压强,(假设)这一个循环的压强=(上一个循环的位移+这一个循环的位移)*系数,


[ 本帖最后由 hufl 于 2011-8-23 15:05 编辑 ]

你的条件是什么？

Dim v  As Double = 0  '速度
Dim a  As Double = 2  '加速度
Dim s  As Double = 0  '位移
Dim p  As Double = 0  '压强
Dim f  As Double = 0.5  '系数

Do While s<1000  '假如终止条件是s>=1000 

v=v+a*1  '假如时间间隔是1s
s=s+...  '这个我不知道
p=s*f;

If(...)  '位移符合条件
Print p;
Print v;
Print s;
Else Then
v=0;
s=0;
p=0;
End If 

Loop

[ 本帖最后由 qq1023569223 于 2011-8-23 18:36 编辑 ]

有点清楚了,谢谢您