MBM
05-21-2011, 07:06 AM
I'm following this example from Microsoft's webite :
http://msdn.microsoft.com/en-us/library/2k7ayc03(v=vs.80).aspx
Dim kindergarten As Integer = students(0)
Dim firstGrade As Integer = students(1)
Dim sixthGrade As Integer = students(6)
MsgBox("Students in kindergarten = " & CStr(kindergarten))
MsgBox("Students in first grade = " & CStr(firstGrade))
MsgBox("Students in sixth grade = " & CStr(sixthGrade))
When I run it I get
'students' is not declared. It may be inaccessible due to its protection level'
So I declared students :
Dim students(10) As Integer
Yet when I run it all I get is 0 for every entry. What am I doing wrong?!?!
Here's the full code :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim students(10) As Integer
Dim kindergarten As Integer = students(0)
Dim firstGrade As Integer = students(1)
Dim sixthGrade As Integer = students(6)
MsgBox("Students in kindergarten = " & CStr(kindergarten))
MsgBox("Students in first grade = " & CStr(firstGrade))
MsgBox("Students in sixth grade = " & CStr(sixthGrade))
End Sub
End Class
http://msdn.microsoft.com/en-us/library/2k7ayc03(v=vs.80).aspx
Dim kindergarten As Integer = students(0)
Dim firstGrade As Integer = students(1)
Dim sixthGrade As Integer = students(6)
MsgBox("Students in kindergarten = " & CStr(kindergarten))
MsgBox("Students in first grade = " & CStr(firstGrade))
MsgBox("Students in sixth grade = " & CStr(sixthGrade))
When I run it I get
'students' is not declared. It may be inaccessible due to its protection level'
So I declared students :
Dim students(10) As Integer
Yet when I run it all I get is 0 for every entry. What am I doing wrong?!?!
Here's the full code :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim students(10) As Integer
Dim kindergarten As Integer = students(0)
Dim firstGrade As Integer = students(1)
Dim sixthGrade As Integer = students(6)
MsgBox("Students in kindergarten = " & CStr(kindergarten))
MsgBox("Students in first grade = " & CStr(firstGrade))
MsgBox("Students in sixth grade = " & CStr(sixthGrade))
End Sub
End Class