Kaže zadatak "koliko ima dvojki u niz brojeva 1 do 280?"
i u excelu upisem ja 1 fo 280 u sheet1 A1 do A280 i napisem programcic
Sub dvojke2()
Dim dvojke As String
For i = 1 To 280
dvojke = dvojke & CStr(Worksheets("sheet1").Range("A" & CStr(i)).Value)
Next i
Count = 0
MsgBox Len(dvojke)
For i = 1 To Len(dvojke)
If (Mid$(dvojke, i, 1) = "2") Then
Count = Count + 1
End If
Next i
MsgBox "Dvojki u nizu ima " & Count
End Sub
I riješenje bi trebalo biti 139, i tip nazove i kaže 139 i dobije 5kkn
A ja moralnu zadovoljštinu i 0kkn. Doduše nisam niti zvao jer je vjerojatno vrlo teško uopće dobiti liniju.