如何在VB.Net中使用与biginteger相当的indexof（）？

我想总结一个非常大的数字。我得到的数字长度为
l = answer.bitLength()但我无法弄清楚如何使用For循环增加每个数字。有任何想法吗？我正在使用java.math.biginteger。如何在VB.Net中使用与biginteger相当的indexof（）？

Visual Studio 2005的2.0版

我还要补充一点，我似乎无法使用<>或任何与我使用的BigInteger的简单的数学选项。如果有人能告诉我如何使用不同的大整数，我会更愿意交换。

Dim answer As java.math.BigInteger 
Dim sum As Integer = 0 
Dim x As Integer 
Dim i As Integer 
'Sets value of answer equal to 1 
answer = java.math.BigInteger.valueOf(1) 

'gets 100! 
For i = 1 To 100 
answer = answer.multiply(java.math.BigInteger.valueOf(i)) 
Next 

'gets length of answer 
Dim l As Integer 
l = answer.bitLength() 

'Sums up digits in 100! 
For x = 0 To l - 1 
'Need to pull each character here to add them all up 
Next

总结数字的最终解决方案。感谢togoghe。

Dim r As Integer 
Dim s As Integer 
s = 0 
While (answer.compareTo(java.math.BigInteger.valueOf(0)) > 0) 

r = answer.mod(java.math.BigInteger.valueOf(10)).ToString() 
s = s + r 
answer = answer.divide(java.math.BigInteger.valueOf(10)) 

End While

来源

2011-01-25 Bryan

你试过了什么？你能发表你想要做什么的伪代码吗？ – Oded 2011-01-25 20:56:21

没有`System.Numerics.BigInteger`的`bitLength`（甚至是`BitLength`）成员。你确定你没有考虑Java吗？ – LukeH 2011-01-25 21:01:52

像这样的东西应该工作：

Dim bi As New System.Numerics.BigInteger(12345) 
    Dim c As Char 
    Dim s As Long 

    s = 0 

    For Each c In bi.ToString() 
     s = s + Integer.Parse(c.ToString()) 
    Next

或使用国防部和/（整数除法）

Dim bi As New System.Numerics.BigInteger(12345) 
    Dim s As Long 
    Dim r As Integer 

    s = 0 

    While bi <> 0 
     r = bi Mod 10 
     s = s + r 
     bi = bi/10 
    End While

来源

2011-01-25 21:05:43 wageoghe

如果你想的那样的二进制字符的列表中的号码，那么你就可以得到由AND最低显著十六进制数字荷兰国际集团的数量与0xF。如果您然后将数字右移4位（>> 4），则可以得到下一个十六进制数字。

当你得到所有的十六进制数字，你可以总结它们，然后convert them to decimal。

来源

2011-01-25 20:59:52 Davidann

另一种方法，这更为方便的方法，就是做以下（假定answer是正数）：

int sum = 0; 
while(answer > 0){ 
    sum += answer % 10; 
    answer /= 10; 
}

来源

2011-01-25 21:07:34 Davidann

如何在VB.Net中使用与biginteger相当的indexof（）？

回答

相关问题