如下
***** * ***** ******
* * * * *
* * * ****** ******
* * * * *
***** * ****** ******
對應 0 1 2 3
uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim y As Long
Dim x As Long
Dim c As Long
Dim h As Long
Dim w As Long
Form1.ScaleMode = 3 'Pixel
Form1.Print "0123";
h = 12
w = 6
For c = 0 To 3
For y = 0 To h - 1
For x = 0 To w - 1
If Form1.Point(c * w + x, y) = 0 Then
Form1.CurrentX = 25 + ((c * w) + x) * 8
Form1.CurrentY = 15 + y * 8
Form1.Print "*";
End If
Next
Next
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/102479.html
標籤：VB基礎類