Вычислить сумму кодов всех символов
2009-12-08 07:00 Александр
Вычислить сумму кодов всех символов
Private Sub Form_Load()
Dim sum As Integer, txt As String
txt = "Я уже кое-что понимаю в Visual Basic!"
For i = 1 To Len(txt)
sum = sum + Asc(Mid(txt, i, 1))
Next
MsgBox "Сумма кодов символов - " & sum
End Sub