pro8

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

VISUAL BASIC

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

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