FOR循环和incr(04)

讲解：

incr x 和 set x [expr $x + 1] 达到一样的效果，向上加一

x

例子：011_for.tcl

for {puts "Start"; set i 0} {$i < 2} {incr i; puts "I after incr: $i"; } {   ;#第一部分只执行一次,后面两部分每次循环都会执行

puts "I inside first loop: $i"

  }

 for {puts "Start"; set i 3} {$i < 2} {incr i; puts "I after incr: $i"; } {    ;#不会执行循环体中的命令

puts "I inside second loop: $i"

  }

puts "Start"; set i 0;

while {$i < 2} {

puts "I inside first loop: $i"

incr i;

puts "I after incr: $i";

  }