SOAL 1 :  Modifikasi kasus program berikut ini

 

design program :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13110000")
        npm.Items.Add("13110011")
        npm.Items.Add("13112011")
        kdosen.Items.Add("2011001")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "13110000"
                nama.Text = "doni m"
            Case "13111011"
                nama.Text = "hendra s"
            Case Else
                nama.Text = "annikmah"
        End Select
    End Sub
End Class