Menentukan Bilangan Ganjil Dan Genap Dengan VB 6.0



Buatlah Form Seperti Di Bawah Ini:

Memuat foto
Masukkan Listing Dibawah Ini:

Private Sub Command1_Click()
bil = Val(Text1)
If bil Mod 2 = 0 Then
ket = "GENAP"
Else
ket = "GANJIL"
End If
Text2 = ket
End Sub

Private Sub Command2_Click()
End
End Sub



Program ini dibuat oleh Heri Afrizal di bireuen

Komentar

Posting Komentar

Tulis komentar anda disini.....

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Program Mencari Bilangan Prima Dengan Vb 6.0

Cara Membuat File PDF dari Microsoft Word