pro6

creare label1 e PULSANTE e inserirvi istruzioni

label1.......mostra s1

PULSANTE

Option Explicit

Private Sub CommandButton1_Click()
'iterazione e somma numeri
Dim k, s1 As Integer
s1 = 0
For k = 1 To 10
 s1 = s1 + k
  Next k
Label1.Caption = s1

End Sub

iterazione con FOR..DO......FOR...NEXT

creare label1 e due textbox PULSANTE:iserire istruzioni in PULSANTE

Option Explicit

textbox1....inserire inizio

textbox2....inserire fine

label1........visualizza risultato

PULSANTE con istruzioni


Private Sub CommandButton1_Click()
Dim k, inizio, fine, s1 As Integer
s1 = 0
inizio = TextBox1.Text
fine = TextBox2.Text
For k = inizio To fine
 s1 = s1 + k
  Next k
Label1.Caption = s1
End Sub

inizio