Imports System
Public Module Module1
Public Sub Main()
DIm Number as Integer
Dim Smallest as Integer = 9999999
Do
Console.WriteLine("Enter a Number or Enter -1 to End")
Number = Console.ReadLine()
If Number > 0 Then
Number = Number
If Number < Smallest Then
Smallest = 0 + Number
End if
Loop until Number = -1
Console.WriteLine("Smallest = " & Smallest)
End Sub
End Module
'Integer : Number, Smallest
'Do
'Console.WriteLine("Enter a Number or Enter -1 to End")
'Number = Console.ReadLine()
'If Number > 0 Then
'Number = Number
'If Number < Smallest Then
'Smallest = 0 + Number
'End if
'Loop until Number = -1
'Console.WriteLine("Smallest = " & Smallest)