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

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

Помогите написать прогу. Сам полный ноль в 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.800 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы