You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Example14: write a program to print the multiplication table.<br />
Sol:<br />
Dim I, j As Integer<br />
Private Sub command1_click()<br />
For I = 1 To 10<br />
For j = 1 To 10<br />
p = I * j<br />
Print I; "*"; j; "="; p,<br />
Next j<br />
Print<br />
Next I<br />
End Sub<br />
Example15: write a program to generate the numbers in the following form.<br />
1<br />
1 2<br />
1 2 3<br />
1 2 3 4<br />
1 2 3 4 5<br />
Sol:<br />
Dim I, j As Integer<br />
Private Sub command1_click()<br />
For I = 1 To 5<br />
For j = 1 To i<br />
Print j;<br />
Next j<br />
Print<br />
Next I<br />
End Sub<br />
53