帮我 ！ 急用进者有分， 解决问题的额外加分 在线等！！

[dragonloveboy]

有这样一个题：
将一个数的最后一位数放在第一位那么产生的新数为原数的二倍，那么怎么求这个数??

[cdknet]

这个数存不存在啊，哈哈哈，我都已经算到8位数了呀！！！

[zhjg2567]

最后一位数肯定不是0, 2*xMOD10=yMOD10 方程也列不出来，考虑考虑如果存在这个数，可能是一个二位数，算算再说

[dragonloveboy]

这个能算的最少也有18位
这是我用笔推出来的！
可怎么写程序我还没做也来！

[zhjg2567]

你在哪里得到问题，我现在也再想，这个数到底存在不存在，18 。。。。。位，啊啊啊啊啊！内存要炸了！

[dragonloveboy]

我的朋友问的
用笔能推出来！至小有6,7种
他知道我在学vb用问我能不能做当时我还以为简单，谁知道！要是做不出来就糗大了！

[lnhsgj]

没能得到公式，用循环试了试，试到了２０００万，用了我大约１０分钟的时间。哈哈，不能再试了。

[cdknet]

楼主的朋友真行啊，哈哈哈，18位？？？把循环条件改善一下应该会花的时间少的
内存怎么会炸啊？？？呵呵呵，月亮你也太怎么了吧？一个18位的数就把你的内存爆了？？不是吧，呵呵呵

只是vb中的long只支持32位整数咯，最大值 2,147,483,647

你只能在支持64位整数的系统上写了

[lnhsgj]

Private Sub Command2_Click()
Dim n As Long
For n = 11 To 20000000
a = LTrim(Str$(n))
b = Right(a, 1) & LTrim(Left(a, Len(a) - 1))
If Val(b) = 2 * Val(a) Then
Text1.Text = a
Exit For
End If
Next n
End Sub

用上面的代码试，我的机器要１０分钟左右，谁的机器快可以多试点。

[dragonloveboy]

求救@!

[fanqiezhang]

黑鹰兄的代码没有问题，我用我的机器试了一下，10分钟结果都没出来

[swed]

黑鹰兄果然,还你行

[luaiping]

黑鹰兄
haha我程序执行一段时间之后，没有响应，郁闷~

[sdata]

原数的倒数第2位为偶数！

[sdata]

原数的倒数第1位为奇数！

[sdata]

这个不对 “ 原数的倒数第1位为奇数！”

[dragonloveboy]

我都等了N天了没有人能做出来吗？？？？？

[lnhsgj]

用笔能推出来！至小有6,7种

你能告诉我们如何推出来的呀。
我也用笔推算了，没有结果。
我现在有点怀疑这题有没有正解。

如果你能说出一种结果，也许可以根据结果写出代码来的。

[飘零风]

咦，我今天还想发贴问问这个问题哦，同样的问题，咔咔。

[飘零风]

105263157894736842 * 2 = 210526315789473684
210526315789473684 * 2 = 421052631578947368
315789473684210526 * 2 = 631578947368421052
421052631578947368 * 2 = 842105263157894736

……
计算时间可以忽略不计。嘿嘿。
其实说穿了一文不值：

52631578947368421*19=999999999999999999
符合条件的数都是上边这个数的偶数倍。

[飘零风]

假设原数为A，末位提前后得到的数为B，A的末位数为M，那么B*10-A=M*99……99，也就是说A*19=M*99……99。那么只需要找出一个N，使10^N-1能整除19就行了。这是我编程的思路。

如果再进一步，想到0.9999……=1的话，计算就更简单：算出1/19的循环节。搞定。