问创建带有foreach循环的按钮，并在tcl中通过单击按钮将参数传递给过程。

EN

set cord_y 25
foreach {x but_name arg1 arg2} {1 button-1 val1 val2 2 button-2 val3 val4 3 button-3 val4 val5 4 button-4 val6 val7 5 button-5 val8 val9} {
    button $a.$x -text $but_name -command {print $arg1 $arg2}
    place $a.$x -x 20 -y $cord_y -width 80 -height 25
    
    set cord_y [expr $cord_y+35]
    }

proc print {i j} {
    puts "$i--$j"
    }