Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
' Analisi Cinquine Frequenti (Sorte Terno) su tutte le 55 coppie di ruote
' Scansione globale e automatica
' Ricerca globale sui 90 numeri ottimizzata tramite scansione inversa
Sub Main
Dim IniAnno, FinAnno, nMese, MinFre
' Parametri di input
IniAnno = CInt(InputBox("Inserisci...
Sub Main
Dim IniAnno, FinAnno, nMese, MinFre
' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese =...
' =================================================================================
' Script: Ricerca Automatica Trapezio Ciclometrico (Tutte le Ruote)
' Note: Il listato scansiona automaticamente tutte le ruote per individuare
' la condizione del trapezio e calcolare lo sviluppo...
Sub Main()
Dim rt(1), nu(2), ru(2), n3(3), ptt(3), ptt_ambetto(3)
' Definizione Poste: Ambo e Terno
ptt(2) = 1 : ptt(3) = 1
' Definizione Posta per Ambetto
ptt_ambetto(2) = 1
aa = InputBox("Digita Ambo Spia (separato da un punto)", "AMBO SPIA", "33.66")
aa =...