Post a New Question

visual basic

posted by .

Cant get my message dialog box to display anbody see waht wrong with it? The message box is located in my if then else statement


Dim total As Integer = 0
Dim gradeCounter As Integer = 0
Dim grade As Integer = 0
Dim average As Double = 0

' sum grades in ListBox
Do
' read grade from ListBox
grade = gradesListBoxItemsItem(gradeCounter)
total += grade ' add grade to total
gradeCounter += 1 ' increment counter

Loop Until gradeCounter = gradesListBoxItemsCount()

average = total / gradesListBoxItemsCount() ' calculate average
averageResultLabel.Text = String.Format("{0:F}", average)
addButtonEnabled = True ' enable Add Grade Button
gradeTextBoxFocus() ' reset focus to Enter grade: TextBox

If (gradeCounter = " ") Then
MessageBoxShow( _
"There are not any grades entered", _
"Average can not be divided by zero", MessageBoxButtonsOK, _
MessageBoxIconError)
Else

End If

  • visual basic -

    gradeCounter is defined as Integer.
    Try:
    If(gradeCounter = 0)...

  • visual basic -

    In VB, you should use OPTION EXPLICIT whenever possible in order to let the 'compiler' endorce strong typing.

Answer This Question

First Name
School Subject
Your Answer

Related Questions

More Related Questions

Post a New Question