Getallen tonen tussen 2 ingevoerde waarden

[Jimbo84]

Weet er iemand hoe ik een script kan laten lopen om willekeurige 2 ingevoerde waarde door de user, daarvan de getallen op de Console te printen.

Bv de console zou de getallen tussen 10 en 100 moeten tonen op de console.

Hetgene ik momenteel heb is:

Module Module1

    Sub Main()
        Console.WriteLine("Value1 ?")
        Dim value1 As Integer = Console.ReadLine

        Console.WriteLine("Value1 ?")
        Dim value2 As Integer = Console.ReadLine

        Dim GetallenTussenin As Integer

        If value1 < value2 Then
            Console.WriteLine()
            End If
        Console.ReadLine()

    End Sub

End Module

 

[JoZ1]

[cpp]Dim rand As New Random
Console.WriteLine(rand.Next(10, 100))[/cpp]

 

[CaptainBri]

[cpp]Module Module1
Sub Main() 'Gemaakt door CaptainBri'
Dim Getal1 As Integer = 0, Getal2 As Integer = 0
Console.WriteLine("Getal 1:")
If Integer.TryParse(Console.ReadLine(), Getal1) Then
Console.WriteLine("Getal 2:")
If Integer.TryParse(Console.ReadLine(), Getal2) Then
Console.WriteLine("Resultaat: " + vbNewLine + "--------------" + vbNewLine)

If Getal1 < Getal2 Then 'Getal 1 kleiner dan getal 2 dus optellen'
For Getal1 = Getal1 To Getal2
Console.WriteLine(Getal1)
Next
Else 'Getal 1 groter dan getal 2 dus aftrekken'
For Getal1 = Getal1 To Getal2 Step -1
Console.WriteLine(Getal1)
Next
End If

Console.WriteLine(vbNewLine + "--------------")
Else
Console.WriteLine("Ongeldig 2e getal")
End If
Else
Console.WriteLine("Ongeldig 1e getal")
End If
Console.Read()
End Sub
End Module[/cpp]

Veel plezier ermee, werkt hier in ieder geval prima.