EJEMPLO #2 DEL CICLO FOR

CODIFICACIÓN

PSEUDOCODIGO

Private Sub Command1_Click()

 Dim result, resulta As Double 

result = Val(Text1.Text) * (60) 

Text2.Text = Str(result) 

resulta = Val(Text2.Text) * (60) 

Text3.Text = Str(resulta) 

End Sub 

Private Sub Command2_Click() 

End 

End Sub 

DIAGRAMA