Visual Basic 2003, Primtal

Prøv i access kategorien, der sidder nogle rigtig gode vb'ere!~)

I excel VBA

Private Sub CommandButton1_Click()
Dim T As Integer, U As Integer, Primtal As Boolean
ListBox1.Clear
For T = ScrollBar1.Value To ScrollBar2.Value
Primtal = True
For U = 2 To T - 1
If T Mod U = 0 Then
Primtal = False
Exit For
End If
Next
If Primtal Then ListBox1.AddItem T
Next

End Sub

Vil du have sendt et helt program der kan det?

Du kan downloade et lille program, der gør præcis det du beder om her
http://www.syix.com/wpsjr1/primes.html

skulle selv lave programmet...

Jamen var det ikke også det du bad om hjælp til?
Hvordan havde du forestillet dig, der skulle hjælpes?