Do Loop Komutu
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Integer
Do
a = InputBox("Sayı Gir")
Loop Until (a <= 7) And (a >= 1)
Select Case a
Case 1
MsgBox("Pazartesi")
Case 2
MsgBox("Salı")
Case 3
MsgBox("Çarşamba")
Case 4
MsgBox("Perşembe")
Case 5
MsgBox("Cuma")
Case 6
MsgBox("Cumartesi")
Case 7
MsgBox("Pazar")
Case Else
MsgBox("1 ile 7 arasında bir sayı giriniz")
End Select
End Sub
End Class