計算 pi
其實是 VB6,暫時先歸類到 vb.net 好了
程式內容:
method1是分開算的,加法和減法分開,最後加在一起,
method2是原本的
最後有列印出,計數method1和method2的計算時間…
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | Private Sub Form_Load() Dim pi As Variant Dim i As Long 'Single Dim j As Variant Dim k As Variant Dim Start, Finish, TotalTime pi = 0 j = 0 k = 0 If (MsgBox("Press Yes to start for pi calculation", 4)) = vbYes Then '=============method1(divide calculate)==================== Start = Timer For i = 0 To 10000000 '2147483646 j = j + CDec(1 / (4 * i + 1)) Next i For i = 1 To 10000000 k = k - CDec(1 / (4 * i - 1)) Next i pi = j + k pi = 4 * CDec(pi) Finish = Timer TotalTime = Finish - Start Debug.Print "method1:" & pi Debug.Print "method1 time:" & TotalTime '=============method2(original)==================== pi = 0 Start = Timer For i = 0 To 20000000 '2147483646 pi = pi + CDec(1 / (2 * i + 1) * (-1) ^ i) Next i pi = 4 * CDec(pi) Finish = Timer TotalTime = Finish - Start Debug.Print "method2:" & pi Debug.Print "method2 time:" & TotalTime Else End End If End Sub |