|
Dim vet(1 To 10) As Integer, c As String, l As Integer
Private Sub Command1_Click()
If Text1.Text <> "" And IsNumeric(Text1.Text) Then
l = Len(Text1.Text)
For i = 1 To l
c = Int(Mid(Text1.Text, i, 1))
vet(i) = c
Next i
For i = 1 To l
somma = somma + vet(i)
Next i
Text1.Text = somma
Else
Text1.Text = ""
Text1.SetFocus
End If
End Sub
|
|