Jadilah Anggota smaneka untuk mendapatkan informasi terkini di smaneka.tk, yuk...

Minggu, 06 September 2009

Odd or Even Script


Private Sub Command1_Click()
Dim a
a = Text1.Text
Dim b
b = a / 2
Dim c
c = Int(b)


If b = c Then
Label1.Caption = "Odd: False"
Label2.Caption = "Even: True"
Text1.Text = a
Text1.SetFocus

Else
Label1.Caption = "Odd: True"
Label2.Caption = "Even: False"
Text1.Text = a
Text1.SetFocus

End If
End Sub



Tidak ada komentar:

 
Minima 4 coloum Blogger Template by Beloon-Online.
Simplicity Edited by Ipiet's Template