for

<?php
for ($i = 1; $i <= 5; $i++) { print $i ."
";
}

$bila = 5;
$pola = 1;

print "
Bilangan ganjil antara 5 sampai 25
";
for ($pola=1; $pola<10; $pola++) { $bila += 2; print "$bila
";
}

?>

Baca Selengkapnya......

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

Baca Selengkapnya......