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

[king2003]

谢谢

[cbm6666]

【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 Sub

Private 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

[东方之珠]

不错