Den Array kann man durch eine Schleife Werte zuweisen :
Code:
Dim key(9) As Integer
For i As Integer = 0 To 9
key(i) = i
Next i
Das sähe dann so aus :
Code:
Public Class main
Dim z As Integer = -1
Dim key(9) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
z += 1
If z = 9 Then
z = 0
End If
TextBox1.Text = key(z).ToString()
End Sub
Private Sub Init()
For i As Integer = 0 To 9
key(i) = i
Next i
End Sub
Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Init()
End Sub
End Class