Belajar Mandiri 4C kel 2

Untuk perkuliahan praktikum kelas 4 C kel 2 APIKES Citra Medika Surakarta diisi dengan belajar mandiri di laboratorium dengan mengerjakan soal berikut ini :
Gunakan perulangan for next untuk mendapatkan hasil berikut :
1. buatlah program menghitung bilangan faktorial

kode program :
Dim n As Integer
Dim hasil As Long
Dim i As Byte
Private Sub cmdHitung_Click()
n = Val(txtBil)
hasil = 1
For i = 1 To n
hasil = hasil * ia
Next
lblHasil = Str(hasil)
2. Buatlah program untuk menampilkan deret bilangan
Input : 5
setelah ditekan tombol "TAMPIL"  maka outputnya akan tampil di dalam list box
1
12
123
1234
12345
Gunakan perulangan for next dengan dua variabel index ( misal i dan j )
hasil praktikum disimpan di folder masing2 dengan nama fornext_nim