Преобразование каждой четной букву в большую - VB

Узнай цену своей работы

Формулировка задачи:

Помогите написать прогу. Сам полный ноль в VB. вот задача: Дано слово ,чтобы каждая четная буква была большой(слово вроде как можно любое.)

Решение задачи: «Преобразование каждой четной букву в большую»

textual
Листинг программы
    Dim s As String, z As String, t As String, i As Integer
    s = "sdsfgfhgjkjhkjh"
    For i = 1 To Len(s)
        t = Mid(s, i, 1)
        z = z + IIf(i Mod 2 = 0, UCase(t), t)
    Next
    MsgBox z

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы