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

Cara Membuat Form PHP menggunakan Adobe Dreamweaver CS5

Cara Membuat Halaman Statis di Blog Blogspot