Huruf Mutu Mahasiswa

Private Sub cbonpm_Click()

Dim Nama, Jurusan, mutu As String

Select Case cbonpm.Text

Case “12101691″

Nama = “Agil Ramadhan”

Jurusan = “Sistem Informatika”

Case “11201692″

Nama = “Belalang Kupukupu”

Jurusan = “Teknik Informasi”

Case “11102693″

Nama = “Akim Sialmulu”

Jurusan = “Manajemen Informatika”

Case “12304694″

Nama = “Ponti Abalabal”

Jurusan = “Komputer Akutansi”

End Select

txtnama.Text = Nama

txtjurusan.Text = Jurusan

txtkuis.SetFocus

End Sub