Link for Frequency calculation

the below is the link for frequency calculation:


https://mathway.com/examples/Statistics/Frequency-Distribution/Finding-the-Percentage-Frequency?id=1058

Control Array (single event for multiple handlers) , Picture box control

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click

        Dim btn As Button = CType(sender, Button)
        MessageBox.Show(btn.Text)

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click

        Dim pb As PictureBox = CType(sender, PictureBox)

        Select Case CInt(pb.Tag)
            Case 0
                pb.Image = Image.FromFile("D:\SD_SampleVBpgm\img1.jpg")
                pb.SizeMode = PictureBoxSizeMode.StretchImage


            Case 1
                pb.Image = Image.FromFile("D:\SD_SampleVBpgm\img2.jpg")
                pb.SizeM(ode = PictureBoxSizeMode.AutoSize)

            Case 2
                pb.Image = Image.FromFile("D:\SD_SampleVBpgm\img3.jpg")
                pb.SizeMode = PictureBoxSizeMode.Zoom


        End Select
    End Sub
End Class

Working with Arrays

Public Class Form1
    Dim str(10) As String
    Dim incr As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'inserting values to array
        For incr = 0 To 10

            str(incr) = InputBox("enter name")

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'display all the array values
        For incr = 0 To str.Length - 1
            MessageBox.Show(str(incr))
        Next

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        incr = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'search for a particular string
        Dim searchStr As String
        searchStr = InputBox("enter a string")
        For incr = 0 To str.Length - 1

            'a string contains a string
            If str(incr).Contains(searchStr) Then
                MessageBox.Show(str(incr))
            End If

        Next

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'remove a particular string
        Dim searchStr As String
        searchStr = InputBox("enter a string")

        'using of list object to remove a string
        Dim strList As List(Of String) = str.ToList()
        strList.Remove(searchStr)
        str = strList.ToArray()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'search for a particular string
        Dim searchStr As String
        searchStr = InputBox("enter a string")
        For incr = 0 To str.Length - 1

            'a string contains a string
            If str(incr).EndsWith(searchStr) Then
                MessageBox.Show(str(incr))
            End If

        Next
    End Sub

  
End Class