Imports System 

Public Module Module1 

    Structure ATMTransaction 

        Dim Bank_ID As String 

        Dim AccountNumber As Integer 

    Dim TransactionDateTime As String 

        Dim TransactionType As Char 

        Dim Amount As Single 

        Dim ATM_ID As Integer 

    End Structure 

Dim n As Integer = 999 

Dim temp As Integer 

Dim Transaction As ATMTransaction 

Dim Bank_ID(n) As String 

Dim AccountNumber(n) As Integer 

Dim TransactionDateTime(n) As String 

Dim TransactionType(n) As Char 

Dim Amount(n) As Single 

Dim ATM_ID(n) As Integer 

Sub SetArray(Byval n As Integer) 

n = Console.ReadLine() - 1 

temp = n 

End Sub 

Sub InputBankID() 

For n = 0 To temp 

Console.WriteLine("Please enter BankID No." & n+1) 

Bank_ID(n) = Console.ReadLine() 

Next 

End Sub 

Sub InputAccountNumber() 

For n = 0 To temp 

Console.WriteLine("Please enter AccountNumber No." & n+1) 

AccountNumber(n) = Console.ReadLine() 

Next 

End Sub 

Sub InputTransactionDateTime() 

For n = 0 To temp 

Console.WriteLine("Please enter TransactionDateTime No." & n+1) 

TransactionDateTime(n) = Console.ReadLine() 

Next 

End Sub 

Sub InputTransactionType() 

For n = 0 To temp 

Console.WriteLine("Please enter TransactionType No." & n+1) 

TransactionType(n) = Console.ReadLine() 

Next 

End Sub 

Sub InputAmount() 

For n = 0 To temp 

Console.WriteLine("Please enter Amount No." & n+1) 

Amount(n) = Console.ReadLine() 

Next 

End Sub 

Sub InputATM_ID() 

For n = 0 To temp 

Console.WriteLine("Please enter ATM_ID No." & n+1) 

ATM_ID(n) = Console.ReadLine() 

Next 

End Sub 

Sub Main() 

Dim temp1 As Integer 

Console.WriteLine("Input the number of accounts") 

SetArray(temp1) 

InputBankID() 

InputAccountNumber() 

InputTransactionDateTime() 

InputTransactionType() 

InputAmount() 

InputATM_ID() 

For n = 1 To temp 

Transaction.Bank_ID = Bank_ID(n) 

Transaction.AccountNumber = AccountNumber(n) 

Transaction.TransactionDateTime = TransactionDateTime(n) 

Transaction.TransactionType = TransactionType(n) 

Transaction.Amount = Amount(n) 

Transaction.ATM_ID = ATM_ID(n) 

Dim vbTab As String  = "    "  'modification as vbTab could not be used in Dot Net Fiddle 

        Console.WriteLine("Bank_ID:" & vbTab & vbTab & Transaction.Bank_ID) 

        Console.WriteLine("AccountNumber:" & vbTab & vbTab & Transaction.AccountNumber) 

        Console.WriteLine("TransactionDateTime:" & vbTab & Transaction.TransactionDateTime) 

        Console.WriteLine("TransactionType:" & vbTab & vbTab & Transaction.TransactionType) 

        Console.WriteLine("Amount:" & vbTab & vbTab & vbTab & Transaction.Amount) 

        Console.WriteLine("ATM_ID:" & vbTab & vbTab & vbTab & Transaction.ATM_ID) 

Next 

Console.ReadLine() 

        End Sub 

End Module