Вопрос по информатике:
Помогите пожалуйста составить код для VB
Дано натуральное число. Верно ли,что в данном числе нет цифры А. А задается
Пожаловаться
- 16.07.2017 06:23
- Информатика
- remove_red_eye 6404
- thumb_up 11
Ответы и объяснения 1
Dim a As Integer, s As Integer, g As Integer, h As String, f As String, d As String
s = InputBox("Введите натуральное число")a = InputBox("Введите цифру")h = CStr(s)f = CStr(a)g = Len(h)For i = 1 To gv = Mid(h, i, 1)If v = f Thend = "Цифра " + f + " присутствует в числе " + hExit ForElsed = "Цифра " + f + " не присутствует в числе " + hEnd IfNextMsgBox d
s = InputBox("Введите натуральное число")a = InputBox("Введите цифру")h = CStr(s)f = CStr(a)g = Len(h)For i = 1 To gv = Mid(h, i, 1)If v = f Thend = "Цифра " + f + " присутствует в числе " + hExit ForElsed = "Цифра " + f + " не присутствует в числе " + hEnd IfNextMsgBox d
Пожаловаться
- 17.07.2017 16:28
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы