乘幂算法求高手

@chengd222

Option Explicit
Private number As String
Private numberArr() As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Multi(num As Long)
Dim i As Long
For i = 0 To UBound(numberArr)
numberArr(i) = numberArr(i) * num
Next
For i = 0 To UBound(numberArr)
CarryArr
Next
End Sub
Public Sub setValue(num As Long)
Dim strArr() As String
Dim i As Long
number = CStr(num)
strArr = Split(CStr(number))
ReDim numberArr(0 To UBound(strArr))
For i = 0 To UBound(strArr)
numberArr(i) = Val(strArr(i))
Next
End Sub
Public Sub CarryArr()
Dim i As Long
For i = 0 To UBound(numberArr)
Do
If numberArr(i) >= 10 Then
If i = UBound(numberArr) Then ReDim Preserve numberArr(0 To UBound(numberArr) + 1)
numberArr(i + 1) = numberArr(i + 1) + 1
numberArr(i) = numberArr(i) - 10
Else
Exit Do
End If
Loop
Next
End Sub
Public Function ToString() As String
Dim i As Long
ToString = Space(UBound(numberArr) + 1)
For i = 0 To UBound(numberArr)
Mid(ToString, i + 1, 1) = CStr(numberArr(i))
Next
ToString = StrReverse(ToString)
End Function
Public Function EnumBits() As Long
Dim i As Long
For i = 0 To UBound(numberArr)
EnumBits = EnumBits + numberArr(i)
Next
End Function
Private Sub Form_Load()
Dim t As Long
Dim i As Long
t = GetTickCount()
setValue 2
For i = 2 To 1000
Multi 2
Next
Label1.Caption = "Time:" & GetTickCount - t & " Value:" & EnumBits
End Sub
源码如上

C#一句话搞定…
@Miss_ZYN

还有一种写法

@Miss_ZYN

大家这是在打擂么？凑个热闹啊：2^10000

代码如下：
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Paint()
Dim data(400) As Long, n As Long, i As Long, m As Long, j As Long, k As Long
Dim r As Long, t As Long, p As Long
p = GetTickCount()
n = 1
data(1) = 1
m = 10000
For i = 1 To m
k = 0
For j = 1 To n
data(j) = data(j) + data(j) + k
If data(j) >= 100000000 Then
k = 1
data(j) = data(j) - 100000000
Else
k = 0
End If
Next
If k = 1 Then
n = n + 1
data(n) = 1
End If
Next
r = 0
For i = 1 To n
t = data(i)
While t <> 0
r = r + t Mod 10
t = t \ 10
Wend
Next
Print r
Print GetTickCount() - p
End Sub

应该是最后计算的时候还有的优化吧。不想了。嘿嘿……

代码不用改，优化一下VB的编译选项就可以了：