membuat bilangan prima dari vb.net

Dim A, B, C As Integer
Private Sub PERIKSA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PERIKSA.Click
A = Val(TXT1.Text)
If A < 2 Then TXT2.Text = "NOT PRIMA"
ElseIf A = 2 Then
TXT2.Text = "IS PRIMA"
Else
B = 2
Do
C = A Mod B
If C <> 0 Then
B = B + 1
Else
TXT2.Text = " NOT PRIMA"
B = B + A
End If
Loop Until B >= A
If A = B Then
TXT2.Text = "IS PRIMA"
End If


End If
End Sub
End class

membuat bilangan prima dari vb.net

Dim A, B, C As Integer
Private Sub PERIKSA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PERIKSA.Click
A = Val(TXT1.Text)
If A < 2 Then TXT2.Text = "NOT PRIMA"
ElseIf A = 2 Then
TXT2.Text = "IS PRIMA"
Else
B = 2
Do
C = A Mod B
If C <> 0 Then
B = B + 1
Else
TXT2.Text = " NOT PRIMA"
B = B + A
End If
Loop Until B >= A
If A = B Then
TXT2.Text = "IS PRIMA"
End If


End If
End Sub
End class

membuat pohon natal dari vb.net menggunakan console

UNTUK BUAT POHON NATAL DI VB.NET (WINDOWS APPLICATION)
DESIGN 2 BUAH TEXT BOX 1 BUTTON
KLIK 2 KALI DIBUTTON, KEMUDIAN MUNCUL FORMNYA...
LALU KETIK
TANGKA.TEXT =""
DIM A AS INTEGER
DIM B AS INTEGER
FOR A = 1 TO TANGKA.TEXT
FOR B = 1 TO TANGKA.TEXT + A -1
IF B > TANGKA -A THEN
THASIL.TEXT &="*"
ELSE
THASIL.TEXT &=" "
END IF
NEXT B
IF B = TANGKA + A - 1 THEN
THASIL.TEXT &= VBCRLF
END IF
NEXT A
FOR A = 1 TO CINT (TANGAKA / 2)
FOR B = 1 TO TANGKA -2
THASIL.TEXT &= " "
NEXT B
TASIL.TEXT &= "[ ]" & VBCRLF
NEXT A
END SUB
END CLASS

bilanagn genap and ganjil dari vb.net menggunakan console

UNTUK CONSOLE
DIM A AS INTEGER
FOR A TO 100
IF A MOD 2 = 0 THEN
CONSOLE.WRITELINE(a & ": ADALAH BILANGAN GENAP")
ELSE
CONSOLE.WRITELINE(a & ": ADALAH BILANGAN GANJIL")
END IF
READLINE ()
NEXT A
SELAMAT MENCOBA....
SEKIAN TERIMA KASIH...

bilanagn genap and ganjil dari vb.net menggunakan console

UNTUK CONSOLE
DIM A AS INTEGER
FOR A TO 100
IF A MOD 2 = 0 THEN
CONSOLE.WRITELINE(a & ": ADALAH BILANGAN GENAP")
ELSE
CONSOLE.WRITELINE(a & ": ADALAH BILANGAN GANJIL")
END IF
READLINE ()
NEXT A
SELAMAT MENCOBA....
SEKIAN TERIMA KASIH...