pro3

iterazione con FOR...DO.....pascal,VBA

PASCAL

program pro3;
uses crt;
var a,b,c,k:integer;
begin
clrscr;
a:=10;
b:=20;
c:=30;
for k:=1 to 5 do
 begin
  writeln(a+k);
  writeln(a*k);
  writeln('-------');
   end ;
for k:=1 to 3 do
 writeln(b+k);
 writeln('********');
for k:=1 to 3    do
 begin
  writeln(c+10);
  c:=c+1;
 end;
readln;
end.

RUN e visualizza

11
10
-------
12
20
-------
13
30
-------
14
40
-------
15
50
-------
21
22
23
********
40
41
42

VBA per EXCEL creare PULSANTE per istruzioni

Private Sub CommandButton1_Click()
Dim a, b, c, k As Integer
a = 10
b = 20
c = 30
For k = 1 To 5
 Cells(k, 1) = a + k
 Cells(k, 2) = a * k
 Next k
 For k = 1 To 5
  Cells(k, 3) = b + k
  Next k
   For k = 1 To 5
    Cells(k, 4) = c + 10
    c = c + 1
     Next k
     
End Sub

inizio