pro8

ciclo iterativo con WHILE....DO...LOOP..

TURBO PASCAL..stampa somma primi 10 numeri

program ciclo3;
uses crt;
var k,somma:integer;
begin
clrscr;
somma:=0;
k:=0;
 while k<10 do
  begin
  somma:=somma+k;
  k:=k+1;
  writeln(somma);
  end;
  readln;
  end.

RUN e visualizza risultato

0.1.3.6.10.15.21.28.36.45

VBA per EXCEL

creare PULSANTE e inserirvi istruzioni

Option Explicit

Private Sub CommandButton1_Click()
Dim k, somma As Integer
somma = 0
k = 1
somma = 0
Do While k < 10
 somma = somma + k
 k = k + 1
 Cells(k, 2) = somma
 Loop
 
End Sub

cliccare su PULSANTE:vengono stampati i valori nelle celle B1..B10

	A	B
1		1
2		3
3		6
4		10
5		15
6		21
7		28
8		36
9		45
10
11

VISUAL BASIC

creare label1 per visualizzare i dati,PULSANTE e inserirvi istruzioni:appare anche MsgBox con risultati parziali

label1 ove appaiono i risultati

PULSANTE con istruzioni

MsgBox con valori intermedi

Option Explicit

Private Sub CommandButton1_Click()
Dim k, somma As Integer
k = 1
somma = 0
Do While k < 10
 somma = somma + k
 k = k + 1
 MsgBox (somma)
 Label1.Caption = somma
 Loop
 Label1.Caption = somma
 
End Sub

inizio