Private Function Ch(ByVal S As String)Dim C As StringSelect Case SCase "f"
C = "8"
Case "w"
C = "5"
'*********************
'仿照上面的形式
'在这里添加你类似的替换定义
Case Else
C = SEnd SelectCh = CEnd FunctionPrivate Function Change(ByVal StrA As String) As StringDim I As Integer...