|
Public Class Form1 Dim N As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click N = TextBox1.Text.ToUpper If N = "BHOPAL" Then MsgBox("M.P") ElseIf N = "LUCKNOW" Then MsgBox("U.P") ElseIf N = "JAIPUR" Then MsgBox("R.J.") Else MsgBox("DATA N.A.") End If End Sub End Class |