Pomoc oko Visual Basica

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zamolio bih Vas za pomoc oko pisanja programa tj zadatka u Visual Basicu.
Zadatak glasi:Napišite program koji će ispisati u Excel tabeli sve trocifrene brojeve {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).
Potrebno mi je zbog faxa zarad dodatnih bodova.
Hvala!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kakva ti je pomoć potrebna? Gde si zapeo?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa problem je u tome sto nikad nisam radio do sada Visual Basic,nije da nisam upoznat sa njim posto bih ipak trebalo da znam osnovu neku za pisanja programa,sto znaci da sam u praksi slab,a profesor ocekuje da mu dostavim resen zadatak do vikenda pa sam malo u problemu..
Pa bih zato zamoli Vas ,da ako znate i upoznati ste sa Basicom da mi ispisete program,kao malu ispomoc. Very Happy
A inace sam preuzeo teoriju sa sajta Tutorijali.org i odatle ucim. Smile
Bio bih vam zahvalan.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

To što ti tražiš se ne zove pomoć. Elem, ako već ne znaš da uradiš zadatak, onda ni ne treba da ga radiš. Ti zadaci za dodatne poene su zato i osmišljeni, da ih urade oni koji malo bolje znaju ili oni koji se malo više trude.

Ako hoćeš da poslušaš, imam jedan savet - probaj da sam uradiš to, pa koliko se snađeš. Možda nećeš dobiti dodatne poene, ali ćeš zasigurno naučiti nešto korisno, a to ti mnogo više vredi od poena. Kad dođeš dotle, odnosno kad pokažeš da si se dovoljno potrudio i sam, i kad stvarno zapneš na nekom konkretnom problemu, onda ćemo da pomognemo.

• 2Ovo se svidja korisnicima: drummer, coa93
  
  Registruj se da bi pohvalio/la poruku!

Mene bas zivo zanima ko to daje zadatke nekome ko nema blage veze sa programiranjem ili tog nekog bolelo uvo da uci pa sad kad je povuci potegni daj MC forum

To bi isto bilo kao kad bi profesor iz nuklerne fizike dao meni c# i php programeru zadatak sa temom " Navedite i objasnite sve oblike beta raspada i njihove Q vrijednosti" meni koji ja nemam plage veze sa time

Čudni neki profesori

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da razumem sta hocete da kazete.Zato sam probao sam da uradim zadatak ali imam gresku stalno,i ako mozete da mi kazete sto mi ne radi program da ispravim tu gresku u kodu.
Option Explicit Sub main() Dim prviBroj As Integer Dim drugiBroj As Integer Dim treciiBroj As Integer j = 0 For i = 10 To 90 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
Ne znam kako da lepo izdefinisem niz pa sam probao nesto ovako,inace broj 10 treba da bude najmanji a 90 najveci s kojim se mnozi 11,zato sto 10*11 je 110 a to je najmanji trocifreni,a 90*11 je 990 a to je najveci trocifreni.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa daj okači i tekst te greške koju dobijaš.

Inače, šta misliš o tome da izbegneš množenje? Ako već obrađuješ svaki 11. broj počev od 110 do 990, što jednostavno brojač petlje na početku ne inicijalizuješ na 110, a korak petlje postaviš da bude 11?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Citat:
što jednostavno brojač petlje na početku ne inicijalizuješ na 110,

Uze mi rec iz usta