特别关注,字模显示!

Question

先用Print方法在PictureBox上写出文字
再循环读取像素，得到字模

Answer 1

print "上"
For i = 0 To ll
 d% = 0
 For j = 0 To 7
  c% = Form1.Point(i, j) Mod 256
  
  If c% = 0 Then
    d% = d% + 2 ^ j
   End If
 Next j
Next iFor i = 0 To ll
 d% = 0
 For j = 8 To 15
  c% = Form1.Point(i, j) Mod 256
  If c% = 0 Then
    d% = d% + 2 ^ (j - 8)
  End If
 Next j
Next i