1. Buka software Visual Basic 6.0
2. Pilih Standard EXE lalu klik Open
3. Desain Form seperti ini
4. Klik 2 kali pada Form dan paste kode ini
Private Sub CmdBersih_Click(Index As Integer)
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdProses_Click()
Dim a, b, i As Integer
i = 1
b = Text1.Text
For a = 1 To b
i = i * a
Next
Text2.Text = i
End Sub
5. Jalankan program dengan menekan F5, maka tampilannya akan seperti ini
Download Program Faktorial Visual Basic 6.0 dilink dibawah ini
No comments:
Post a Comment