VB打印9格图形1 然后再转成2 （1）1 2 3 （2）1 4 7 4 5 6 2 5 8 7 8 9 3 6 9还有打印：1 0 0 0 10 1 0 1 00 0 1 0 00 1 0 1 01 0 0 0 1打印1 2 34 5 67 8 9再转换1 4 72 5 83 6 9
网友回答
‘自己拆分一下,我写在一起了：
Private Sub Command1_Click()
Dim i As Integer,j As Integer
For i = 1 To 9
Print i;
If i Mod 3 = 0 Then Print
NextPrintFor i = 1 To 3
Print i;
For j = i + 3 To i + 6 Step 3
Print j;
NextPrintNextPrintFor i = 1 To 5
For j = 1 To 5
If i = j Or i = 6 - j Then Print 1; Else Print 0;
NextPrintNextEnd Sub