Kamis, 12 Mei 2011

Bilangan Genap, Ganjil, dan Prima

Jika Anda membutuhkan kode untuk mengetahui bilangan itu genap, ganjil, atau prima,
berikut contoh potongan kodenya :

Bilangan Genap atau Ganjil
Dim a As Integer
a = 12 'contoh

If a Mod 2 = 0 Then
MsgBox "Nilai a adalah Genap"
Else
MsgBox "Nilai a adalah Ganjil"
End If

Bilangan Prima atau tidak
Ketikkan fungsi berikut di bagian '(Declarations)' dari Form.
Function Prima(ByVal Angka As Integer) As Boolean
If Angka < 2 Then Exit Function
Dim i As Integer
Prima = True
For i = 2 To (Angka - 1)
If Angka Mod i = 0 Then
Prima = False
Exit For
End If
Next
End Function
Contoh penggunaan
Dim a As Integer
a = 11 'contoh

If Prima(a) Then
MsgBox "Nilai a adalah Prima"
Else
MsgBox "Nilai a adalah Tidak Prima"
End If

Label: , ,

0 Komentar:

Poskan Komentar

Pengunjung yang baik selalu meninggalkan jejak berupa komentar. :)

Berlangganan Poskan Komentar [Atom]

Link ke posting ini:

Buat sebuah Link

<< Beranda