在网上看见这段代码的截图(详见图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]