Question

我想用文本框中的数字替换字母并在另一个测试框中显示结果。不知道如何实现这一点。请帮忙。

Private Sub Form_Load()
txtID.Text = "a s d f"
txtSerial.Text = txtID.Text
End Sub

Private Sub cmdGet_Click()
Dim i as Integer
fsID = UCase(Replace(txtID.Text, " ", ""))   ' Remove all spaces '
For i = 1 To Len(fsID) 
ch = Mid(fsID, i, 1)        
               '    Decoder                        '
Next                                 
End Sub

Private Sub Decoder()
Select Case ch
    Case "A"
        txtSerial.Text = Replace(txtID.Text, "A", "0")
    Case "B"
        txtSerial.Text = Replace(txtID.Text, "B", "1")
    Case "H"
        txtSerial.Text = Replace(txtID.Text, "H", "2")
    Case "E"
        txtSerial.Text = Replace(txtID.Text, "E", "3")
    Case "M"
        txtSerial.Text = Replace(txtID.Text, "M", "4")
    Case "N"
        txtSerial.Text = Replace(txtID.Text, "N", "5")
    Case "T"
        txtSerial.Text = Replace(txtID.Text, "T", "6")
    Case "I"
        txtSerial.Text = Replace(txtID.Text, "I", "7")
    Case "P"
        txtSerial.Text = Replace(txtID.Text, "P", "8")
    Case "R"
        txtSerial.Text = Replace(txtID.Text, "R", "9")
    End Select

   End Sub

Answer 1

我不明白你想要什么。这样做了吗？



Private Sub Form_Load()
    txtID.Text = "a s d f"
    txtSerial.Text = txtID.Text
End Sub

Private Sub cmdGet_Click()
    txtSerial.Text = UCase(txtID.Text)
    txtSerial.Text = Replace(txtSerial.Text, "A", "0")
    txtSerial.Text = Replace(txtSerial.Text, "B", "1")
    txtSerial.Text = Replace(txtSerial.Text, "H", "2")
    txtSerial.Text = Replace(txtSerial.Text, "E", "3")
    txtSerial.Text = Replace(txtSerial.Text, "M", "4")
    txtSerial.Text = Replace(txtSerial.Text, "N", "5")
    txtSerial.Text = Replace(txtSerial.Text, "T", "6")
    txtSerial.Text = Replace(txtSerial.Text, "I", "7")
    txtSerial.Text = Replace(txtSerial.Text, "P", "8")
    txtSerial.Text = Replace(txtSerial.Text, "R", "9")
    txtSerial.Text = Replace(txtSerial.Text, " ", "")
End Sub

更改文字字符

1 个答案: