Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
|
Public Class Form1 Dim intsum, intaverage, counter As Integer Private Sub btnAverage_Click(sender As Object, e As EventArgs) Handles btnAverage.Click For counter = 0 To lbNumber.Items.Count - 1 intsum += counter Next intaverage = (intsum / lbNumber.Items.Count - 1) lblAverage.Text = intaverage End Sub Private Sub btnSum_Click(sender As Object, e As …
|