imam jedan zadatk i muci me evo vec par dana nešto čačkam al nikako da ga završim izbaci mi najčešće neki eror "run time error 424" i object reqiured !!!!!!!
zadatak glasi ovako:
Napravite program koji se pokreće na klikom na dugme.
Učitajte preko inputboxa ili preko textboxa proizvoljan realan broj X.
Izračunati vrijednost funkcije Y = (zbi - x) *x (sve pod korijenom)
Gdje je zbi zadnji broj indeksa (ukoliko je nula onda s euzima 10)
rezultat prikazati u jednom textboxu.
evo kako sam ja pokušavao al mi izbacuje gore navaednei error
dim x as integer
dim zbi as integer
dim y as double
x = val(inputbox("Unesite realan broj","unos podataka"))
zbi = val(inputbox("Unesite zadnji broj indeksa","unos podataka"))
If (zbi-x) > 0 Then
Y = sqr (zbi - x)*x
else if (zbi-x)<0
x1 = sqr (x-zbi)
else
msgbox "funkcija nema resenja "
end if
text1.text = x1
text1.visibile = true
unapred hvala na pomoći !!!!!!!
[Ovu poruku je menjao Aleksandar Vasic dana 30.05.2009. u 13:00 GMT+1]