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