Посчитать сумму порядковых номеров букв слова, введённого пользователем

@makc0993 · Регистрация: 21.04.2012

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста. Это код программы который должен считать сумму порядковых номеров букв слова, введённого пользователем. Но при вводе букв в Textbox1, не выводится значение в Textbox2. В чем проблема?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Load()
   Text2.Locked = True
End Sub
Private Sub Text1_Change()
  Dim a As String, num As Integer, i As Integer
  a = Text1.Text
  For i = 1 To Len(a)
    num = num + Letter_Number(Mid(a, i, 1))
  Next i
  Text2.Text = CStr(num)
End Sub
Private Function Letter_Number(a As String) As Integer
    Letter_Number = InStr(1, "абвгдеёжзийклмнопрстуфхцчшщъыьэюя", LCase(a))
End Function
 
End Sub

SoftIce · 12.05.2012, 10:32

16-ю строку убери

.

@makc0993 · 12.05.2012, 13:25 **[ТС]**

Если бы было так просто, то не создавал бы тему. Дело в другом!

@Апострофф · 12.05.2012, 13:44

makc0993, а ты раскладку клавы переключить на кириллицу не пробовал?
У меня твой код вполне сносно пашет!

@Linoge · 12.05.2012, 14:00

Добавь

Visual Basic
1
2
3
4
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 8 Or KeyAscii >= 192 And KeyAscii <= 221 _
Or KeyAscii >= 224 And KeyAscii <= 255) Then KeyAscii = 0
End Sub

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.05.2012, 10:32
	16-ю строку убери . 0

@makc0993 6 / 2 / 4 Регистрация: 21.04.2012 Сообщений: 35
	12.05.2012, 13:25 [ТС]
	Если бы было так просто, то не создавал бы тему. Дело в другом! 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,907
	12.05.2012, 13:44
	makc0993, а ты раскладку клавы переключить на кириллицу не пробовал? У меня твой код вполне сносно пашет! 0