Распечатка программного кода

Private Sub CmdProcess_Click()

Dim St As String

Dim Sum As Integer

St = TextSt.Text

Sum = 0

For I = 1 To Len(St)

If Mid(St, I, 1) >= "0" And Mid(St, I, 1) <= "9" Then

Sum = Sum + Val(Mid(St, I, 1))

End If

Next I

LbRez.Caption = LbRez.Caption + Str(Sum)

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

Распечатка результатов выполнения

Вводимый текст: А=4; Б=7; В=3

Результат: 14

Литература и Internet-ресурсы

1. http://wintech.net.ru/microsoft-office/office-2007/399-sozdanie-formy-v-word-2007.html

2. http://copy.yandex.net/?text=%D0%98%D1%81%D0%BF%D0%BE%D0%BB%D1%8C%D0%B7%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5%20%D1%8D%D0%BA%D1%80%D0%B0%D0%BD%D0%BD%D0%BE%D0%B9%20%D1%84%D0%BE%D1%80%D0%BC%D1%8B%20%D0%B2%20Excel&url=http%3A%2F%2Fwww.fem-sut.spb.ru%2Fdownloads%2Fdoc_download%2F13---excel&fmode=envelope&lr=213&mime=doc&l10n=ru&sign=aa063df4931ce7e7312af4dea47391a2&keyno=0