pro9

iterazione con REPEAT..UNTIL.....DO..LOOP UNTIL

VISUAL BASIC

creare label1 per visualizzarvi risultati e PULSANTE per inserire istruzioni:compare anche MsgBox ove vengono visualizzati risultati intermedi

Option Explicit

Private Sub CommandButton1_Click()
Dim k, somma As Integer
k = 1
somma = 0
Do
somma = somma + k
k = k + 1
Label1.Caption = somma
MsgBox (somma)
Loop Until somma > 100
End Sub

inizio