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.
Option Explicit
Sub Main
Dim x,y
Dim a(10),b(10)
x = InputBox("Inserire numero")
If Primo(x) Then
Scrivi "" & x & " " & "" & "SI..è un numero primo!",1,1,5,3,5,5
Else
Scrivi "" & x & " " & "" & "NO..non è numero primo!",1,1,5,7,5,5
End If...
Option Explicit
Sub Main
Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14
Dim A1,A2,A3,A4,A5,A6,A7,A8,A9
Dim B1,B2,B3,B4,B5,B6,B7,B8,B9
Dim ES,Nx,Tx,LARGHEZZE,I,N
Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
Nx = InputBox("Inserire numero",,0)
For N = Nx To Nx...
x Salvo,
il problema rimane sempre come impostare nella tabella i divisori con i numeri primi
es,
numero 84
84:2
42:2
21:3
7:7
1
lo script fa solo le divisioni con i numeri primi ma non li mette in colonna e a scalare le divisioni
es, se la divisione da sempre un numero pari si deve fare sempre...
Ciao Salvo50,
vorrei fare una unica tabella con tutte le divisioni con i numeri primi,
Cinzia e brava a scrivere le formule con gli script per suddividere ogni numero
ma non sa come si deve scrivere una tabella..
le divisioni con i numeri primi si fanno in questo modo
si inizia con la divisione...
Option Explicit
Sub Main
Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14
Dim A1,A2,A3,A4,A5,A6,A7,A8,A9
Dim B1,B2,B3,B4,B5,B6,B7,B8,B9
Dim ES,Nx,Tx,LARGHEZZE,I,N
Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
Nx = InputBox("Inserire numero",,0)
For N = Nx To Nx...
questa tabella inquadra tutte le figure sui numeri estratti su ogni ruota..
e seleziona ogni numero estratto nel loro gruppo ,89,90,91,
es, il 50 e nel gruppo 91
91-50=41
1)gruppo 1.4.7. (89)
2)gruppo 2.5.8. (91)
3)gruppo 3.6.9. (90)
Cinzia queste tabelle devi imparare a scriverle..
se scrivo questa tabella es, scrivo una serie in decina 20 lo script fa tutte le divisioni su ogni numero..
ma il problema e come fare una divisione su un numero singolo e solo con i numeri primi..
scrivere questa tabella e facilissima e si possono scrivere diverse serie di numeri
serie in...
Cinzia qua non si tratta che ti devo imparare passo passo lo script
mi devi dire come si fa a scrivere nello script con ELSE tutti i passaggi che devono fare i numeri primi
e l'altro problema e se si scrive un numero primo lo script si deve fermare non deve continuare a scrivere..
If Primo(A1) = True Then S1 = A1
dimmi come si deve scrivere questa riga di comando sui numeri primi
cosi va bene oppure no
A1 e il numero che si scrive in inputbox, quindi se e vero che e primo scrivi S1 = A1
e infatti se scrivo il 17 scrive nella tabella
17:17
1
ma ce un altro problema...
questo script che ai scritto forse si potrebbe includere nello script ma come si deve scrivere..
questo e il problema..
questi sono i numeri primi quindi se si scrive es, il 29 nella tabella dovrebbe scrivere
29:29
1
Cinzia devi imparare a fare queste tabelle, te sei piu brava di me e potresti fare molto di piu..
alla fine ho messo lo script e non lo so se qualcuno alla fine riuscirà a sistemare quella tabella..
conosci i numeri satelliti..la risposta e no..a roma si dice ma che te lo dico a fa..
vedi nello...