[kapetang]

Καλημέρα στην παρέα

Για τη λύση του φίλου Μάριου, που κοίταξα, σημειώνω τα εξής:
1. Το πρόβλημα σε μεγάλες τιμές του δείγματος οφείλεται στη δήλωση κάποιων μεταβλητών.
Οι i και intAsked να δηλωθούν Long και αντί της Cint() να χρησιμοποιηθεί η Clng().
2. Ο αλγόριθμος μου φαίνεται λογικός, αλλά όταν ζήτησα δείγμα 50.000 ονομάτων, έβγαλε περίεργα αποτελέσματα. Πάντως την ιδέα τη βρίσκω πολύ έξυπνη, ίσως ομως έχει κάποιο πρόβλημα που δε γίνεται εύκολα αντιληπτό.
3. Η ταχύτητα μάλλον θα μπορούσε να βελτιωθεί , αν αντί της συνάρτησης DlookUP() , χρησιμοποιούνταν ένα RecordSet, μιας εγγραφής, με κριτήριο [onomaID] = randRecord.

Φιλικά/Γιώργος