Dim i As Double
Dim j As Double
Dim pi As Double
Dim aantal As Double


Private Sub Combo1_Click()

If Combo1.ListIndex = 1 Then aantal = 15000
If Combo1.ListIndex = 1 Then aantal = 100000
If Combo1.ListIndex = 1 Then aantal = 500000
If Combo1.ListIndex = 1 Then aantal = 10000000
If Combo1.ListIndex = 1 Then aantal = 100000000

End Sub

Private Sub Command1_Click()

i = 0
j = 2
pi = 2

Open "C:\test.txt" For Output As #1

Text1.Text = "Bezig met benchmark ..."

For n = 1 To aantal

i = i + 2
j = i * i
j = j / (j - 1)
pi = pi * j

Print #1, pi

Next n

Close #1

Open "C:\test2.txt" For Output As #1
Print #1, pi
Close #1


Text1.Text = pi

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub exit_Click()
End
End Sub


Private Sub Form_load()
Combo1.AddItem "10 000" '1
Combo1.AddItem "100 000" '2
Combo1.AddItem "1 000 000" '3
Combo1.AddItem "10 000 000" '4

End Sub