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
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 11:23:48
![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](/uploads/image/z/262916-44-6.jpg?t=VB%E6%89%93%E5%8D%B09%E6%A0%BC%E5%9B%BE%E5%BD%A21+%E7%84%B6%E5%90%8E%E5%86%8D%E8%BD%AC%E6%88%902+%EF%BC%881%EF%BC%891+2+3+%EF%BC%882%EF%BC%891+4+7+4+5+6+2+5+8+7+8+9+3+6+9%E8%BF%98%E6%9C%89%E6%89%93%E5%8D%B0%EF%BC%9A1+0+0+0+10+1+0+1+00+0+1+0+00+1+0+1+01+0+0+0+1%E6%89%93%E5%8D%B01+2+34+5+67+8+9%E5%86%8D%E8%BD%AC%E6%8D%A21+4+72+5+83+6+9)
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
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 1
0 1 0 1 0
0 0 1 0 0
0 1 0 1 0
1 0 0 0 1
打印
1 2 3
4 5 6
7 8 9
再转换
1 4 7
2 5 8
3 6 9
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
Next
Print
For i = 1 To 3
Print i;
For j = i + 3 To i + 6 Step 3
Print j;
Next
Print
Next
Print
For i = 1 To 5
For j = 1 To 5
If i = j Or i = 6 - j Then Print 1; Else Print 0;
Next
Print
Next
End Sub