求一算法要求遍历GB2312中的所有汉字

Question

谢谢

Answer 1

【CBM666 的汉字列表】'添加Text1 Multiline要设为True Scrollbars自己也要加上Option Explicit
Dim i&, j&, aa$, a&
Private Sub Form_Load()
    Me.Width = 12000: Me.Height = 8000
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    Me.Caption = "CBM666的汉字列表"
    Text1.Move 0, 0, Me.Width - 200, Me.Height - 200
End SubPrivate Sub Form_Activate()
   Text1.FontSize = 14
   '**************************开始显示汉字
   aa = ""
   '用区与位得到汉字 区16-87 位01-94
   For i = 16 To 87
      For j = 1 To 94
         'DoEvents
         a = (i + 160) * &H100 + (j + 160)
         aa = aa & Chr(a)
      Next j
   Next i
   Text1.Text = aa
End Sub效果图:http://hiphotos.baidu.com/cbm666/pic/item/ec24fc039748758dd43f7c8f.jpg