quadratura numeri uguali

[gamberorosso]

ciao come si trovano i numeri uguali' mi serve sapere la funzione non il listato grazie
Quadratura con i numeri ordine numerico :
16 46 So1 30 Sv1 12
88 58 So2 30 Sv2 18
come si fa a scrivere la somma uguale della quadratura.
x=so1=so2
g=sv1=sv2
mi viene fuori vero o falso.... a me servirebbe che scrivesse il numero uguale provato anche cosi:
If soo1=soo2 Then gg=soo1 :If svv1=svv2 Then gg=svv1
scrivi gg
anche in altre maniere ma non mi funziona grazie

 

[Mike58]

Ciao Gamberorosso, giusto per incoraggiarti e per premiare la buona volontà, la soluzione è abbastanza semplice.
leggi le poche righe e soluzioni e vedrai che era + semplice del previsto.

Sub Main
	somma1 = 30
	somma2 = 30
	If somma1 = somma2 Then Scrivi "SCRIVI SOMMA UGUALE TROVATA...." & somma1
	'---------------------------------------------------------------------------
	somma3 = 30
	somma4 = 45
	If somma3 = somma4 Then
		Scrivi "SCRIVI SOMMA UGUALE TROVATA...." & somma3
	Else
		ColoreTesto 2
		Scrivi "NESSUNA SOMMA TROVATA"
	End If
	'---------------------------------------------------------------------------
End Sub

 

[gamberorosso]

Grazie mike58 per la seconda volta buona domenica