pro7

iterazione con FOR..DO......FOR...NEXT


TURBO PASCAL

program ciclo2;
uses crt;
var k,inizio,fine,s1:integer;
begin
clrscr;
s1:=0;
write('inizio=');readln(inizio);
write('fine=');readln(fine);
for k:=inizio to fine do
 s1:=s1+k;
writeln('somma=',s1);
readln;
end.

RUN e visualizza

inizio=5

fine=10

somma=45


VBA per EXCEL

creare PULSANTE e inserirvi istruzioni

PULSANTE

scrivere valori per inizio e fine in celle B2,B3 poi cliccare su PULSANTE:viene stampato in E5 s1

  A B C D E
1          
2   5      
3   10     45
Option Explicit

Private Sub CommandButton1_Click()
Dim k, inizio, fine, s1 As Integer
s1 = 0
inizio = Cells(2, 2)
fine = Cells(3, 2)
For k = inizio To fine
 s1 = s1 + k
  Next k
Cells(3, 5) = s1
End Sub

VISUAL BASIC

creare label1 e due textbox PULSANTE:iserire istruzioni in PULSANTE

Option Explicit
textbox1....inserire inizio
textbox2....inserire fine
label1........visualizza risultato
PULSANTE con istruzioni

Private Sub CommandButton1_Click()
Dim k, inizio, fine, s1 As Integer
s1 = 0
inizio = TextBox1.Text
fine = TextBox2.Text
For k = inizio To fine
 s1 = s1 + k
  Next k
Label1.Caption = s1
End Sub

inizio