いつもお世話になります。
今回もよろしくお願いします。

kousiでの塗りつぶしを以下のようにしたのですが，
これらも，\Forや\Iforなどを使うとすっきりとできるでしょうか？
もう少し簡単にできるかを知りたいのですが，よろしくお願いします。

\documentclass{jsarticle}
\usepackage{emathP}
\begin{document}
%%%\begin{figure}[htbp]
\begin{zahyou*}[ul=8mm](0,3)(0,3)
\Nuritubusi{(0,0)(1,0)(1,1)(0,1)}
%\Nuritubusi{(2,2)(3,2)(3,3)(2,3)}%
%\Nuritubusi{(2,1)(3,1)(3,2)(2,2)}%
\Nuritubusi{(2,1)(3,1)(3,3)(2,3)}%
\kousi{3}{3}%
\Put{(0.5,2.5)}[c]{A}
\Put{(1.5,2.5)}[c]{B}
\Put{(2.5,2.5)}[c]{C}
\Put{(0.5,1.5)}[c]{D}
\Put{(1.5,1.5)}[c]{E}
\Put{(2.5,1.5)}[c]{F}
\Put{(0.5,0.5)}[c]{G}
\Put{(1.5,0.5)}[c]{H}
\Put{(2.5,0.5)}[c]{I}
%\zahyouMemori[g]
\end{zahyou*}
%%%\caption{a}
%%%\end{figure}
\end{document} 

▼関連発言
│
└◆1840:kousiでの塗りつぶし [genio] 09/30 00:49
　├◆1841:Re:kousiでの塗りつぶし [飯島　徹] 09/30 07:12
　│└◆1842:--- [---] 09/30 07:24
　└◆1843:Re:kousiでの塗りつぶし [tDB] 09/30 20:03
　　└◆1844:Re[2]:kousiでの塗りつぶし [田中徹] 09/30 21:27
　　　└◆1845:Re[3]:kousiでの塗りつぶし [tDB] 09/30 23:11
　　　　└◆1846:Re[4]:kousiでの塗りつぶし [飯島　徹] 09/30 23:40
　　　　　└◆1847:Re[5]:kousiでの塗りつぶし [genio] 10/01 16:40<-last