Programalama > VISUAL BASIC

1 command
2 textbox
2 label

Dim secim As Integer

Private Sub Command1_Click()
secim = Val(Text1.Text)
Select Case secim
Case Is < 24: Text2.Text = 0
Case 25 To 44: Text2.Text = 1
Case 45 To 54: Text2.Text = 2
Case 55 To 69: Text2.Text = 3
Case 70 To 84: Text2.Text = 4
Case 85 To 100: Text2.Text = 5
Case Is > 100: MsgBox ("hata 0-100 arasında sayı girin")
End Select
End Sub

MUSTAFA EZER
mustafaezer91@gmail.com


mustafa ezer
mustafaezer91@gmail.com