12×12のマスにランダムにアルファベットを表示する(3)

それでは具体的なコードを示そう。以下の通りだ。

Jump(1,4,2)

For %Y = 1 To 12
　　　　　　For %X = 1 To 12
　　　　　　　　　　　Randomize(ThisTime())
　　　　　　　　　　　%num = Int(Rand() * 26) + 97
　　　　　　　　　　　Insert( Char(%num))
　　　　　　　　　　　if %X < 12 Then
　　　　　　　　　　　　　　RightCell()
　　　　　　　　　　　End If
　　　　　　Next
　　　　　　DownCell
　　　　　　LeftCell(11)

Next

サンプルファイルのマクロ「Main」を実行すると12×12のマスに

ランダムにアルファベットが表示される。

尚、繰り返して「Main」を実行するときはあらかじめ12×12の

マスに表示されているアルファベットを削除しておく。

サンプルファイルを用意したので

下からDLして欲しい。

WORD_FIND01_1.lzhをダウンロード