while1

esercitazione a livello didattico per sintassi con visual basic su powerpoint
esecuzione di un ciclo iterativo mediante While....Whend
il ciclo inizia con contatore k azzerato,esegue operazioni indicate,
incrementa il contatore k con 1, riprende esecuzione operazioni;
cessa quando contatore k supera limite imposto n

Option Explicit

Private Sub CommandButton1_Click() 'attiva operazioni'
Rem ciclo iterativo con While
Dim limite As Integer
limite = TextBox1.Text
Call controlla(limite)
CommandButton2.SetFocus
End Sub

Private Sub CommandButton2_Click() 'cancella numeri'
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton3_Click() 'cancella tutto'
ListBox1.Clear
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
End Sub


Public Sub controlla(n As Integer) 'esegue operazioni'

Dim k As Integer
Dim quadrato As Double
Dim radice As Double
Dim valore As Integer
n = TextBox1.Text 'limite imposto
k = 0 ' contatore azzerato
Rem esegue operazioni indicate fino a quando il contatore k
Rem risulta inferiore al limite imposto n
While k < n
valore = TextBox2.Text + k
quadrato = valore * valore
radice = Sqr(valore)
ListBox1.AddItem ("quadrato di " & valore & " = " & quadrato)
ListBox1.AddItem ("radice di " & valore & " = " & radice)
k = k + 1
ListBox1.AddItem (".............")
Wend
ListBox1.AddItem ("-----------------")
End Sub

vedi while1.ppt