[решено] Помогите с задачкой на VB!

[Dim]

Всем привет!
Я в школе работаю, решил детям вот такую задачку дать на Visual Basic:
Написать программу, печатающую на экране все символы веденного предложения, кроме символа "в".

Собственно код:
Private Sub Command1_Click()
Dim a As String
Dim c As String
Dim b As Integer
a$ = Text1.Text
b = 1
While b < Len(a$)
c$ = Mid(a$, b, 1)
If c <> "в" Then Form1.Print c$;
b = b + 1
Wend
End Sub

Результат в аттаче.

И вопрос: куда девается последний символ? так должно быть, или я чего-то недопонимаю?

[Delirium]

While b < Len(a$) »
А почему не меньше либо равно? b <= Len(a$)? Вы же как раз тут и теряете последний символ.

[Dim]

Помогло.
Большое Вам спасибо! :good:

[Delirium]

Dim, для спасибо есть такая кнопочка под ответом - "полезное сообщение" :)

[Pliomera]

или я чего-то недопонимаю? »

Вы действительно чего-то недопонимаете.
Весь Ваш код записывается одним-единственным оператором:

Private Sub Command1_Click()
Form1.Print Replace(Text1, "в", "")
End Sub

Вы же нафигачили туда аж три переменных разных типов и цикл.
Вы просто сами не знаете предмета, которому пытаетесь учить детей, и засираете им мозги, сорри, накипело...

[Delirium]

Зря ты так к человеку. Не обязательно записывать все одним оператором, школьники должны еще и циклы знать и переменные. Если смогут сделать проще, честь им и хвала :)

[Pliomera]

Delirium, согласен, погорячился.
Dim, приношу свои извинения за резкость.

Просто работать с такими "учениками" - сплошное мучение. И тратить личное время на "переучивание" таких "учеников" - не фонтан. И "переучиванию" они практически не поддаются.

[Artjem]

Доброго времени суток!
К сожалению я не знаком с VB, но есть опыт по другим языкам!
Может быть Вы подсчитываете количество символов в предложении, но не учитываете, что последний символ - это символ конца строки (по-крайней мере в ассемблере так). Попробуйте указать количество символов в предложении на один больше, и у Вас скорее всего всё получится!
Удачи!

[Admiral]

Artjem, в VB для элемента Text1 понятия конца строчки как такового нет.
Тут другой момент, нумерация массива в VB начинается с 1, а не с 0. По этому, как заметил Delirium нужно включать граничное значение, а не только брать меньше него.

[Pliomera]

нумерация массива в VB начинается с 1, а не с 0. »
Опа-на! С чего это вдруг? По умолчанию, как раз-таки с 0. Можно задать нумерацию массива с единицы принудительно - используя в декларативной части любого модуля конструкцию Option Base 1

В рассматриваемом случае массивы вообще не при чем, есть совершенно четко и ясно описанный синтаксис оператора Len, возвращающий длину строки в символах.