Jumat, 25 Januari 2008

PERKULIAHAN VISUAL BASIC 1


Private Sub Command1_Click()

List1.Clear

B = 0

C = 1

For A = 1 To 10

D = B + C

B = C

C = D

List1.AddItem A & " ANGKA :" & D

Label1.Caption = D

Next A

End Sub


Private Sub Command2_Click()

List1.Clear

B = 1

C = 2

Do While C <= 55

D = B + C

List1.AddItem "ANGKA :" & D

B = C

C = D

Loop

End SubPrivate Sub Command3_Click()

List1.Clear

B = 2

C = 3

Do Until C = 89

D = B + C

List1.AddItem "ANGKA :" & D

B = C

C = D

Loop
End Sub


Private Sub Command4_Click()

Unload Me

End Sub

Tidak ada komentar: