Loop не отображает текст в виде метки

Question

У меня возникли проблемы с изменением текста на ярлыке. Может ли кто-нибудь показать мне, где проблема?

Public Class Form1 
    Dim Tracker As Integer = 0 
    Dim Questions(10) As String 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

    Questions(0) = "Are you mad?" 
    Questions(1) = "Are you sad?" 
    Questions(2) = "Are you glad?" 
    Questions(3) = "Are you happy?" 
    Questions(4) = "Are you indebted?" 
    Questions(5) = "Are you swimming in money?" 
    Questions(6) = "Do you play sports?" 
    Questions(7) = "Do you watch SportsCenter?" 
    Questions(8) = "Do you cheer for the Pistons?" 
    Questions(9) = "Do you cheer for the Lions?" 


End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
    Button1.Text = "Next" 

    For i = 0 To Questions.Length - 1 

     Label1.Text += Questions(i) 
    Next 

End Sub 

End Class 

Answer 1

Я просто использовал кнопку click для увеличения переменной счетчика, а затем установите эту переменную в индекс массива.