我有这个整数。 A = 6位数字的100002,我想在中间添加2个额外的0,因此它可以是8位数字的整数。
结果= 10000002
我该怎么做?
答案 0 :(得分:4)
您可以将数字分为左右两部分。然后将零添加到左侧,然后放回右侧。
100002-> 100 [左侧] 002 [右侧]
Dim number As Integer = 100002
Dim rightSide As Integer = number Mod 1000
Dim leftSide As Integer = number - rightSide
leftSide *= 100 ' Add zeros
Dim newNumber As Integer = leftSide + rightSide
这样,123456将变成12300456。
答案 1 :(得分:1)
有许多不同的答案方法,这意味着您的问题可能不够具体,无法获得所需的答案。例如,the_lotus的答案当然是正确的(也是一种更实际的解决方案)。但是,此解决方案也将以最简单的方式产生您指定的结果,方法是将2减去100,然后再加上2:
Result = (A - 2) * 100 + 2
由于这两种非常不同的方法都可以解决您提出的问题,因此您可能需要更仔细地提出问题。例如,如果您要使用100002以外的数字(您尚未说过要这样做),则此解决方案当然不允许这样做。如果您想要一个适用于六位数以外数字的解决方案,那么the_lotus的解决方案在所有情况下都将不允许。