汉字视力表 无法成功调试

Question

在网上看见这段代码的截图（详见图1），感觉很有意思，自己想尝试实现一下，但是不知道什么原因一直调试不出来。请问代码哪里有问题吗？我觉得第五行那里ch1和ch2颜色没变绿可能有些问题（详见图2），我试着把它上面的双引号去掉（详见图3），这样它们就变绿了，但是还是没有成功调试。请问什么地方有问题吗？谢谢！（最后附上代码）

图1

图2

图3

代码

 printCharTable[{ch1_, ch2_}，d_] := (
  w = 40; h = 8; wr = RandomInteger[{1, w}]; 
  hr = RandomInteger[{1, h}];
  t = Join[Table[StringJoin[Table[ch1, {w}]], {h}]];
  t[[hr]] = StringReplacePart[t[[1]], ch2, {wr, wr}];
  t = Prepend[t, "在" ~~ ch1 ~~ "中找到" ~~ ch2 ~~ "视力=" ~~ ToString[d]]; 
  Print[Style[StringJoin[Riffle[t, "\n"] ], TextAlignment -> Center,
    FontSize ->  12, FontFamily -> "Tahoma" ]] ;)
Print[Style["汉字视力表\n(cc) matrix67.com\n", TextAlignment ->  Center, 
  FontSize -> 18, FontFamily -> "Tahoma"]]
printCharTable[{"亮", "壳"}, 0.2] 
printCharTable[{"免", "兔"}, 0.4]
printCharTable[{"呜", "鸣"}, 0.6]
printCharTable[{"竞", "竟"}, 0.8]
printCharTable[{"束", "東"}, 1.0]
printCharTable[{"己", "已"}, 1.2]

Answer 1

http://www.doc88.com/p-8022280916802.html