iterazione7

iterazione con DO...loop until

vedi ppt

creare due pulsanti(inserire testo)
creare 1 listbox
usare dati prefissati

eseguire operazione di somma fino a quando il valore
della somma supera il valore prefissato q, partendo
dal numero k incrementato da +1



Private Sub commandbutton1_Click()
Dim k As Integer
Dim q As Integer
Dim somma As Integer
k = 10
q = 200
somma = 0
Do
somma = somma + k
ListBox1.AddItem ("k= " & k & " somma=   " & somma)
k = k + 1
Loop Until somma > q
End Sub

Private Sub commandbutton2_Click()
ListBox1.Clear
End Sub

vedi ppt esempio con inserimento dati da tastiera

creare due pulsanti(inserire testo)
creare tre label (inserire testo)
creare 1 listbox
creare 3 tetxbox

programma:inserire numero per iniziare somma (k)
numero per incremento (p) , limite massimo somma (q)

Private Sub commandbutton1_Click()
Dim k As Integer
Dim q As Integer
Dim p As Integer
Dim somma As Integer
k = TextBox1
q = TextBox2
p = TextBox3
somma = 0
Do
somma = somma + k
ListBox1.AddItem ("k= " & k & " somma=   " & somma)
k = k + p
Loop Until somma > q
End Sub

Private Sub commandbutton2_Click()
ListBox1.Clear
TextBox1 = ""
TextBox2 = Clear
TextBox3 = ""
End Sub

iterazione con ciclo Do While...Loop e Do..Loop until

per vedere ppt

itera8
uso di Do While...Loop e Do..Loop until

creare due pulsanti(inserire testo)
creare una label(nome automatico)

programma:esegue operazione di somma controllato da 
variazione di contatore o da valore massimo di somma fissato

codice da copiare e incollare


Option Explicit

Private Sub CommandButton1_Click()
Rem esegue iterazione fino a quando k < 10 '1,2,3,4,5,6,7,8,9,10 '
Dim k, somma As Integer
k = 0
somma = 0
Do While k < 10 ' itera fino a quando k risulta minore di 10: se lo supera cessa iterazione'
 k = k + 1
 somma = somma + k
 Label1.Caption = Label1.Caption & ("k= " & k & "  somma " & somma & vbCrLf)
 Loop
 Label1.Caption = Label1.Caption & ("-----seconda prova ---" & vbCrLf)
 End Sub

Private Sub CommandButton2_Click()
Rem esegue iterazione fino a quando la somma supera il valore fissato 100
Dim k, somma As Integer
k = 0
somma = 0
Do 'esegui fino a quando la somma risulta maggiore del limite fissato 100:se lo supera cessa iterazione'
k = k + 1
somma = somma + k
Label1.Caption = Label1.Caption & ("k= " & k & "  somma = " & somma & vbCrLf)
Loop Until somma > 100
End Sub