Visual Basic NET ( 2)


13.3. - 3


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

= InputBox(" ")

Select Case - 1 ' ,

Case . To .

MsgBox(" ")

Case ., .

MsgBox(" ")

Case ., .

MsgBox("")

Case Is > ., Is < .

MsgBox(" ")

End Select

End Sub

: , , , InputBox String, . .

- .