放置两个Text，一个Button


Private Sub Command1_Click()


Dim a As String
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1)
If Asc(a) > 0 Then
If a = Chr(10) Then
Text2.Text = Text2.Text + vbCrLf
End If
a = ""
Text2.Text = Text2.Text + a
Else
Text2.Text = Text2.Text + a
End If
Next
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

那是。如果一个汉字一个汉字的判断那就等着死机吧

今天放出那个TMED GSC的时候因为汉化没法把字写全了从口袋吧整全中文汉化时突发奇想想出来的这个小东西

引用:

原帖由 深红喷火龙 于 2008-9-11 13:21 发表
汉字asc传回小于零的值吗？

VB确实是这样的

不信试试Msgbox Asc("最")