PCTuning fórum

Lidi moc Vás prosím o pomoc z programka.
Vim že už sem asi desátej, ale přesto Vás prosím o pomoc.
Snažil sem se aby se ty příklady neopakovaly.
Tady sou:

1. Pomocí funkcí Dir a Shell naprogramujte test nové pošty se spouštěním programu PMAIL.
2. Pomocí funkce InputBox načítejte čísla, dokud uživatel nezadá nulu. Potom vytiskněte
3. Napište proceduru MAXIMUM2, která ve svých parametrech vrátí
největší prvek z pole P a jeho index.
4. Napište proceduru CISLA, která vytiskne všechna dvojcifemá čísla
neobsahující nulu a za každým číslem vytiskne též číslo s opačným
pořadím cifer. Začátek tedy bude vypadat takto: 11,11,12,21,13,31,14,
41,15, ...
5. Pomocí standardní funkc0 InputBox vyzvete uživatele, aby zadal číslo
mezi 1 a 10 a načítejte tak dlouho, dokud uživatel tento pokyn nesplní
(Tj. načítáni ihned opakujeme pokud je číslo například větší než deset).

No tak to je snad vše:-)
Diky moc všem za pomoc

1. Jako u vsech pred tebou - z toho zadani se neda pochopit, co to ma delat

2.
dim s as string
dim i as integer
do
i = inputbox("Zadej cislo:")
s = s + str(i)
if i = 0 then msgbox(s):exit do
loop

3.
(N = velikost pole)
private function MAXIMUM2(P() as integer,N as integer, Max as integer, MaxP as integer)
for i = 0 to N
if P(i) > Max then Max = P(i), MaxP = i
next i
end function

4. viz. http://forum.pctuning.cz/viewtopic.php?t=38482

5.
dim i as integer
do
i = inputbox("Zadej cislo:")
if i > 1 and i < 10 then exit do
loop