26/04/11 20:57
tullio1995
Module Module1
Sub Main()
Dim a As Long
Console.WriteLine("1")
Console.WriteLine("2")
Console.WriteLine("3")
Console.WriteLine("5")
Console.WriteLine("7")
Console.WriteLine("11")
Console.WriteLine("13")
Console.WriteLine("17")
Console.WriteLine("19")
For a = 1 To 100 'questo è il numero da cambiare
If a Mod 2 <> 0 Then
If a Mod 3 <> 0 Then
If a Mod 4 <> 0 Then
If a Mod 5 <> 0 Then
If a Mod 7 <> 0 Then
If a Mod 11 <> 0 Then
If a Mod 13 <> 0 Then
If a Mod 17 <> 0 Then
If a Mod 19 <> 0 Then
Console.WriteLine(a)
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Console.ReadLine()
End Sub
End Module
con questo source in visual basic sono riuscito a trovare questo numero "9999991". poi ho controllato i numeri fino a 1000 e sono giusti. funziona
.(è una console application se volete provarlo). per aumetere il campo di ricerca del numero bisogna inserire il numero dove volete che si fermi il programma. mi raccomando a non uscire dal compo "Long" (+9220000000000000000)
aaa
