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

Написать функцию, которая получает текстовую информацию и выводит четыре символа, следующих после двух первых

04.06.2016, 23:01. Показов 600. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте!Помогите,пожалуйста, сделать задание.
Написать функцию, которая получает текстовую информацию и выводит четыре символа,
следующих после двух первых символов.В чем ошибка?

Function text(tt As String) As String
tt = Mid(tt, 3, 4)
text = tt
End Function
Процедуру я знаю как создать.Но не понимаю как функцию написать правильно.
Sub пример_mid()
Dim MyString, Word1, Word2, Word3
MyString = "Демо функции Mid"
Word1 = Mid(MyString, 1, 4) ' результат "Демо"
MsgBox Word1
Word2 = Mid(MyString, 14, 3) ' результат "Mid"
MsgBox Word2
Word3 = Mid(MyString, 6) ' результат "функции Mid"
MsgBox Word3
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2016, 23:01
Ответы с готовыми решениями:

Написать функцию, которая получает дату и выводит название праздника
Написать функцию, которая получает дату (день, месяц) и выводит название праздника, выпадающего на...

Написать функцию, которая получает два списка натуральных чисел и выводит наибольшее общее целое число или ноль
Написать функцию, которая получает два списка натуральных чисел и выводит наибольшее общее целое...

Написать функцию, которая возвращает информацию о том, какого символа (количество) в массиве больше
Все доброго времени суток! Попала на задачу, которую ни как не могу решить: Задан массив...

Написать функцию, которая почленно заключает первые четыре элемента двух заданных как параметры массивов типа double
Написать функцию, которая почленно заключает первые четыре элемента двух заданных как параметры...

2
6922 / 2832 / 543
Регистрация: 19.10.2012
Сообщений: 8,645
04.06.2016, 23:32 2
Так в общем всё правильно было, но можно чуть сократить в данном случае:
Visual Basic
1
2
3
4
5
6
7
8
9
Sub tt()
    Dim s$
    s = "не_понимаю_как"
    MsgBox text(s)
End Sub
 
Function text(tt As String) As String
    text = Mid(tt, 3, 4)
End Function
1
0 / 0 / 0
Регистрация: 04.06.2016
Сообщений: 2
05.06.2016, 09:44  [ТС] 3


Добавлено через 1 минуту
Hugo121, спасибо большое!все работает))
0
05.06.2016, 09:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2016, 09:44
Помогаю со студенческими работами здесь

Написать программу, которая выводит на экран все символы, расположенные после первого символа ":"
Написать программу, которая выводит на экран все символы, расположенные после первого символа ":";

написать программу, которая выводит на экран первые четыре степени числа П(пи)
написать программу, которая выводит на экран первые четыре степени числа П(пи) пож-та сделайте

Написать программу, которая выводит на экран первые четыре степени числа Пи
Написать программу, которая выводит на экран первые четыре степени числа Пи. Добавлено через 15...

написать программу, которая выводит на экран первые четыре степени числа пи
написать программу, которая выводит на экран первые четыре степени числа ПИ


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

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

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