Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18

Дано слово длиной 4 символа. Определить, является ли первый или последний символ слова буквой "А"

03.12.2012, 20:08. Показов 3262. Ответов 15
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Помогите пожалуйста, тему пропустил и осмыслить не смог, знаю, что эллементарная вещь, но никто помочь не хочет.
Дано слово длиной 4 символа. Определить, является ли первый или последний символ слова буквой "А". Напечатать соответствующие сообщения.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 03.12.2012, 20:08
Ответы с готовыми решениями:

Дано слово на Английском языке.После каждого гласного символа встав те символ “ * ”. Удалите последний гласный символ в слове.Если в слове нет гласных
Дано слово на Английском языке.После каждого гласного символа встав те символ “ * ”. Удалите последний гласный символ в слове.Если в слове...

Дано слово на английском языке.После каждого гласного символа встаньте символ <*>.удалите последний гласный символ в слове.если в слове нет,то выведит
Дано слово на английском языке.После каждого гласного символа встаньте символ &lt;*&gt;.удалите последний гласный символ в слове.если в...

Машина Тьюринга: Если первый и последний символ непустого слова различаются, то заменить слово пустым
Здравствуйте,помогите решить задачу. Если первый и последний символ непустого слова различаются, то заменить слово пустым,в противном...

15
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.12.2012, 20:35
Visual Basic
1
2

VBA.Right
vba.Left
тебе помогут!
1
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18
03.12.2012, 20:42  [ТС]
Поясните пожалуйста.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.12.2012, 20:46
Читаешь справку по функции - там есть пример. Что непонятно?

Добавлено через 2 минуты
неужели самому настолько лениво открыть справку?
В данном примере функция Left используется для извлечения указанного числа первых символов строки.

Visual Basic
1
2
3
4
5

Dim AnyString, MyStr
AnyString = "Всем привет" ' Задает строку.
MyStr = Left(AnyString, 1)  ' Возвращает "В".
MyStr = Left(AnyString, 6)  ' Возвращает "Всем п".
MyStr = Left(AnyString, 20) ' Возвращает "Всем привет".
Добавлено через 52 секунды
По правым символам тоже найти?
1
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18
03.12.2012, 20:48  [ТС]
Не лениво, я сейчас её пытался найти.
Будьте добры.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.12.2012, 20:54
вот по правым символам
В данном примере функция Right используется для извлечения указанного числа последних символов строки.

Visual Basic
1
2
3
4
5

Dim AnyString, MyStr
AnyString = "Всем привет" ' Инициализирует строку.
MyStr = Right(AnyString, 1) ' Возвращает "т"
MyStr = Right(AnyString, 7) ' Возвращает " привет".
MyStr = Right(AnyString, 20)    ' Возвращает "Всем привет".
Visual Basic
1

[QUOTE] но никто помочь не хочет.[/QUOTE]
А нельзя помочь если сам не начал делать!!

Добавлено через 5 минут
Вот закрой тему(просто вернись на форум) и посмотри в закреплённых темах последнюю
или перейди по ссылке
1
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18
03.12.2012, 20:55  [ТС]
Спасибо! Если бы я не начал делать, то я бы не попросил о помощи.
В моём случае первый курс технического института с нулевым багажом по информатике со школы. Я в отчаянии.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.12.2012, 21:01
Не отчаивайся: учебные задания не настолько сложны, а функций не так много.
А справочников и примеров полно. Пользуйся поиском по форуму - уверен, что почти все вопросы уже поднимались и были решены. Если не знаешь какой функцией воспользоваться - так и спроси: подскажите чем, кокой функцией сделать то-то. Функцию подскажут сразу. А дальше отурывай справку по функции - там обычно есть описание и пример
0
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18
03.12.2012, 21:40  [ТС]
Visual Basic
1
2
3
4
5
6
7
8
9
10
11

Sub Andrew()
Dim a, d As String
Dim b, c As Integer
a = "арка"
b = Right(a, 1)
c = Left(a, 4)
a = Cells(1, 1)
If b = c Then d = "первая и последняя буквы А"
Else: d = "первая и последняя буквы не А"
d = Cells(1, 2)
End Sub
Что не так?
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.12.2012, 21:45
Visual Basic
1

c = Left(a, 4)
здесь берёшь 4 первых символа, а надо 1
1
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18
03.12.2012, 21:49  [ТС]
Да, не заметил, но проблемы не исчерпало.
Can't execute code in break mode.
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
03.12.2012, 22:09
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Private Sub Command1_Click()
Dim st As String
Dim ms As String
st = InputBox("", , "A23a")
st = LCase(st)
If Len(st) = 4 Then
 
'ms = IIf(Mid(st, 1, 1) = Mid(st, 4, 1), "Yes", "No")
'If Mid(st, 1, 1) = Mid(st, 4, 1) Then ms = "Yes" Else ms = "No" 'или так
ms = IIf(Left(st, 1) = Right(st, 1), "Yes", "No")  'или так
Else
ms = "Кривое слово"
End If
MsgBox ms
End Sub
1
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18
03.12.2012, 22:18  [ТС]
Как этим оперировать в VB, чтобы отражалось в Excel?
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.12.2012, 22:19
что бы сравнивало и регистр букв есть два варианта
1. Вверху модуля указать
Visual Basic
1

Option Compare Text
2. применить функции перевода в нужний регистр:
Lcase - в нижний регистр, Ucase - в верхний

Can't execute code in break mode. бывает когда программа остановлена, а ты пытаешься запустить её снова, а не продолжать выполнение
1
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
03.12.2012, 22:24
Цитата Сообщение от SpecialEllement Посмотреть сообщение
Как этим оперировать в VB, чтобы отражалось в Excel?
вариант А. надо из VB открыть Excel и поместить результат на листе
вариант Б. надо в Excel средствами VBA
вариант В. другое

выбрать
1
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 18
03.12.2012, 22:38  [ТС]
Спасибо gaw и Alex77755.
Буду пытаться разобраться теперь.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 03.12.2012, 22:38
Помогаю со студенческими работами здесь

Определить, является ли символ буквой или цифрой
Алевтина любит собирать занимательную статистику по произвольным текстам и попросила Вас разработать функцию...

Определить является ли символ буквой, цифрой или спецсимволом
2) Написать программу, где ожидается ввод символа с клавиатуры, после чего определяется, является ли этот символ буквой, цифрой или каким...

Определить, чем является символ - цифрой или буквой
Помогите написать программу которая вычитывает из клавиатуры один знак и выписывает категорию к которой этот знак ставится из числа...

Определить, чем является введенный символ: буквой цифрой или оператором?
определить чем является введенный символ: буквой цифрой или оператором? заранее благодарен!

Оператор выбора: определить, буквой, цифрой или спецсимволом является введенный символ
Написать программу, где ожидается ввод символа с клавиатуры, после чего определяется, является ли этот символ буквой, цифрой или...


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

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
 Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru