VB.NET

Help with array

Please support our VB.NET advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Mar 2009

Posts: 56

Reputation: songweaver is an unknown quantity at this point

Solved Threads: 0

songweaver songweaver is offline

Offline

Junior Poster in Training

Help with array

Nov 5th, 2009

Hey guys need help with this problem that is suppose to read an unspecified number of scores and determines how many scores are above or equal to the average and how many scores are below the average. Enter a negative number to signify the end of the input. Assume that the maximum number of scores is 100. Anyway here is what I have so far. I know I'll need an array for the add button and a calculate that will need to access the array. My teacher is not very helpful. Here is what I have so far. I am completely lost.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim getAverage() As Integer = txtAddScore.Text{getAverage1, getAverage2}
        Do While getAverage(99) > 0
        Loop
    End Sub
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
 
    End Sub
End Class
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim getAverage() As Integer = txtAddScore.Text{getAverage1, getAverage2}
        Do While getAverage(99) > 0
        Loop
    End Sub
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

    End Sub
End Class

•

Join Date: Oct 2008

Posts: 2,721

Reputation: adatapost has much to be proud of

Solved Threads: 501

adatapost

Offline

Posting Maven

Nov 5th, 2009

Read Generics. The following code snippet will help you to understand the basics of collections (generics).

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim p As New List(Of Double)
p.Add(10)
p.Add(20)
MsgBox(p.Average())
Dim p As New List(Of Double)
p.Add(10)
p.Add(20)
MsgBox(p.Average())