自动生成诗词比赛用九宫格或十二宫格

旁听苏豪兄与惠云师商讨怎样制作诗词比赛用的九宫格时忍不住多嘴了一句——“用程序自动生成很简单啊”，立马就被抓了差，后悔都来不及 

那就先把实现过程表达清楚吧：

将“诗词大赛”文件中的各行存入“诗词大赛”数组

创建Word文档

for i = 0 to ubound(“诗词大赛”)中的每一行

    if 五言

        格子数 = 9

        字数 = 5

    elseif 七言

        格子数 = 12

        字数 = 7

    else

        continue

    按格子数创建“宫格”数组

    for j = 1 to 格子数

        随机取不等于i的行号

        在该行中取一个异于第i行的字存入“宫格”数组

    for j = 1 to 字数

        于[1,格子数]内取不同的随机数，用第j个字取代该位置的字

    把九宫格或十二宫格加入Word文档

刚开始想用Python实现，所以表达方式类Python语言，百度“如何在Word文档中加入表格”，被告知Python在Word操作上不灵光，只好转向vb，也将算法表达风格切换到类vb语言了。