Liste Hazirlama
Public Class Form1
Dim siniflistesi(22) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
siniflistesi(0) = "Kerem"
siniflistesi(1) = "Sezer"
siniflistesi(2) = "Ali"
siniflistesi(3) = "Serdar"
siniflistesi(4) = "Cem"
siniflistesi(5) = "Mertkan"
siniflistesi(6) = "Oğuz"
siniflistesi(7) = "Aykut"
siniflistesi(8) = "Fatih"
siniflistesi(9) = "Emre A"
siniflistesi(10) = "Can"
siniflistesi(11) = "Tugay"
siniflistesi(12) = "Berkhan"
siniflistesi(13) = "Aşkın"
siniflistesi(14) = "Ahmet"
siniflistesi(15) = "Tarık"
siniflistesi(16) = "Emre Ö"
siniflistesi(17) = "Adem"
siniflistesi(18) = "Doğukan"
siniflistesi(19) = "Gencer"
siniflistesi(20) = "Faruk"
siniflistesi(21) = "Furkan"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
i = Int(TextBox1.Text)
Select Case i
Case 1
Label1.Text = siniflistesi(0)
Case 2
Label1.Text = siniflistesi(1)
Case 3
Label1.Text = siniflistesi(2)
Case 4
Label1.Text = siniflistesi(3)
Case 5
Label1.Text = siniflistesi(4)
Case 6
Label1.Text = siniflistesi(5)
Case 7
Label1.Text = siniflistesi(6)
Case 8
Label1.Text = siniflistesi(7)
Case 9
Label1.Text = siniflistesi(8)
Case 10
Label1.Text = siniflistesi(9)
Case 11
Label1.Text = siniflistesi(10)
Case 12
Label1.Text = siniflistesi(11)
Case 13
Label1.Text = siniflistesi(12)
Case 14
Label1.Text = siniflistesi(13)
Case 15
Label1.Text = siniflistesi(14)
Case 16
Label1.Text = siniflistesi(15)
Case 17
Label1.Text = siniflistesi(16)
Case 18
Label1.Text = siniflistesi(17)
Case 19
Label1.Text = siniflistesi(18)
Case 20
Label1.Text = siniflistesi(19)
Case 21
Label1.Text = siniflistesi(20)
Case 22
Label1.Text = siniflistesi(21)
End Select
End Sub
End Class