怎样将一段数字中按指定方法进行修改?

Question

怎样将一段数字中按指定下面的规律进行修改: 提出一段数字中的每个数,用10来减,然后将余数保存到原数字中,例如:16843  修改后变成 94267

Answer 1

var  str,str2:String;//定义变量
    i:integer;
begin
    str:='123456789';
    str2:='';
    for  i:=1  to length(str) do
    begin
    str2:=str2+IntToStr(10-StrToInt(str[i]));
    end;哦，这是DELPHI写的
转换成VB.就好了

Answer 2

?!~
呵呵
我说看着有点熟....见了鬼了~~~Private Function mGetString(ByVal mString As String) As String
Dim mIndex As Long, mStrLen As Long, mStrTemp As String
mStrLen = Len(mString)
For mIndex = 1 To mStrLen
    mStrTemp = mStrTemp & 10 - CLng(Mid(mString, mIndex, 1))
Next
mGetString = mStrTemp
End FunctionPrivate Sub Command1_Click()Debug.Print mGetString("123456789")
Debug.Print mGetStringEx("123456789")End Sub
Private Function mGetStringEx(ByVal mString As String) As String
Dim mIndex As Long, mStrLen As Long, mStrTemp As String
mStrLen = Len(mString)
mStrTemp = mString
For mIndex = 1 To mStrLen
    mStrTemp = Replace(mStrTemp, mIndex, Chr(106 - mIndex))
Next
For mIndex = 1 To mStrLen
    mStrTemp = Replace(mStrTemp, Chr(96 + mIndex), mIndex)
Next
mGetStringEx = mStrTemp
End Function