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