Potřebuju nutně pomoct s VB :-( :-(

[jaras.28]

Prosim o pomoc s otazkami na VB:

2. Napiste funkci RADA2, která bude scitat N clenu řady 1-1/2+1/3-1/4+1/5-1/6+1/7-...
4. Naprogramujte funkci AVG (average - prumer), která má třiparametry a vrací jejich aritmetický průměr.
6. napište program, kteryvyresi nasledujiciulohu. najdete vsechna ctyrciferna cisla, ktera maji tuto vlastnost: Když odečítame od mysleného ctyrciferneho cisla jeho zrcadlovy obraz dostaneme cislo 7362.
8. napiste funkci RadToDeg, ktera prevede hodnotu uhlu zadaneho v radianech na stupne.
9.napiste logickou funkci OBSAHUJE, která vrátí true, pokud pole P obsahuje prvek,ktery je parametrem funkce OBSAHUJE
10. Napiste cast programu, ktera vypise 10 nasobku cisla N, kde N je promena

Prosim pomozte uz se s tim seru od stredy a nemuzu s tim hnout nektere jsem zvladl ale s tmeahle si fakt nevim rady prosim nechci delat opravky

[€agle]

2.
Private Function RADA2(N As Integer) As Single
Dim i As Integer
Dim o As Single
Dim p As Boolean
Do
i = i + 1
If p = True Then p = False Else p = True
If p = True Then o = o + 1 / i Else o = o - 1 / i
Loop While i < N
RADA2 = o
End Function

4.
private function AVG(a as single, b as single, c as single) as single
AVG = (a+b+c)/3
end function

6. uz tu nekde nevyreseny je... Pockej si na reseni v tom druhym threadu

8.
const PI = 3.14

private function RadToDeg (r as single) as integer
RadToDeg = r * (PI / 180)
end function

9.
(N = velikost pole)
private function OBSAHUJE(pr as single) as boolean
for i = 1 to N
if P(i) = pr then OBSAHUJE = true:exit for
next i
end function


10.
for i = 1 to 10
print str(N * i)
next i


A priste kdyz ti moderator zamkne thread a odkaze te na stranky, kde by ses tohle v pohode naucil, tak to neznamena, ze si po pul hodine zalozis ten samej

[jaras.28]

Moc dekuji