Menentukan Bilangan Ganjil Dan Genap Dengan VB 6.0
Buatlah
Form Seperti Di Bawah Ini:
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
Mencari Bilangan genap dan ganjil dengan VB.NET | Belajar dan berbagi Tutorial Visual Basic
BalasHapus