Visual Basic

Dim s As Char() = TextBox1.Text.ToCharArray
Dim p As New Dictionary(Of Char, integer)

For Each chars As Char In s
    'ignore the spaces
    If Not chars = " " Then
        'count the occurances of the character
        Dim i As Integer = s.Count(Function(r) r = chars)

        'if the letter is not in the dictonary
        If Not p.ContainsKey(chars) = True Then
            p.Add(chars, i)
        End If
    End If
Next

RobCroll wrote:

VB programmers

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim x As New List(Of Integer)
    For i As Integer = 2 To 8
        x.Add(i)
    Next

    Dim avg As Double = x.Average()
    Messagebox.show(avg.toString())
End Sub

Brandon T. H. wrote:

How do you get the middle number between a chosen set of two numbers, for example, I have two numbers, 2 and 8, the number I would wanna get is 5.

Brandon T. H. wrote:

It would also help how you would convert a decibel number and round it into the closet whole number.

Bastard Programmer from Hell

Public Shared Function Average(ByVal val1 As Integer, ByVal val2 As Integer)
    If (val2>val1) Then
        Dim temp As Integer = val1
        val1 = val2
        val2 = temp
    End If
    While (val1>val2) 
        val1 = val1 - 1
        val2 = val2 + 1
    End While
    Return val1
End Function