CSCI 3102 Visual Basic Test 1 1. (50) Write a program, which can Add button and

Question

CSCI 3102 Visual Basic Test 1 1. (50) Write a program, which can Add button and Remove bution (1) Add an integer, Display a list of integers; (2) Remove an integer, Display a list of integers; 2 (20) Linq Build a new list with numbers between 5 and 10. 3 (10) Sort Add a button to sort the list: 4. (20) Add a button to the program that will insert numbers to the list if the numbers are larger than all integers in the array; otherwise, do nothing. Example Array 1 3 5 6 Insert 7 New Array 13567 Array 1 356 7 Insert 2 New Array 13567

Explanation / Answer

Answer:

Please find the screenprint and the code for the questions. Please note that Question No-2 on Linq is not done as it is not clear on the requirement.

Screenprint:

Code:

Public Class Form1
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        'Procedure to Add any integer to the listbox
        Dim intNo As Integer
        If Int32.TryParse(txtNumber.Text, intNo) Then   'Check to see if value is integer
            lstNumbers.Items.Add(intNo)                 'Add to list
        Else
            MsgBox("Please enter a valid Integer!!!")
        End If
        txtNumber.Text = ""
        txtNumber.Select()
    End Sub

    Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
        'Procedure to remove the entered number from the listbox
        Dim flag As Boolean = False
        Dim i As Integer
        For i = 0 To lstNumbers.Items.Count - 1
            If Val(lstNumbers.Items(i)) = Val(txtNumber.Text) Then
                flag = True
                Exit For
            End If
        Next
        If flag.Equals(True) Then
            lstNumbers.Items.RemoveAt(i)
            txtNumber.Text = ""
        Else
            MsgBox("Item not present!!!!")
        End If
        txtNumber.Select()
    End Sub

    Private Sub btnSort_Click(sender As Object, e As EventArgs) Handles btnSort.Click
        'Procedure to sort the listbox
        Dim intArr(lstNumbers.Items.Count - 1) As Integer       'Integer Array to store integers from list box
        Dim I As Integer
        'Adding integers to the Integer Array
        For I = 0 To lstNumbers.Items.Count - 1
            intArr(I) = lstNumbers.Items(I)
        Next
        'Sort Integer Array
        Array.Sort(intArr)
        lstNumbers.Sorted = False
        lstNumbers.Items.Clear()
        'Adding the Sorted Integers back to the listbox
        For I = 0 To UBound(intArr)
            lstNumbers.Items.Add(intArr(I))
        Next
    End Sub

    Private Sub btnAddL_Click(sender As Object, e As EventArgs) Handles btnAddL.Click
        'Procedure to add integer ONLY if the number is greater than the existing numbers in list
        Dim intNo As Integer
        If Int32.TryParse(txtNumber.Text, intNo) Then
            If lstNumbers.Items.Count >= 1 Then
                Dim intArr(lstNumbers.Items.Count - 1) As Integer
                Dim I As Integer
                For I = 0 To lstNumbers.Items.Count - 1
                    intArr(I) = lstNumbers.Items(I)
                Next
                Array.Sort(intArr)
                If intNo > intArr(I - 1) Then
                    lstNumbers.Items.Add(intNo)
                    txtNumber.Text = ""
                    txtNumber.Select()
                End If
            Else
                lstNumbers.Items.Add(intNo)
                txtNumber.Text = ""
                txtNumber.Select()
            End If
        End If
    End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

---