To the 9's
Code: Select all
'A little trick with numbers.. I learned on a TV science show.
'You make a 3 digit number then reverse it , and put the bigger number first.
'Then you subtract.
'The center value will always equal 9 , and the outer 2 numbers , will always add up to 9
dim as string n1 = right( "000" + str( int( rnd * 1000 ) ) , 3 )
dim as string n2 = mid( n1 , 3 , 1 ) + mid( n1 , 2 , 1 ) + mid( n1 , 1 , 1 )
if n1 > n2 then swap n1 , n2
dim as string n3 = right( "000" + str( val( n2 ) - val( n1 ) ) , 3 )
loop until inkey = chr( 27 )
If you have any "Number Tricks" you can post them here....