Question

vb做一个ascii转汉字的程序

把text1的多组ascii码（用/隔开）转换成相应的字符

Answer 1

您好，

代码如下：

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 If
End Sub

运行效果：

Answer 2

Private Sub Command1_Click()
Dim a As Variant
a = Split(Text1, "/")
For i = 0 To UBound(a)
Print Chr(Val(a(i))),
Next
End Sub

Answer 3

Private Sub Command1_Click()
    Dim k() As String
    If Text1.Text <> "" Then
    
    k = Split(Text1.Text, "/")
        If UBound(k) >= 0 Then
            Text1.Text = ""
            
            For i = 0 To UBound(k)
                If Check1.Value Then
                     Text1.Text = Text1.Text & Chr(Val("&H" & Trim(k(i))))
                Else
                    If IsNumeric(k(i)) Then Text1.Text = Text1.Text & Chr(Val(k(i)))
                
                End If
                 
            Next i
        End If
    End If
    
End Sub