membuat deret pada vb


Membuat deret pada vb

Buat form seperti berikut
ujung harapan
klik 2 kali pada command1

dan masukan seperti berikut

Private Sub Command1_Click()
Dim a, b, c, d, e, f As Integer
For a = 1 To Val(Text1.Text)
For b = 1 To a
Print “*”;
Next b
Print
Next a
For c = Val(Text1.Text) – 1 To 1 Step -1
For d = 1 To c
Print “*”;
Next d
Print
Next c
End Sub

dan command 2 seperti berikut

Private Sub Command2_Click()
Cls
Text1.Text = “”
End Sub

Misal text box di isi 4
Diagram alur

A…..B………..output
1…..1…………1
2…..12………12
3…..123…….123
4…..1234…..1234

C…..D……….output
3…..123…..123
2…..12……..12
1…..1……….1

Jasi hasli output nya

1 namun pada program yang ditampilkan dalam bentuk buntang (“*”)
12
123
1234
123
12
1

Berikut hasil program
ujung harapan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Zoemalang's community

ujung malang adalah Sebuah desa yang hilang terganti dengan ujung harapan

YoYo Games Blog Feed

Ujung malang adalah Sebuah desa yang hilang terganti dengan ujung harapan

Dealer Termurah

Menjual Segala Jenis Motor Baru Di Indonesia Cash Maupun Kredit

%d blogger menyukai ini: