Question

Instructions: Written in English (Basic Language)
Modify the Base Project Sample Code to create a database of your own design that includes at least four data fields.
The overall design and format of your program is up to you.
Your program should implement the following menu options –

A. Add Item
B. List All Items
C. Quit

Any data theme or motif is acceptable, provided your project has at least four data elements.
Please make sure your data structure implements at least one numeric array, and one string array.

Base Code:

Last=1
Dim Name$(50)
'Dim Additional Fields Here
Do
Print "A. Add Name"
Print "B. List Names"
Print "Q. Quit"
Input "Enter Choice: ";Choice$
Select Case Choice$
Case "A"
Input "Enter Name: ";Name$(Last)
'Input Additional Fields Here
Last=Last+1
Case "B"
For x=1 to Last-1
Print Name$(x)
'Print Additional Fields Here
Next x
End Select
Loop Until Choice$="Q"
End

  

Answer 1

I'm implementing the Base code in Visual Basic, I'm adding individual details in separate arrays (ArrayLists)

The whole code in Visual Basic

Imports System
Imports System.Collections.Generic

Public Class Solution

Public Shared Sub Main(ByVal args() As String)

Dim last As Integer = 1
Dim Sno As New List(Of Integer)()
Dim Names As New List(Of String)()
Dim Job As New List(Of String)()
Dim Sex As New List(Of Char)()
Dim sc As New Scanner(System.in)
system.out.print(" Type A for Add Name" & \n & "Type B for List Names" & \n & "Type Q for Quit")
Dim choice As Char = sc.nextChar()
Do While choice <> 'Q)

If choice = "A"c Then

Console.Write("Enter new Name, sex and Job title separated by space")
Sno.Add(last)
Names.Add(sc.next())
Sex.Add(sc.nextChar())
Job.Add(sc.next())
last += 1

End If

If choice = "B"c Then

Console.Write("Serial no, Name, Sex and job titles of everyone will be displayed")
Do
Console.Write(Sno(i))
Console.Write(Names(i))
Console.Write(Sex(i))
Console.WriteLine(Job(i))
Loop

End If

Loop

' this would work fine

End Sub

End Class