UG爱好者

标题: tcl语言从1加到100示例 [打印本页]

作者: 724953778 时间: 2021-7-4 09:33
标题: tcl语言从1加到100示例
set aa [list]

set a 0
while {$a<100} {

incr a 1
lappend aa $a

}
puts $aa

foreach kk $aa {

if {[info exists wang]} {

set wang [expr $wang+$kk]

} else {

set wang $kk
}

}

puts $wang