Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Pienin & suurin luku

jamma85 [13.04.2003 18:59:12]

#

Onko visual basiciin valmista functiota millä pystyisi etsimään suurimman ja pienimmän luvun vaikka listboxista jossa on sekaisin lukuja.

Pystyykö / miten sitä voisi soveltaa daten kanssa tai yleensäkin 30:20:10 formaatin kanssa.

Antti Laaksonen [14.04.2003 00:46:01]

#

Tuskin VB valmista funktiota tähän sisältää mutta melko helposti homma onnistuu käymällä lista läpi kahden apumuuttujan kanssa:

Dim i As Integer, t As Integer
Dim suurin As Integer, pienin As Integer

'tyhjennetään lista ja lisätään sille 10 satunnaislukua
List1.Clear
Randomize Timer
For i = 1 To 10
    List1.AddItem Int(Rnd * 100) + 1
Next

'etsitään pienin ja suurin luku
suurin = List1.List(0)
pienin = List1.List(0)
For i = 0 To List1.ListCount - 1
    t = List1.List(i)
    If t > suurin Then suurin = t
    If t < pienin Then pienin = t
Next

'näytetään luvut
MsgBox "Suurin luku on " & suurin & " ja pienin luku on " & pienin

Date-muuttujia pystyy vertailemaan samalla tavalla kuin lukuja, joten eiköhän tuo niidenkin kanssa onnistu.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta