什么七龙珠vb做一个ascii转汉字的程序第1个回答:百度网友a120e382013-07-07TA获

第1个回答:

百度网友a120e382013-07-07TA获得超过1108个赞关注您好，代码如下：Private Sub cmdConvert_Click()    Dim varBefore, varAscii    Dim strBefore   As String    Dim strAfter    As String        Const CharacterSeparator As String = "/"        strBefore = Trim$(txtBefore.Text)        If strBefore <> vbNullString Then        If strBefore Like "*" & CharacterSeparator & "*" Then            varBefore = Split(strBefore, CharacterSeparator)                        For Each varAscii In varBefore                If varAscii <> vbNullString Then                    If IsNumeric(varAscii) Then                        strAfter = strAfter & Chr$(varAscii)                    End If                End If            Next                        txtAfter.Text = strAfter        End If    End IfEnd Sub运行效果：