Di bawah ini adalah salah satu contoh Program untuk menentukan Nilai Dari Mahasiswa dengan mengunakan IF tunggal dengan menggunakan Visual Studio 2008 dengan Bahasa pemrogman Visual Basic.

Buat Form Seperti Di bawah ini dan pastikan name dari yang diberi petunjuk sesuai dengan yan anda buat :



kemudian paste kan perintah pemrograman di bawah ini :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("1011054")

        npm.Items.Add("1011058")

        npm.Items.Add("1011098")

        npm.Items.Add("1011078")

        matakuliah.Items.Add("Agama")

        matakuliah.Items.Add("Kalkulus")

        matakuliah.Items.Add("Assembler")

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        matakuliah.Text = ""

        nilai.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Dim xket As String

        xket = "Gagal"

        If nilai.Text >= 50 Then xket = "lulus"

        keterangan.Text = xket

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        If npm.Text = ("1011054") Then nama.Text = ("Andri Hadi")

        If npm.Text = ("1011058") Then nama.Text = ("Rahmad")

        If npm.Text = ("1011098") Then nama.Text = ("Hadi")

        If npm.Text = ("1011078") Then nama.Text = ("Andi")

    End Sub

End Class

kemudian lihat hasilnya dengan menekan F5 pada keyboard komputer anda.