cara mencari nilai akhir menggunakan vbner 2008

untuk desainnya seperti ini





untuk listting nya adalah seperti ini



Public Class Form1
    Private Sub buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonhapus.Click
        mk.Text = ""
        Dosen.Text = ""
        nm.Text = ""
        ns.Text = ""
        na.Text = ""

    End Sub

    Private Sub buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonproses.Click
        na.Text = 0.4 * nm.Text + 0.6 * ns.Text
    End Sub

    Private Sub buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonkeluar.Click
        End

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mk.items.add("pemograman visual")
        mk.Items.Add("PTI")
        Dosen.Items.Add("Toni Limbong,S.Kom M.Kom")
        Dosen.Items.Add("Sinar Sinurat S.T M.Kom")
    End Sub

    Private Sub nm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nm.TextChanged

    End Sub
End Class


Maka hasilnya akan seperti ini