При выводе любого слова букву "а" сделать заглавной - VB

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

Привет всем) Подскажите, пожалуйста. Как сделать так, чтобы при выводе любого слова буква "а" становилась заглавная.? И вопрос номер два. Как сделать так, чтобы при выводе тоже, любого слова каждая его третья буква становилась заглавной?) Заранее спасибо)

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

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
        Me.Text1.Text = up3(Me.Text1.Text)
End Sub
 
Function up3(S As String) As String
   n% = Len(S)
   up3 = S
   For i% = 3 To n% Step 3
       Mid$(up3, i%, 1) = UCase$(Mid$(up3, i%, 1))
   Next i%
End Function
 
Private Sub Command2_Click()
   Unload Me
End Sub
                        

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

12 голосов , оценка 4 из 5

Похожие ответы