TUGAS VB 3

CARA MEMBUAT  DERET BARIS DI VB

VERSI

YAYAN NURYANA

 NPM:43A87067100022
D3\KA\M\3

CARA PERTAMA 

BIKIN  TEXT,COMMAND,LIST SEPERTI DI BAWAH INI

CARA KEDUA

KETIK SELURUHPERINTAH DI BAWAH INI

Dim a, i, n As Integer

Private Sub Command1_Click()

n = Text1.Text

i = 1

Do While i <= n

If i Mod 2 = 0 Then

List1.AddItem -1

Else

If i Mod 2 = 1 Then

List1.AddItem 1

End If

End If

i = i + 1

Loop

End Sub

Private Sub Command2_Click()

i = 1

n = Text2.Text

a = 1

m = -1

List2.Clear

Do While i <= n

m = m * -1

a = i * m * 2

List2.AddItem a

i = i + 1

Loop

End Sub

Private Sub Command3_Click()

a = 1

n = Val(Text3)

i = 1

Do While i <= n

List3.AddItem a

If a = 1 Then

a = 3

Else

a = a + 3

End If

i = i + 1

Loop

End Sub

Private Sub Command4_Click()

a = 2

n = Val(Text4)

i = 1

Do While i <= n

List4.AddItem a

a = a * a

i = i + 1

Loop

End Sub

CARA KE TIGA

SETELAH DI KETIK SEMUA,MAKA COBA JALANKAN PROGRAMNYA SEHINGGA TAMPIL SEPERTI BERIKUT:

 

TERIMA KASIH,WASALAM…………………..