Sunday, October 3, 2010

Repetition For..Next the visual basic

you first open the vb 6after the open it would appear from this

Private Sub Form_Activate()
Dim j As Integer

For j = 1 To 15
Print j; Chr(j + 65); Chr(122 - j);

Next

outputnya :


Download Fromnya


Another example
:

Private Sub Form_Activate()
Dim j As Integer, k As integer

For j = 9 To 1 Step -1
For k = 1 To j
Print j; Chr(64 + k);
Next
Print
Next

outputnya :

Download Fromnya

Another example :Private Sub Form_Activate()
Dim j As Integer, k As integer
For j = 80 To 70 Step -1
Print j; j + 5;
Next
End Sub
outputnya :


Download Fromnya