Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

onverwacht resultaat (Opgelost)

verhaba - 07/12/2008 15:24

Lid

hallo iedereen ik heb een resultaat dat ik eigenlijk niet verwacht en vond het niet.

dit is mijn code:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                
    Sub Main()
        Dim count As Integer = 9
        Dim basevalue As Integer = 17
        Dim upperbound As Integer = count - 1
        Dim number(upperbound) As Integer

        Dim index As Integer
        For index = 0 To upperbound
            number(index) = basevalue * (index + 1)
            Console.Write(" " & number(index) & " ")
            index = index + 1
        Next
        Console.ReadLine()
    End Sub

            
Sub Main()
        Dim count As Integer = 9
        Dim basevalue As Integer = 17
        Dim upperbound As Integer = count - 1
        Dim number(upperbound) As Integer
 
        Dim index As Integer
        For index = 0 To upperbound
            number(index) = basevalue * (index + 1)
            Console.Write(" " & number(index) & " ")
            index = index + 1
        Next
        Console.ReadLine()
    End Sub
 

in plaats van "17 34 51 68 85 102 119 136 153" te krijgen krijg ik:
" 17 51 85 119 153".
Ik zie mijn (heel waarschijnlijk domme) fout niet in. Wie wel? Thx

2 antwoorden

Gesponsorde links

Abbas - 07/12/2008 15:43 (laatste wijziging 07/12/2008 15:44)

Crew .NET

Omdat je tweemaal de index verhoogt met 1, een keer bij number(index) = ... en de andere keer op het einde van de for-loop. En je kan het ook zonder array doen als je die array niet perse nodig hebt, door gewoon rechtstreeks het resultaat weg te schrijven in plaats van eerst de waarde in de array te steken en dan weg te schrijven. Maar hier is wat ook al werkt:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Sub Main()
    Dim count As Integer = 9
    Dim basevalue As Integer = 17
    Dim upperbound As Integer = count - 1
    Dim number(upperbound) As Integer

    Dim index As Integer
    For index = 0 To upperbound
        number(index) = basevalue * (index + 1)
        Console.Write(" " & number(index) & " ")
    Next
    Console.ReadLine()
End Sub
            
Sub Main()
    Dim count As Integer = 9
    Dim basevalue As Integer = 17
    Dim upperbound As Integer = count - 1
    Dim number(upperbound) As Integer
 
    Dim index As Integer
    For index = 0 To upperbound
        number(index) = basevalue * (index + 1)
        Console.Write(" " & number(index) & " ")
    Next
    Console.ReadLine()
End Sub
 

Veel succes!

verhaba - 07/12/2008 18:15
Lid		het is een oefening op een array, dus we hebben 'm wel nodig. idd, het is wat je zegt. Ik verhoog de index altijd met twee, via de for next lus en via index +=1. Ik had moeten weten dat via de fornext de index ook al verhoogde. Wist ik dus niet (meer)... Bedankt voor je snel antwoord.

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten