dotNETportal.cz

Zdravím, ve VB jsem úplným začátečníkem (student SŠ) a potřeboval bych poradit. Za úkol mám simulovat hru dostihy kde je dráha realizována textovou formou ( pro 4 koně), je celkem 8 polí a do 4 z nich se eviduje historie házení kostkou (která se náhodně generuje ale dá se také ručně korigovat) a na požádání ji mám vypsat (program pracuje jak má jen bych chtěl upravit vypisování historie). Ovšem při vypisování mi to vypíše celé pole a většinou není ani celé pole vyplněné a odentrovat x MSgboxů které vyplivnou jen nulu je otravné. Dá se to nějak udělat aby mi to vypsalo z pole jen hodnoty které jsou větší než 1 a nejlépe za sebou do jednoho MsgBoxu ?

 Dim polef(20) As Integer

        Try
            For i = 0 To polef.Length - 1
                MsgBox(polef(i))
            Next
        Catch ex As Exception
            MsgBox("Stala se chyba!")
        End Try

Nebo ještě o malikno čtivěji

MsgBox(String.Join(",", (polef.Where(Function(x) (x > 1))).ToArray))

Děkuji, vše funguje jak má.