ciclo con while

esercitazioni a livello didattico elementare per descrivere
e applicare sintassi varia con visual basic su powerpoint
descrizione, immagini, animazione presentazione.ppt
codice da copiare e incollare su form con oggetti creato
da utente
http://digilander.libero.it/francescovise/visualpre/visapre.htm

http://digilander.libero.it/francescovise/visualpre/while1.htm
http://digilander.libero.it/francescovise/visualpre/while1.ppt

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

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

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...