Question

VISUAL BASIC (VB.NET)1. Create a Sub Procedure with a name of your choice and in the procedure, declare a
2-Dimensinal (2-D) array that can store 15 Integer numbers. Then implement a
nested loop that will be used to store any 15 Integer numbers into the 2-D array at
runtime (an interactive program).
The implementation will be such that the program cannot terminate unless all the
inputs provided are integers (user input validation). If you provide an invalid input,
you should be asked to “Try again”. Make sure also to print out all valid inputs
respectively, after the point of insertion.
Note – The Procedure you created should be called in the Main Procedure to run it.

Answer 1

Application name :ConsoleApp_Integers

Application type :Console Application

Language used :VB

IDE used :Visual Studio 2019

Module1.vb :

Module Module1 'Module

Sub Main() 'Main Procedure
'calling sub procedure in main() procedure
getIntegers()
End Sub
'Procedure to get the integers from user
Sub getIntegers()
'Declare a 2-Dimensinal (2-D) array that can store 15 Integer numbers
Dim integerNumbers(2, 4) As Integer
'declaring variable to read and store integer
Dim number As Integer
'using for loop
For i = 0 To 2
For j = 0 To 4
'asking user to enter an integer
Console.Write("Enter an integer (" & i & "," & j & ") : ")
If Integer.TryParse(Console.ReadLine(), number) Then
'when valid integer is entered
'store integer in the array
integerNumbers(i, j) = number
Else
'When invalid integer is entered
'display error message
Console.WriteLine("Try again")
j = j - 1 'decrement value of j
End If
Next
Next
'display valid integers from array
Console.WriteLine(Environment.NewLine & "------------Valid Integers are :-------------")
'using for loop
For i = 0 To 2
For j = 0 To 4
'display integer from array
Console.Write(integerNumbers(i, j) & " ")
Next
Console.WriteLine() 'used for new line
Next
End Sub

End Module
===============================================

Output :