Visual Basic - prosim o pomoc

[FasterFucker]

prosim o pomoc .. Dostali sme ve skole ukol ale Visual Basic me nikdy nebavil. Jesi se nejakej programator nudi pls pomozte. Mame 10 otazek a mame k nim napsat zdrojovy kod. Diky vsem za kazdou pomoc.

1.Naprogramujte pomoci rekurze funkci faktorial.

2.Napiste funkci RADA1, ktera bude scitat N clenu rady 1 + 1/2 + 1/4 + 1/8 + 1/16 ...

3.Napiste program, ktery otevre textovy soubor "text2.txt" pro zapis a zapise do nej prirozena cisla od 1 do 50.

4.Pomoci funkce InputBox nacitejte cela cisla, dokud uzivatel nezda cislo zaporne. Potom vytisknete kolik cisel bylo lichych a kolik sudych.

5.Napiste cast programu, ktera vytiskne zpravu, zda hodnota promenne X je kladna, zaporna nebo nulova.

6.Napiste fuknci PrvVel, ktera zmeni velka a mala pismena tak, ze prvni pismeno bude velke a ostatni mala.

7.Napiste program pro urceni N teho clenu posloupnosti 1,1,2,3,5,8,13,21,34...

8.Do dvou sloupcu vypisujte tabülku funkce X na druhou pro X jdouci od 0 do 10 s krokem po 0,5.

9.Napiste proceduru s parametry Kam As Object, X, Y, S, V, ktera na objekt Kam nakresli obdelnik s uhloprickami o sirce S a vysce V tak, ze levy horni roh obdelniku bude na pozici X a Y.

10.Napiste proceduru P1, ktera vytiskne N clenu posloupnosti 2,5,8,11,14,...

[k23]

a co je za problém?? vždyť to jsou jen algoritmy, to že to uděláš např. ve VB je jen o syntaxi nebo se mýlím?

btw. tím že si necháš od druhých úkol vyřešit se programovat nenaučíš

[FasterFucker]

no vis jde o to ze bych se i docela rad naucil jenze mame profesora Rusaka a poradne ani neumi cesky a cela trida nic nechape :-/

[€agle]

1.N = cislo, V = Vysledek

V=N
For i = N-1 to 1 step -1
V = V * N
Next i

2.

private function RADA1(N as integer)
for i = 1 to N
V = V + (1/(2 ^ N))
next i
end function

3.

open app.path & "\text2.txt" for output as #1
for i = 1 to 50
print #1, str(i)
next i
close #1

4.
sude as integer
liche as integer
do
zadej:
I = Inputbox("Zadej cislo:", "Zadej cislo", 0)
if I <> int(I) then MsgBox "Toto neni cele cislo!": goto zadej
if I/2 = int(I/2) then sude = sude + 1 else liche = liche + 1
loop while I >=0
MsgBox "Sude: " & str(sude) & " Liche: " & str(liche)

5.
select case X
case > 0
msgbox "Kladne"
case = 0
msgbox "Nula"
case < 0
msgbox "Zaporne"
end select


6.
private function PrvVel (Txt as string)
if asc(Mid(Txt,1,1)) > 96 then Mid(Txt,1,1) = chr(asc(Mid(Txt,1,1))-32)

for a = 1 to len(txt)
if asc(Mid(Txt,a,1)) < 96 then Mid(Txt,a,1) = chr(asc(Mid(Txt,1,1))+32)
next a
end function

7.

dim i(N) as integer
i(1) = 1
i(2) = 1
for a = 3 to N
i(a) = i(a-2) + i(a-1)
next a

8.

(listbox list1)
for a = 0 to 10 step .5
list1.additem str(a*a) & " " & str((a+5)*(a+5))
next a

9. sem nejak nepobral


10.

(textbox text1)
for a = 1 to N
text1.text = text1.text + str(-1+a*3)+ " "
next a

Je to narychlo sepsany, zadnej cistej kod mozna tam budou nejaky chyby, ale tak zakladni predstavu bys mel mit

[FasterFucker]

Moc díky Zachranil si me ...