/ VS.NET

計算 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