Error in Functions in QBASIC

Here without function_Title "Qbasic64"
Screen _NewImage(700, 740, 256)
_Delay .25
_ScreenMove 20, 30

Dim terno(60)
For i = 1 To 60
   terno(i) = 0
Next i
dezenas$ = "071940074042153542154042151942154042071935193542193542154042151935071542073540153542071535071940071940071519071542071940071540151935151935354042193540193540"
For i = 1 To Len(dezenas$) Step 2
   dezena$ = Mid$(dezenas$, i, 2)
   dezena = Val(dezena$)
   terno(dezena) = terno(dezena) + 1
Next i
For i = 1 To 50
   If terno(i) > 0 Then
       Print "Dez "; TS2$(i); " h  "; TS2$(terno(i)); " repetidas"
   End If
Next i
Function TS2$ (nn As Long)
   TS2$ = Right$("00" + LTrim$(Str$(nn)), 2)
End Function


AP is correct, you don't need array

_Title "carlos code fix"
Screen _NewImage(700, 600, 32)
_ScreenMove 20, 30

d$ = "071940074042153542154042151942154042071935193542193542154042151935071542073540153542071535071940071940071519071542071940071540151935151935354042193540193540"
For i% = 1 To 50
   count = ContarRepeticoes%(i%, d$)
   If count <> 0 Then Print i%, count
Next i%
Function ContarRepeticoes% (dez, dezenas$)
   For I% = 1 To Len(dezenas$) Step 2
       If Val(Mid$(dezenas$, I%, 2)) = dez Then Contar% = Contar% + 1
   Next
   ContarRepeticoes% = Contar%
End Function


also it might good idea NOT to call the function with the same variable names you used to define the function (you only need that in GOSUBs)
that is the beauty of functions and subs, once they are working you can use them in any program without worry of matching variable names in main code.

also we are using QB64 and would be good idea not to call anything here Qbasic with or without the 64, QBasic was DOS stuff.

Once again, thank you immensely, Bplus. Your example was perfect, just the way I wanted. I will be careful not to use the title 'QBasic' anymore. Thanks for the contribution!"

Carlos