babyfireflyx (rhiahnnon) wrote in vbdev,
babyfireflyx
rhiahnnon
vbdev

Dynamic Arrays (Please help yet again)

Could someone please help?

Here's what I have to do:

1. Code PrintGradesButton to display the grade list in MessageLabel.
2. Code AddGradeButton to:
a)pop up with an input box and allow the user to enter the new grade.
intGrade = CInt(InputBox("Enter grade:"))
b) increase the size of the array by 1.
c) store the new grade in the array.

This is what I did but I'm not sure if it's right.

Private Grades() As Int16 'declare array on top of the form

In the AddGradeButton I have this code:

dim intGrade as int16
dim intValue as int16
intGrade = CInt(InputBox("Enter grade:"))
intGrade = GetUpperBound(+1)
ReDim Preserve Grade(intValue)
Grade(intValue) = intGrade

Does this look right to you?
  • Post a new comment

    Error

    default userpic

    Your IP address will be recorded 

  • 2 comments