1-3 arasında girilen sayıyı bulan ve ekrana mesaj yazan programı yapalım.

Public Class Form1

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

Dim sayi

sayi = Val(InputBox("1 ile 3 arasnda say giriniz"))

Select Case sayi

Case 1

MsgBox("Girdi§iniz sayi 1")

Case 2

MsgBox("Girdi§iniz Sayi 2")

Case 3

MsgBox("Girdi§iniz Sayi 3")

End Select

End Sub

End Class