一个六位数最高位是一，将一移到个位数的右边，使所得的数是原来的3倍怎么做？

142857
设后五位数为X，3*（100000+X）=10X+1
X=42857

一楼的是对的,顶一下噢!

上面说的是对的，是142857
我用vb的代码写出，：
Private Sub Command1_Click()
fn = FreeFile
Open App.Path & "\dd.txt" For Output As #fn
Dim i As Long
Dim ii As String
For i = 100000 To 199999
DoEvents
ii = Trim(Right(Str(i), Len(Str(i)) - 2) & "1")
If (Val(ii) / 3 = i) And (Val(ii) Mod 3 = 0) Then
Print #fn, i
End If
Next
Command1.Caption = "ok"
End Sub