Kirjautuminen
Tehtävät
Kilpailu
5. kierros:
28.11. klo 18 – 30.11. klo 23
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.
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 " & pieninDate-muuttujia pystyy vertailemaan samalla tavalla kuin lukuja, joten eiköhän tuo niidenkin kanssa onnistu.
Aihe on jo aika vanha, joten et voi enää vastata siihen.