Archief - [PROG] Visual Basic HELP !!!!

* Definieer variabelen (N, I, V)
* Vraag een geheel getal (N) tussen 0 en 200
* Controleer het getal
* Laat een teller (I) lopen van 0 tot ...
Do
Veelvoud (V) = I * N
I = I + 1

While (V < 200)

* Bij die loop laat je het getal telkens afdrukken,
als je wilt kun je die ook in een tabel steken (maar die tabel gebruik je hier nu toch niet ? :s)

Sub Main()
        Dim waarde, veelvoud As Integer
        Dim teller As Integer = 0

      

        Do
            Console.WriteLine("geef waarde in:")
            waarde = Console.ReadLine
            For teller = 0 To 10 '(of waarde)  Tot waar moe tik teler laten lopen Snap ik ni zo goed 
                veelvoud = waarde * teller

            Next teller

            If veelvoud < 200 Then
                Console.WriteLine("Veelvoud van {0} is {1}", waarde, veelvoud)
            Else
                Console.WriteLine("geen veelvoud")


            End If
            Console.ReadLine()

        Loop

        Do
            Console.WriteLine("geef waarde in:")
            waarde = Console.ReadLine

        If waarde < 10 Then 
                teller = 100
            Else
                teller = 10
            End If

            veelvoud = waarde * teller

            If veelvoud < 200 Then
                Console.WriteLine("Veelvoud van {0} is {1}", waarde, veelvoud)
            Else
                Console.WriteLine("geen veelvoud")

Sub main()

    Dim waarde As Integer
    Dim MAXvv As Integer
    
    Dim bRun As Boolean
    bRun = True
    Do While (bRun)

        Console.WriteLine("geef waarde in:")
        waarde = Console.ReadLine
        
        ' waarde moet minstens 1 zijn
        If waarde < 1 Then
            Console.WriteLine("waarde moet minstens 1 zijn.")
            GoTo AskAgain
        End If
    
        ' heeft waarde een veelvoud dat kleiner is dan 200?
        If (waarde * 2) >= 200 Then
            Console.WriteLine("{0} heeft geen veelvoud kleiner dan 200.",waarde)
            GoTo AskAgain
        End If
    
        ' vind de grootste veelvoud die kleiner is als 200 (kan ook gelijk aan 200 zijn, daarvoor dient volgende regel nadien)
        MAXvv = 200 - (200 Mod waarde)
        ' als de grootste veelvoud gelijk aan 200 is, trek waarde eraf om de vorige veelvoud als de grooste te zetten
        If MAXvv = 200 Then MAXvv = MAXvv - waarde
    
        ' nu loop van de eerste veelvoud tot de laatste, en verhoog bij elke stap met waarde
        Dim i As Integer
        For i = (waarde * 2) To MAXvv Step waarde
            Console.WriteLine("{0},",i)
        Next i

        Console.WriteLine("Klaar.")
        
AskAgain:
    Loop

End Sub