Tipe 1
Private Sub
Command1_Click()
x = Val(Text1)
For i = 1 To x
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub
For i untuk
menginput angka 1 sampai x
For j untuk
menginput angka 1 sampai i
Jika x = 8 maka
Print j akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya,
setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai
dengan nilai x.
Tipe 2
Private Sub
Command2_Click()
x = Val(Text1)
For i = x To 1
Step -1
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub
For i untuk
menginput angka x sampai 1 dan selanjutnya dikurang 1
For j untuk
menginput angka 1 sampai i
Jika x = 8 maka
Print j akan mencetak angka 8, kemudian Next j akan mencetak angka selanjutnya,
setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai
dengan angka 1.
Tipe 3
Private Sub
Command3_Click()
x =
Val(Text1.Text)
For a = 1 To x
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub
For a untuk
menginput angka 1 sampai x
For b untuk
menginput angka 1 sampai a
Jika x = 8 maka
Print a akan mencetak angka 1, kemudian Next b akan mencetak angka selanjutnya
sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan
berulang sampai dengan nilai x.
Tipe 4
Private Sub
Command4_Click()
x =
Val(Text1.Text)
For a = x To 1
Step -1
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub
For a untuk
menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk
menginput angka 1 sampai a
Jika x = 8 maka
Print a akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya
sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan
berulang sampai dengan angka 1.
Tipe 5
Private Sub
Command5_Click()
x =
Val(Text1.Text)
For i = 1 To x
For j = i To 1
Step -1
Print j;
Next j
Print
Next i
End Sub
For i untuk
menginput angka 1 sampai x
For j untuk
menginput angka i sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka
Print i akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya,
setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai
dengan nilai x.
Tipe 6
Private Sub
Command6_Click()
x =
Val(Text1.Text)
For a = x To 1
Step -1
For b = a To 1
Step -1
Print b;
Next b
Print
Next a
End Sub
For a untuk
menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk
menginput angka a sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka
Print b akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya,
setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai
dengan angka 1.
Clear
Private Sub
Command7_Click()
Form1.Cls
Text1.Text =
""
End Sub
Form1.Cls untuk
menghapus seluruh cetakan yang berada di Form1
Text1.Text =
"" untuk menghapus input yang berada di Text1
Postingan
21 Mei 2013 pukul 05.34
thanks atas pembelajaran...