Visual Basic-prosím o pomoc 4

[Krys]

Potreboval bych taky pomoc ve Visual Basicu.

1)Napište logickou funkci JeJude,která bude vracet TRUE,jestliže její parametr je sudé číslo

2)Programem vytvořte soubor „cisla.txt“ a zapište do něj 200 náhodných celých čísel v rozsahu -10 až 50.

3)Napište část programu,která vypisuje přirozená čísla od A do B,kde A a B jsou proměnné.

4)Napište část programu,která vytiskne zprávu,zda hodnota proměnné X je kladná,záporná nebo nulová.

5)Deklarujte proměnnou Jménu type String

6)Do dvou sloupců vypisujte tabulku funkce x2 pro x jdoucí od 0 do 10 s krkem 0.5.

7)Deklarujte pole A prvků typu Integer pro indexy od 1 do 50.

8)Napište proceduru ,která na formulář nakreslí obdélník s úhlopříčkami(libovolné velikosti)

9)Pomocí ovládacího prvku Timer a funkci Now ,Date, a Time naprogramujte digitální budík.

10)Proměnnou Cislo zvětšete o hodnotu proměnné X.


Předem děkuju za pomoc.

[€agle]

Co se nejdriv kouknout, jestli uz tu neco z toho neni vyreseneho (a ze je), nebo jestli se nekdo neptal na uplne to same?

[Krys]

Promin, porad mi tedy s timhle


1)Napište logickou funkci JeJude,která bude vracet TRUE,jestliže její parametr je sudé číslo


3)Napište část programu,která vypisuje přirozená čísla od A do B,kde A a B jsou proměnné.

7)Deklarujte pole A prvků typu Integer pro indexy od 1 do 50.

8)Napište proceduru ,která na formulář nakreslí obdélník s úhlopříčkami(libovolné velikosti)

9)Pomocí ovládacího prvku Timer a funkci Now ,Date, a Time naprogramujte digitální budík.

10)Proměnnou Cislo zvětšete o hodnotu proměnné X.

Dík

[€agle]

1.
private function JeSude(N as Integer) as boolean
if N/2 = int(N/2) then JeSude = true else JeSude = false
end function

3.
(listbox list1)
for i = A to B
listbox1.additem str(i)
next i

7.
dim A(1 to 50) as integer

8. (presne momentalne nevim)
deklarovat 6x Line a jejich X a Y nastavit tak, aby delaly obdelnik s uhloprickama

9. Nad tim se mi ted nechce premyslet

10.
Cislo = Cislo + X

[Krys]

Dekuju ti moc velmi si mi pomohl.
Obdivuju tvoje schopnosti.
Díííííík

[Krys]

Ale kdyby se ti chtelo nekdy nad tou 9 trochu zapremejslet tak napis ,ale jinak za vse dík

[Krys]

Za ten nový thread se omlouvám ,jestli mas na to oprávnění tak ho smaž.
Koukal jsem na všechny ostatní thready ale stejný příklady jako jsem napsal v minulem threadu jsem nenasel jsou si hodně podobný ale nejsou to voni.
Vim se te kazdej furt pta na to samy a je to unavujicí me by to taky uz nebavilo,ale buhuzel ten náš profesor to neumí vysvětlit a k tomu mu jeste nikdo nerozumí.

[€agle]

K tomu z toho druhyho threadu:
1.
private function RAD(cislo as integer) as string
dim l as integer
l = len(cislo)
select case len
case 1
RAD = "Jednotky"
case 2
RAD = "Desítky"
case 3
RAD = "Stovky"
case 4
RAD = "Tisíce"
case 5
RAD = "Desetitisíce"
end select
end function

2.
Na to uz mas v tomhle threadu odpoved, proc se ptas znovu?

3.
Line (500, 500)-(2000, 1000)
Line (500, 1000)-(2000, 500)
Line (500, 500)-(2000, 1000), , B

4.
Co si predstavujes pod pojmem cist prirozena cisla?

5.
(textbox text1)
open app.path & "cisla.txt" for input as #1
text1 = ""
dim s as string
do while not eof(1)
line input #1, s
text1.text = text1.text + str(s)
loop
close #1

6.
Ten budik si predstavujes konkretne jak?

[Krys]

Sám nevim pořádně co tím je mysleno.To budou nejspíš asi normální čísla od 1 do 20.
Budík uz ani nedelej myslím ze to uz stačí.

Tak to jsem zvedavej jak to dopadne pulka tridy tady byla,sranda by byla kdyby profesor sem zavítal.
Minuly pololetí s toho bylo pár 3 jinak samy 4 a nekolik i 5.

[€agle]

Sám nevim pořádně co tím je mysleno.To budou nejspíš asi normální čísla od 1 do 20.

Ja vim, co sou to prirozeny cisla, ale z toho zadani nechapu, co se s nima ma delat

[Krys]

To bude jako s temi hvězdičkami,prostě je jenom vypsat na formu

[€agle]

V tom pripade
for i = 1 to 20
print str(i)
next i