uso di While Wend
Rem iterazione con While Wend
vedi formato11.xls
Private Sub CommandButton1_Click()
Rem formato11
Rem iterazione con While Wend
Dim numero, somma, k, n As Integer
n = TextBox1.Text
somma = 0
numero = TextBox2.Text
While numero <= 2 * n
ListBox1.AddItem (numero)
somma = somma + numero
numero = numero + 2
Wend
If numero Mod 2 <> 0 Then
ListBox1.AddItem ("somma numeri dispari") & "
= " & somma
Else
ListBox1.AddItem ("somma numeri pari") & " =
" & somma
End If
End Sub
Private Sub CommandButton2_Click()
Rem cancella
TextBox1 = ""
TextBox2 = ""
ListBox1.Clear
End Sub