怎样将一段数字中按指定方法进行修改?
怎样将一段数字中按指定下面的规律进行修改: 提出一段数字中的每个数,用10来减,然后将余数保存到原数字中,例如:16843 修改后变成 94267
[解决办法]
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.就好了
[解决办法]
?!~
呵呵
我说看着有点熟....
见了鬼了~~~
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 Function
Private 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
