Forum Informatika

Sebagai contoh penerapan algoritma ganjil genap di:

http://if.web.id/algorithm-algoritma-logika-pemrograman/bilangan-ganjil-atau-genap-t825.0.html

Langkah2:
1. Buka 1 jendela (form) standalone
2. Pastikan di bagian properties, set AutoRedraw = true



3. Dobel klik form tersebut untuk memunculkan form Code.
4. Masukkan kode berikut:

Private Sub Form_Load()
    Dim bilangan As Integer
    bilangan = 4
   
    If bilangan Mod 2 = 0 Then
        Print bilangan & " adalah Genap."
    Else
        Print bilangan & " adalah Ganjil."
    End If
End Sub
Setelah dieksekusi, akan menghasilkan:



Silakan ganti isi variabel bilangan = 4 dengan bilangan apapun untuk mengujinya.

wah inget tugasnya pak galih kuliah dulu....