Visual Basic
-----------------------------
Kod:
-----------------------------
Kod:
Kod:
'Kullanılan Nesneler
'CommandButton
Private Sub Form_Load()
command1.Caption="BAŞLA BAKALIM
End Sub
Private Sub Command1_Click
Dim j,k
For k=1 to 800
For j=1 to 50
Command1.Caption=j
Next
Next
End Sub