IT rekvalifikace s garancí práce. Seniorní programátoři vydělávají až 160 000 Kč/měsíc a rekvalifikace je prvním krokem. Zjisti, jak na to!
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
UplneVedle
Člen
Avatar
UplneVedle:11.11.2021 16:24

Vycet celych cisel, ktery mam zakoncit zadanim 0. Krome jinych vypoctu mam urcit nejnizsi cislo (min). Ostatni vypocty chodi, ale neumim se zbavit 0 jako minima (nebo maxima, pokud zadavam jen zaporna cisla), jsem UplneVedle. Dekuji za pomoc :-)

Option Explicit
Sub main()
Dim cislo As Long, pocetCisel As Long, soucet As Long, min As Long, max As Long
Dim prumer As Double
Dim s As String

s = ""
min = cislo
max = cislo
cislo = InputBox("Zadej cele cislo:")

Do While cislo <> 0
s = s + Str(cislo) + ","
pocetCisel = pocetCisel + 1
soucet = soucet + cislo
prumer = Round(soucet / pocetCisel, 2)
If cislo > max Then max = cislo
cislo = InputBox("Zadej cele cislo [0=konec]")
Loop
MsgBox "Zadana cisla:" + s + Chr(10) + "Jejich pocet:" + Str(pocetCisel) + Chr(10) + "Jejich soucet:" + Str(soucet) + Chr(10) + "Jejich prumer: " + Str(prumer) + Chr(10) + "Nejnizsi cislo:" + Str(min) + Chr(10) + "Nejvyssi cislo:" + Str(max)

End Sub

Zkusil jsem: hrala jsem si ruzne s podminkama na zacatku a na konci cyklu, ale bezvysledne

Chci docílit: aby nula nebyla vy vyctu cisel, ale slouzila pouze k ukonceni vyctu cisel

 
Odpovědět
11.11.2021 16:24
Avatar
Alesh
Tvůrce
Avatar
Odpovídá na UplneVedle
Alesh:11.11.2021 18:03

Tak přeci musíš mít to pořadí takhle:

cislo = InputBox("Zadej cele cislo:")
min = cislo
max = cislo

Když to máš tak, jak to máš ty, tak se ti do min i max nastaví nuly, což jsou defaultní hodnoty číselných proměnných.

Akceptované řešení
+20 Zkušeností
+2,50 Kč
Řešení problému
 
Nahoru Odpovědět
11.11.2021 18:03
Avatar
UplneVedle
Člen
Avatar
Odpovídá na Alesh
UplneVedle:11.11.2021 18:26

oooo, dekuji krasne, hned mam hezky vecer. i tobe :-) k.

 
Nahoru Odpovědět
11.11.2021 18:26
Avatar
Matúš Olejník
Člen
Avatar
Odpovídá na UplneVedle
Matúš Olejník:11.11.2021 20:00

Aspoň označ jeho odpoveď ako riešenie tvojho problému

Nahoru Odpovědět
11.11.2021 20:00
/* I am not sure why this works but it fixes the problem */
Avatar
UplneVedle
Člen
Avatar
Odpovídá na Matúš Olejník
UplneVedle:11.11.2021 20:18

promin, jsem tu prvne

 
Nahoru Odpovědět
11.11.2021 20:18
Avatar
Matúš Olejník
Člen
Avatar
Odpovídá na UplneVedle
Matúš Olejník:11.11.2021 20:19

V pohode :) asi by mali niečo tvorcovia vymyslieť lebo málo ľudí označuje riešenia

Nahoru Odpovědět
11.11.2021 20:19
/* I am not sure why this works but it fixes the problem */
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 6 zpráv z 6.