1. Desain dari form dan kontrol lainnya seperti gambar berikut:













2. Setting dari masing-masing kontrol sebagai berikut:

TextBox1  dengan name Txt_Data
Command1 dengan name Cmd_Proses

3. Selanjutnya ketik listing program berikut ini :
 
 Private Sub Cmd_Proses_Click()
Dim Bil(100) As Integer, N As Integer
N = Val(Txt_Data.Text)
Form1.Cls
For A = 1 To N
Bil(A) = InputBox("Masukan data ke : " & A)
Next A
For B = 1 To N
       Print Bil(B) & " = ";
       For C = 1 To Bil(B)
       Print " * ";
       Next C
       Print
Next B
End Sub

4. Buat prosedur data dan ketikkan listing program untuk menggerakkan pointer ke tombol PROSES :

Private Sub Txt_Data_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmd_Proses.SetFocus
End If
End Sub

5. Sekarang Jalankan programnya dengan menekan tombol F5 lalu isikan datanya.