• Home
 · 
• Math/Dates
 · 
• Insertion, Deletion, and Searching In a Sorted Array

Insertion, Deletion, and Searching In a Sorted Array

Insertion, Deletion, and Searching In a Sorted Array

API Declarations



Private Type arraySStudentRecord
fname As String
lname As String
End Type

Dim ASStudent(Arrsize) As arraySStudentRecord
Dim currloc As Integer





Rate Insertion, Deletion, and Searching In a Sorted Array

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'searching code for a sorted array

'*************** INSERTING CODE **********************
    'Declaring the variables
    Dim Inputlname As String
    Dim Inputfname As String
    Dim I
    Dim J
    Dim K
    I = 0

    'Check if array is full
    If currloc < Arrsize Then
        Inputlname = InputBox("Enter last name...")
        Inputfname = InputBox("Enter first name...")
    Else
        MsgBox "Array Is Full", 0, "Big Sexy"
        Exit Sub
    End If

    'Find location
    Do While (ASStudent(I).lname < Inputlname) And (I < currloc)
        I = I + 1
    Loop

    'Move all elements to make room for location
    For J = currloc To I + 1 Step -1
        ASStudent(J).lname = ASStudent(J - 1).lname
        ASStudent(J).fname = ASStudent(J - 1).fname
    Next J

    'Place at location
    ASStudent(I).lname = Inputlname
    ASStudent(I).fname = Inputfname
    currloc = currloc + 1

    'Clearing the list box
    lstdSort.Clear

    'Displaying all entries in the list box
    For K = K To currloc - 1
        lstdSort.AddItem ASStudent(K).lname & ", " & ASStudent(K).fname
    Next K
'**********************************************************************

'****************************** DELETING CODE *************************
   'Display all the entries, until the last before the first blank
    Dim Inputfname
    Dim Inputlname
    Dim I As Integer
    Dim L
    Dim M
    Dim locfound As Integer
    
    'Default Value
    locfound = -1
    
    If currloc = 0 Then
        MsgBox "Records have not been found, array is empty!", 0, "Big Sexy"
        Exit Sub
    End If
    
    'Information on name to search for
    Inputlname = InputBox("Input The last name of the student...", "Big Sexy")
    Inputfname = InputBox("Input The first name of the student...", "Big Sexy")
    
       
    'Search for the specified student(all none blanks)
    'If found, program will delete it
    For I = I To currloc - 1 Step 1
        If ((Inputfname = ASStudent(I).fname) And (Inputlname = ASStudent(I).lname)) Then
            locfound = I
            MsgBox "The record of " & ASStudent(I).lname & ", " & ASStudent(I).fname & " has been found at " & locfound & " and has been deleted", , "Big Sexy"
            lstdSort.Selected(I) = True
        
    'Moving all records back one space
    For L = I To currloc - 1 Step 1
        ASStudent(L).lname = ASStudent(L + 1).lname
        ASStudent(L).fname = ASStudent(L + 1).fname
    Next L
    
    'Decreasing by 1
    currloc = currloc - 1
    
    'clearing the listbox
    lstdSort.Clear
    
    'Displaying all the enteries in the listbox
    For M = M To currloc - 1
        lstdSort.AddItem ASStudent(M).lname & ", " & ASStudent(M).fname
    Next M
  End If
Next I
'*******************************************************************

'***************************** SEARCHING CODE **********************
    'Declaring the variables
    Dim Inputfname As String
    Dim Inputlname As String
    Dim locfound As Integer
    Dim I As Integer
    
    'default value
    locfound = -1

    'Check if there exists at least one element
    If currloc = 0 Then
        MsgBox "Record Has Not Been Found", 0, "Big Sexy"
    End If

    'get info on name to search for
    Inputlname = InputBox("Enter Last Name..", "Big Sexy")
    Inputfname = InputBox("Enter First Name..", "Big Sexy")
    
    'Search through all the students to find the specified one
    For I = I To currloc - 1
       If ((Inputlname = ASStudent(I).lname) And (Inputfname = ASStudent(I).fname)) Then
            locfound = I
            MsgBox "Record " & ASStudent(I).lname & ", " & ASStudent(I).fname & " has been found at location #" & locfound, 0, "Big Sexy"
            lstdSort.Selected(I) = True
        End If
    Next I
    
    'If invalid entery has been put in
    If locfound = -1 Then
        MsgBox "Record has not been found", 0, "Big Sexy"
    End If
'*************************************************************************