- Buat 2 label
- Buat 2 textbox
- Buat 1 buah command
berikut adalah listing/source codenya :
double klik pada command1/tombol_hitung lalu isi dengan listing/source berikut :
Private Sub Command1_Click()
Dim x As Double
x = 1
For i = 1 To Text1.Text
x = x * i
Next i
Text2.Text = x
End Sub
double klik pada command2/tombol_baru lalu isi dengan listing/source berikut :
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
End Sub
double klik pada command3/tombol_keluar lalu isi dengan listing/source berikut :
Private Sub Command3_Click()
Unload Me
End Sub
Selamat mencoba.......
apa itu i mas bro maksudnya
BalasHapusLalu kalo saya ambil bilangan bulat negatif apa jadinya??
BalasHapusKan Integer gak hanya integer positif mas,, negatif juga termasuk..