Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Somma cifre - Form1.frm

Form1.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Dim vet(1 To 10) As Integer, c As String, l As Integer
  2. Private Sub Command1_Click()
  3.  If Text1.Text <> "" And IsNumeric(Text1.Text) Then
  4.   l = Len(Text1.Text)
  5.   For i = 1 To l
  6.   c = Int(Mid(Text1.Text, i, 1))
  7.   vet(i) = c
  8.   Next i
  9.   For i = 1 To l
  10.   somma = somma + vet(i)
  11.   Next i
  12.   Text1.Text = somma
  13.   Else
  14.   Text1.Text = ""
  15.   Text1.SetFocus
  16.    End If
  17. End Sub