Zamolio bih vas da ako znate da mi pomognete da resim gresku u kodu. 
Ili ako vi imate bolju ideju za pisanje koda bilo bi pozeljno da je izlozite(kod).
Option Explicit
Sub main()
Dim prviBroj As Integer
Dim drugiBroj As Integer
Dim treciiBroj As Integer
j = 0
For i = 0 To 91 Step 1
i = i + 1
Next i
ni = i * 11
prviBroj = ni Mod 10
drugiBroj = (ni Mod 100) \ 10
treciBroj = ni \ 100
If (prviBroj * prviBroj + drugiBroj * drugiBroj + treciBroj * treciiBroj <> i) Then
ActiveSheet.Cells(j, 4) = ni
End If
End Sub
Kod koji sam izlozio je za zadatak:
Napišite program koji ce ispisati u Excelu sve trocifrene brojevi {N1,N2, ...Ni, ... NX} koji su deljivi sa 11. '' Svaki broj Ni u tom skupu mora da ima zbir kvadrata svojih cifara = Ni/11. (jedan za drugim bez razmaka u redovima)
Ili ako vi imate bolju ideju za pisanje koda bilo bi pozeljno da je izlozite(kod).
Option Explicit
Sub main()
Dim prviBroj As Integer
Dim drugiBroj As Integer
Dim treciiBroj As Integer
j = 0
For i = 0 To 91 Step 1
i = i + 1
Next i
ni = i * 11
prviBroj = ni Mod 10
drugiBroj = (ni Mod 100) \ 10
treciBroj = ni \ 100
If (prviBroj * prviBroj + drugiBroj * drugiBroj + treciBroj * treciiBroj <> i) Then
ActiveSheet.Cells(j, 4) = ni
End If
End Sub
Kod koji sam izlozio je za zadatak:
Napišite program koji ce ispisati u Excelu sve trocifrene brojevi {N1,N2, ...Ni, ... NX} koji su deljivi sa 11. '' Svaki broj Ni u tom skupu mora da ima zbir kvadrata svojih cifara = Ni/11. (jedan za drugim bez razmaka u redovima)