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/12/24 10:36:09
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