Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Recent content by codeworm
-
Vampire numbers
CLS : 'Computes the 156 6-digit vampire numbers FOR t1 = 100 TO 999 FOR t2 = t1 TO 999 FOR i = 0 TO 9: k%(i) = 0: NEXT i t = t1 * t2 IF t > 99999 THEN cntTOT = cntTOT + 1 s$ = RIGHT$(STR$(t1), 3) + RIGHT$(STR$(t2), 3) FOR i = 1 TO 6 v = VAL(MID$(s$, i, 1)): k%(v) = k%(v) + 1 NEXT i... -
