0 / 0 / 0
Регистрация: 23.11.2018
Сообщений: 1
1

Во введенном тексте все строчные буквы латинского алфавита заменить прописными

23.11.2018, 01:46. Показов 742. Ответов 3
Метки нет (Все метки)

Доброго времени суток! Возникли проблемы с написанием программы в Visual Basic.
****
в введенном тексте все строчные буквы латинского алфавита заменить прописными.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2018, 01:46
Ответы с готовыми решениями:

В тексте все строчные буквы латинского алфавита и кириллицы заменить прописными
В некотором тексте все строчные буквы латинского алфавита и кириллицы заменить прописными.

Во введенном тексте удалить все гласные буквы латинского алфавита
1. Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита,...

Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита
Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита,...

Дан текст из строчных и заглавных букв латинского алфавита. Заменить все строчные буквы заглавными, а заглавные - строчными
Дан текст из строчных и заглавных букв латинского алфавита. Заменить все строчные буквы заглавными,...

3
Модератор
Эксперт функциональных языков программированияЭксперт Python
33826 / 18858 / 3975
Регистрация: 12.02.2012
Сообщений: 31,630
Записей в блоге: 12
24.11.2018, 17:06 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
Function eng2cap(S as string) As string
  for i%=1 to len(S)
       a$=mid$(S,i%,1)
       if Instr("qwertyuiopasdfghjklzxcvbnm",a$)>0 then
          eng2cap=eng2cap+Ucase$(a$)
       else
          eng2cap=eng2cap+a$
       end if
  next i%
End Function
0
4037 / 1422 / 394
Регистрация: 07.08.2013
Сообщений: 3,538
24.11.2018, 17:52 4
можно воспользоваться StrConv()
выглядеть будет примерно так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub macro1()
Dim asd$, asd1$, a$, b$
asd1 = ""
asd = "qQwErRУкфФ123"
For i = 1 To Len(asd)
      a = Mid(asd, i, 1)
      b = StrConv(a, 2, 1033)
      If b = "?" Then
             asd1 = asd1 & a
      Else
             asd1 = asd1 & b
      End If
Next i
MsgBox asd1
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2018, 17:52
Помогаю со студенческими работами здесь

В заданном тексте заменить все заглавные буквы русского алфавита на строчные
Составить программу, которая в заданном тексте заменяет все заглавные буквы русского алфавита на...

В заданной строке преобразовать все заглавные буквы латинского алфавита в строчные а строчные в заглавные
1. В заданной строке преобразовать все заглавные буквы латинского алфавита в строчные а строчные в...

Вывести в порядке возрастания кодов все строчные буквы латинского алфавита
Помогите пожалуйста зарешать Выведите в порядке возрастания кодов все строчные буквы латинского...

Вывести на экран все строчные буквы латинского алфавита в обратном порядке
1.Вывести на экран минимальное значение двух чисел. 2.Для последовательности целых чисел a,b,c все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru