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

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

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


textual

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

    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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.800 из 5

Источник