2 heihaaxiao bing heihaaxiao_bing 于 2017.09.04 15:01 提问

汉字视力表 无法成功调试

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

图1
图1

图2
图2

图3
图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]

3个回答

devmiao
devmiao   Ds   Rxr 2017.09.05 00:16
devmiao
devmiao   Ds   Rxr 2017.09.05 00:16
devmiao
devmiao   Ds   Rxr 2017.10.06 23:57
Csdn user default icon
上传中...
上传图片
插入图片