Dim i As Integer
Dim array1() As Boolean
Dim array2() As Boolean
Dim array3() As Boolean
Dim array4() As Boolean
For i = 0 To QuestionGrid.Items.Count
Dim rblOption1 As RadioButton = QuestionGrid.Items(i).Cells(0).FindControl("rblOption1")
Dim rblOption2 As RadioButton = QuestionGrid.Items(i).Cells(0).FindControl("rblOption2")
Dim rblOption3 As RadioButton = QuestionGrid.Items(i).Cells(0).FindControl("rblOption3")
Dim rblOption4 As RadioButton = QuestionGrid.Items(i).Cells(0).FindControl("rblOption4")
array1(i) = rblOption1.Checked (未将对象引用设置到对象的实例。)
array2(i) = rblOption2.Checked
array3(i) = rblOption3.Checked
array4(i) = rblOption4.Checked
Next