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

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

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

Код к задаче: «При выводе любого слова букву "а" сделать заглавной - 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.000 из 5


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