Getallen afdrukken vervolg

[zettekakkers]

Nu heb ik zelf wat geprobeerd en het lukt perfect buiten wat schoonheidsfoutjes:thumb:
[CPP]Module mdl24
Sub main()
Dim i As Integer
For i = 10 To 78 Step 2
Console.Write(i.ToString() + " ")
If i Mod 5 = 0 Then
Console.WriteLine()
End If
Next
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
[/CPP]

en dit komt
10
12 14 16 18 20
22 24 26 28 30
32 34 36 38 40
42 44 46 48 50
52 54 56 58 60
62 64 66 68 70
72 74 76 78 press any key to continue.

maar ik wil eens proberen enkele rijen weg te laten zoals dit
10 12 14 16 18
30 32 34 36 38
50 52 54 56 58
70 72 74 76 78

iemand idee?

 

[CaptainBri]

C# code:

            for (int i = 10; i <= 78; i += 2)
            {
                if (i.ToString().EndsWith("8"))
                {
                    Console.Write(i);
                    i += 10;
                    Console.WriteLine();
                }
                else Console.Write(i + " ");
            }
            Console.Read();

VB.NET code:

For i As Integer = 10 To 78 Step 2
	If i.ToString().EndsWith("8") Then
		Console.Write(i)
		i += 10
		Console.WriteLine()
	Else
		Console.Write(i & " ")
	End If
Next
Console.Read()

Succes ermee =)

 

[huijb]

Gewoon in een tpoic blijven, hier verder http://www.helpmij.nl/forum/showthread.php/643085-Getallen-afdrukken