# Prime calculation speed

**URL:** <https://forum.xojo.com/t/prime-calculation-speed/67936>\
**Category:** General\
**Created:** [January 12, 2022, 11:50am UTC](https://forum.xojo.com/t/prime-calculation-speed/67936 "2022-01-12T11:50:32Z")\
**Posts on this page:** 1\
**Showing post:** 7

<div class="post-metadata">

**Author:** ![MarkusR](https://forum.xojo.com/user_avatar/forum.xojo.com/markusr/32/685_2.png) [@MarkusR](https://forum.xojo.com/u/MarkusR)\
**Post date:** [January 12, 2022, 12:59pm UTC](https://forum.xojo.com/t/prime-calculation-speed/67936/7 "2022-01-12T12:59:26Z")

</div>

```auto
Dim start As Double = System.Ticks

Var TotalNumbers As Integer = 100000

NumListBox.RemoveAllRows
PrimeListBox.RemoveAllRows

Var TempNum(-1) As String
Var TempPrime(-1) As String

For i As Integer = 0 To TotalNumbers
  TempNum.AddRow(Str(I))
  If IsPrime(I) Then
    TempPrime.AddRow(Str(I))
  End If
Next

NumListBox.AddRows(TempNum)
PrimeListBox.AddRows(TempPrime)

Var elapsedSeconds As Double = (Ticks - start) / 60
MessageBox("Time: " + elapsedSeconds.ToString)

```

 ![Ashampoo_Snap_Mittwoch, 12. Januar 2022_13h58m29s_001_Untitled](https://forum.xojo.com/uploads/default/original/2X/4/472605d68df185cf40af009781366b29178b738c.png)

---

_[View the full topic](https://forum.xojo.com/t/prime-calculation-speed/67936)._