Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Вычислить сумму кодов всех символов


Вычислить сумму кодов всех символов
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


В избранное