Untuk membuat aplikasi menentukan bilangan genap atau ganjil, maka lakukanlah langkah-langkah berikut:
  1. Buat project baru menggunakan Standard EXE.
  2. Pada Form1, tambahkan komponen-komponen: 2 Label, 2 TextBox dan 1 CommandButton.
  3. Isilah properti sesuai nilai berikut:
    • Object Property Nilai
      Form1 StartUpPosition 2 – CenterScreen
      Label1 Caption
      Font
      Bilangan
      Size:12
      Label2 Caption
      Font
      Keterangan
      Size:12
      Text1 Font
      Text
      Size:12
      (kosongkan)
      Text2 Font
      Text
      Size:12
      (kosongkan)
      Command1 Caption
      Font
      Caption
      Size:12
  4. Click Command1, tambahkan program untuk mengecek apakah bilangan yang dimasukkan bilangan genap atau ganjil dengan cara : “Jika bilangan habis dibagi dua maka bilangan tersebut genap, jika tidak bilangan tersebut ganjil”.
  5. Private Sub Command1_Click()
    bil = Val(Text1)
    If bil Mod 2 = 0 Then
    ket = "GENAP"
    Else
    ket = "GANJIL"
    End If
    Text2 = ket
    End Sub
    Tampilannya seperti berikut:
  6. Simpan project ini dengan memilih menu[File] >> [Save Project].
  7. Jalankan program dan uji dengan beberapa bilangan.

Sumber:
Basuki Achmad, 2006, Algoritma Pemrograman 2 Menggunakan Visual Basic 6.0, Institut Teknologi Sepuluh Nopember, Surabaya.