Question

This is Visual Basic program, thank you for your help

In this assignment, you'll start a new Windows Forms application.
Assume we have the data shown below:
Names_first={"jack","marjy","tom","luke","sam","al","joe","miky","lu"}
Name_last={"jones","ety","fan","spence","amin",sid","bud","ant","ben"}
Amounts={234.45,8293.1,943.25,27381.0,271.39,7436.12,2743.0,1639.95,2354.2}

The above will allows us to emulate reading data from a file, which we will learn in the next unit.
For now, we will assume the data above has been read from a file.
We need to process this data in fast way. For that purpose, we need to:

1. Declare three arrays on the global level, with the names shown above.
2. Write code for the form load event handler. The handling code simply assigns the arrays to the values shown above.
3. Write a handler code for a button named Show Balance, that asks the user to type in the client first name into an inputbox (and nothing else), then we search the names array then display the client's balance, or an error message if that client does not exist. Examples of code to search arrays can be found in the textbook.
4. Write another handler code for another button named Show Bank Assets that displays via messagebox the sum of all balances in the balances array.
5. Finally write another handler code that shows the client names (first and last name) of all those who have a balance under $500. Each name can appear in a message.

Answer 1

Screenshot

Quick Launch (Ctrl+Q) Help Window Start - deepthi.onganattu - D 1 . 1 BankApplicationInVb - Microsoft Visual Studio File Edit View Project Build Debug Team Tools Test Analyze No. 9.& . - Debug - Any CPU - Form1.vb - X Form1.vb (Design) VE BankApplicationInVb - Public class frmBankApplication btnExit Server Explorer - Click Solution Explorer 4 Bank Application Form - X Toolbox MyBase.Load First name to get balance: jack Show Balance "joe", "miky", "lu"} "bud", "ant", "ben"} 2743.0, 1639.95, 2354.2} Show Bank Assets Less Than 500 Balance of jack is $234.45 Ток | -0-0-0- Private Sub btnShowBalance_click(sender As Object, e As EventArgs) Handles btnShowBalance.click For i As Integer = 0 To Names first. Length - 1 If Names_first(i).CompareTo(txtfName.Text) = 0 Then MessageBox.Show("Balance of " + txtfName.Text + " is $" + CStr(Amounts(i))) Return End If Next MessageBox.Show("Error!!!" + txtfName.Text + " not found") u NP 136 % - O Ready In 50 Col 18 Ch 18 INS 11 1 2 BankApplicationInVb y master 16:59 . ) ENG210 24-10-2019 Type here to search A

Design

Quick Launch (Ctrl+Q) - 2 x deepthi.onganattu - D File Test BankApplicationInVb - Microsoft Visual Studio Edit View Project Build Debug Team Format Tools 3. 1. 2. - Debug - Any CPU Form1.vb Form1.vb [Design] + x Analyze Start Window Help + = I ELT H111* IES % Server Explorer Toolbox Solution Explorer - Bank Application Form find some First name to get balance: blocs o Show Balance sem bilance Show Bank Assets Show Bank Asseto Less Than 500 Less Than 500 g 0-0-0 e 3 0-0-0 O 11 12 Ready 11 BankApplicationInVb y master 17:00 ) ENG 24-10-2019 Type here to search ^
Code

Public Class frmBankApplication
    'Global array declaration
    Dim Names_first(9) As String
    Dim Name_last(9) As String
    Dim Amounts(9) As Double
    'Form load initailize global array and always point into text box
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Initialize values into array
        Names_first = {"jack", "marjy", "tom", "luke", "sam", "al", "joe", "miky", "lu"}
        Name_last = {"jones", "ety", "fan", "spence", "amin", "sid", "bud", "ant", "ben"}
        Amounts = {234.45, 8293.1, 943.25, 27381.0, 271.39, 7436.12, 2743.0, 1639.95, 2354.2}
        txtfName.Select()
    End Sub
    'Loop through first name array and compare with text box value
    'If equal display balance
    'Otherwise error message
    Private Sub btnShowBalance_Click(sender As Object, e As EventArgs) Handles btnShowBalance.Click
        For i As Integer = 0 To Names_first.Length - 1
            If Names_first(i).CompareTo(txtfName.Text) = 0 Then
                txtfName.Text = ""
                MessageBox.Show("Balance of " + txtfName.Text + " is $" + CStr(Amounts(i)))
                Return
            End If
        Next
        txtfName.Text = ""
        MessageBox.Show("Error!!!" + txtfName.Text + " not found")
    End Sub
    'Loop through amounts array and find sum of assets in message box
    Private Sub btnBankAssets_Click(sender As Object, e As EventArgs) Handles btnBankAssets.Click
        Dim Balance As Double
        Balance = 0
        For i As Integer = 0 To Amounts.Length - 1
            Balance = Balance + Amounts(i)
        Next
        MessageBox.Show("Bank asset = $" + CStr(Balance))
    End Sub
    'Loop through aounts array to find less than 500 from amounts array
    'Return names of that asset persons
    Private Sub btnLessthan_Click(sender As Object, e As EventArgs) Handles btnLessthan.Click
        Dim names As String
        names = ""
        For i As Integer = 0 To Amounts.Length - 1
            If Amounts(i) < 500 Then
                names += Names_first(i) + " " + Name_last(i) + vbCrLf
            End If
        Next
        MessageBox.Show("First and last names:-" + vbCrLf + names)
    End Sub
    'Exit from application
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class