Question

vb6.0中如何提取Textbox中的字母和数字，（例：A21B3C）并且字母变为数字相加求和，求代码，多谢

Answer 1

提取字母和数字简单 但是字母变为数字要怎么变?根据什么规则？

Answer 2

怎么将字母变为数字？是求字母的ascii码吗？

追问

指定的数字，如A=3,B=8

追答

好吧 稍等下

追问

指定的数字，如A=3,B=8

追答

        Dim dstc As Integer
        Dim dststr As String = "A21B3"
        Dim sum As Integer = 0
        For i = 1 To Len(dststr)
            dstc = Asc(Mid(dststr, i, 1))
            If dstc >= 48 And dstc <= 57 Then
                sum = sum + Val(Chr(dstc))
            End If
            If dstc >= 97 And dstc <= 122 Then
                If dstc = 97 Then
                    sum = sum + 3
                End If
                If dstc = 98 Then
                    sum = sum + 8
                End If
            End If
            If dstc >= 65 And dstc <= 90 Then
                If dstc = 65 Then
                    sum = sum + 3
                End If
                If dstc = 66 Then
                    sum = sum + 8
                End If
            End If
        Next

        TextBox6.Text = sum

追问

非常感谢，麻烦再问一下，如果求A21B3的字母和数字的和呢

追答

输入是dststr，你把你的字符串赋值给它就可以了；
sum就是输出的和，