用tcl脚本写一个打印九九乘法表

好的，以下是tcl脚本实现九九乘法表的代码：

set i 1
while {$i <= 9} {
set j 1
while {$j <= $i} {
set result [expr $i*$j]
puts "${j}*${i}=${result}\t"
incr j
}
puts "\n"
incr i
}

使用方法：将代码复制到任意文本编辑器中，将文件保存为 .tcl 格式，然后在 tcl 解释器中运行该文件即可。