belajar bahasa pemograman

desainlah program vb seperti diatas,lalu ketikan coding seperti dibawah ini:

Public Class Form1
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MsgBox("Yakin Anda Ingin Keluar", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.No Then e.Cancel = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110328")
        npm.Items.Add("12020328")
        npm.Items.Add("12030328")
        kode_dosen.Items.Add("D01")
        kode_dosen.Items.Add("D02")
        kode_dosen.Items.Add("D03")
        kode_matakuliah.Items.Add("M01")
        kode_matakuliah.Items.Add("M02")
        kode_matakuliah.Items.Add("M03")
        Dim i As Integer
        For i = 1 To 100
            nilai_kehadiran.Items.Add(i)
        Next i
        i = 1
        Do While i <= 100
            Nilai_tugas.Items.Add(i)
            i = i + 1
        Loop
        i = 100
        Do Until i = 0
            Nilai_UTS.Items.Add(i)
            i = i - 1
        Loop
        i = 100
        While i >= 1
            Nilai_Uas.Items.Add(i)
            i = i - 1
        End While
    End Sub
    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Me.Close()
    End Sub
    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        Nama_matakuliah.Text = ""
        nilai_kehadiran.Text = ""
        Nilai_tugas.Text = ""
        Nilai_Akhir.Text = ""
        Nilai_Uas.Text = ""
        Nilai_UTS.Text = ""
        huruf.Text = ""
        ket.Text = ""
        npm.Focus()
    End Sub
    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110328"
                nama.Text = "James Hillery Sitohang"
            Case "12020328"
                nama.Text = "Fernando"
            Case "12030328"
                nama.Text = "Natal S"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        Select Case x
            Case "11"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "02"
                jenjang.Text = "D3"
                jurusan.Text = "Teknik Informatika"
            Case Else
                jenjang.Text = "D1"
                jurusan.Text = "Desain Grafis"
        End Select
    End Sub
    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "D01"
                nama_dosen.Text = "M Syahrizal, S.Kom"
            Case "D02"
                nama_dosen.Text = "Mesran, M.Kom"
            Case "D03"
                nama_dosen.Text = "Sony Sinaga, S.Kom,"
        End Select
    End Sub
    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "M01"
                Nama_matakuliah.Text = "Sistem Operasi"
            Case "M02"
                Nama_matakuliah.Text = "Pemograman Visual"
            Case "M03"
                Nama_matakuliah.Text = "Sistem Basis Data"
        End Select
    End Sub
    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
        Nilai_Akhir.Text = 0.1 * Val(nilai_kehadiran.Text) + 0.15 * Val(Nilai_tugas.Text) + 0.35 * Val(Nilai_UTS.Text) + 0.4 * Val(Nilai_Uas.Text)
        Select Case Nilai_Akhir.Text
            Case 80 To 100
                huruf.Text = "A"
                ket.Text = "Lulus"
            Case 70 To 79
                huruf.Text = "B"
                ket.Text = "Lulus"
            Case 60 To 69
                huruf.Text = "C"
                ket.Text = "Lulus"
            Case 50 To 59
                huruf.Text = "D"
                ket.Text = "Gagal"
            Case 0 To 49
                huruf.Text = "E"
                ket.Text = "Gagal"
        End Select
    End Sub

    Private Sub nilai_kehadiran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilai_kehadiran.SelectedIndexChanged

    End Sub
End Class



setelah diketik jalankan program tersebut dengan menakan f5.
selamat  mencoba