code. compile. run. debug. share.
Module Module1
Sub Main()
Dim arr As Integer() = New Integer(6) {}
Dim small As Integer = 0
Dim i As Integer = 0
console.write("First Element: ")
arr(0)=console.readline()
console.write("Second Element: ")
arr(1)=console.readline()
console.write("Third Element: ")
arr(2)=console.readline()
console.write("Fourth Element: ")
arr(3)=console.readline()
console.write("Fifth Element: ")
arr(4)=console.readline()
console.write("Sixth Element: ")
arr(5)=console.readline()
small = arr(0)
For i = 1 To 6 Step 1
If (small > arr(i)) Then
small = arr(i)
End If
Next
Console.WriteLine("The Smallest Number is: ", small)
End Sub
End Module
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|