Menampilkan Faktorial Suatu Bilangan

Partial Class Faktor
Inherits System.Web.UI.Page

Private Function Faktorial(ByVal Angka As Integer) As Integer
If Angka = 0 Or Angka = 1 Then
Return 1
Else
Return Angka * Faktorial(Angka - 1)
End If
End Function

Protected Sub BtFaktorial_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtFaktorial.Click
Dim hasil As Integer = 1
Dim Angka As Integer
Angka = CInt(Me.TbInputAngka.Text)
hasil = Faktorial(Angka)
Me.LbAngka.Text = CInt(Angka)
Me.LbFaktorial.Text = CStr(hasil)
End Sub

End Class

Program untuk Menampilkan Faktorial

Menampilkan Bilangan Prima

Kemaren malam gak bisa tidur karena terlalu capek, iseng-iseng aja aku bikin algoritma untuk menampilkan bilangan prima pake bahasa Visual Basic .Net … Yah itung-itung belajar soalnya saya slalu di bilang programmer kok nda bisa bikin bilangan prima hehehe… Sttttssss… Rahasia ya … Semoga saja hasilnya tidak buruk …

Sebenernya kenapa saya berusaha keras untuk belajar membuat algoritma ini karena algoritma bilangan prima, faktorial, fibonacci dan kawan-kawan merupakan dasar dari pemrograman. Itu lah sebab saya slalu dianggap nda paham pemrograman karena tidak paham algoritma menampilkan bilangan prima hehehehe…