看图编写VB国际象棋棋盘

dim i%,j%
For i =0 to 7
For j=0 to 7
If (i+j) mod 2 =0 then
Print chr(219)+chr(219);
Else
Print " ";
End if
Next
Print
Next

---