论坛 › UG后处理 › tcl语言从1加到100示例

724953778 发表于 2021-7-4 09:33:23

tcl语言从1加到100示例

set aa

set a 0
while {$a<100} {

incr a 1
lappend aa $a

}
puts $aa

foreach kk$aa {

if {} {

set wang

} else {

set wang $kk
}

}

puts $wang

查看完整版本: tcl语言从1加到100示例