apua kaivataan

Tein esimerkiksi tälläisen.
Tiedostossa numerot.txt on rivejä, joilla voi olla numero 1...9.
Esim.
1
2
3
3
3
3
4
4
5
5
5

Sitten ohjelma:
'************************************************
Dim numero As Integer
Dim laskuri(10) As Integer
Dim s As Integer

Open "C:\numerot.txt" For Input As #1

Do While Not EOF(1)

Input #1, numero
laskuri(numero) = laskuri(numero) 1

Loop
Close

For s = 1 To 9
Print "numero " & s & " esiintyy " & laskuri(s) & " kertaa"
Next s
'************************************************


Jos luvut ovat isompia kuin 10, tuo määrittely täytyy tehdä vastaavasti, vaikka
Dim laskuri(100) As Integer.

Jos rivillä on muuta kuin yksi luku, esim.
1 2 3, homma ei toimi noin, menee hieman monimutkaisemmaksi.