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