Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Слова через пробел. Split, StrReverse, Join. Слова в обр порядке=аволс в бро екдяроп 
:(
    Опции темы
Vishenka1991
  Дата 16.1.2012, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 16.1.2012

Репутация: нет
Всего: нет



Ребята помогите, пожалуйста, я совсем не знаю что делать.

Дана строка, состоящая из слов, разделенных пробелами. Нужно изменить её так, чтобы каждое слово было записано в обратном порядке.

Мне нужно выполнить в Microsoft Visual Basic 2010 Express. 

У пришла только вот к такому. Но у меня ничего не работает, пиши кучу всяких непонятных ошибок 
Буду очень признательна, и могу даже заплатить =)

Public Class Form1
    Dim a As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = InputBox("Введите текст")
        TextBox1.Text = a
        Dim Spl() as string = split(a)
        Dim StrR() as string = StrReverse(a)
        Dim Joi() as string = Join(a)
        TextBox2.Text = a
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub
End Class
PM MAIL   Вверх
Данкинг
Дата 16.1.2012, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



И что не работает-то?

Добавлено через 1 минуту и 26 секунд
Наверное, в StrReverse надо StrR передавать, а не A ?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vishenka1991
Дата 16.1.2012, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 16.1.2012

Репутация: нет
Всего: нет



Все равно  не работает...(
PM MAIL   Вверх
Данкинг
Дата 16.1.2012, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Вот у меня работает, подгони под себя:
Код

Private Sub Кнопка0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a, spl, Joi, j
 a = "курды бурды бугага мугога"
 spl = Split(a)
 For j = 0 To UBound(spl)
  spl(j) = StrReverse(spl(j))
 Next
 Joi = Join(spl)
 MsgBox (Joi)
End Sub



Это сообщение отредактировал(а) Данкинг - 16.1.2012, 23:01


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vishenka1991
Дата 17.1.2012, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 16.1.2012

Репутация: нет
Всего: нет



Спасибо большое, теперь работает. Прости что не успела утром поблагодарить, я просто не смогла.
Но мне все равно не зачли сказали, что нужно это сделать с классами, модулями и методами типа char и string((((((
Ладно пойду что-нибудь думать.
PM MAIL   Вверх
Данкинг
Дата 17.1.2012, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Vishenka1991 @  17.1.2012,  23:26 Найти цитируемый пост)
Спасибо большое, теперь работает. Прости что не успела утром поблагодарить, я просто не смогла.

На здоровье. smile 
Цитата(Vishenka1991 @  17.1.2012,  23:26 Найти цитируемый пост)
Но мне все равно не зачли сказали, что нужно это сделать с классами, модулями и методами типа char и string((((((

Ну да, для такого задания, конечно, обязательно класс создать нужно. smile А "char и string" - это типы переменных, а не методы.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vishenka1991
Дата 18.1.2012, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 16.1.2012

Репутация: нет
Всего: нет



Согласна, но кстати вот эта прога без класса работает.
Ну в общем как я поняла нужно заново придумать функции Split, Join, StrReverse из таких функций как Compare, Concat, Copy, Format, IndexOf, indexOfAny, LastIndexOf, Insert, Remove, Replace, ToCharArray, ToLower, ToUpper, PadLeft, PadRight (это по его версии функции String) Trim, IsLower, IsUpper, IsWriteSpace, ToLower, ToUpper (а это функции Char).
В общем вот такой вот он у нас засранец)


Это сообщение отредактировал(а) Vishenka1991 - 18.1.2012, 19:36
PM MAIL   Вверх
Данкинг
Дата 18.1.2012, 20:51 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Vishenka1991 @  18.1.2012,  20:23 Найти цитируемый пост)
Ну в общем как я поняла нужно заново придумать функции 

Что за фигня у вас там вообще? А чтобы набрать эту программу, компьютер придумать не нужно? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akina
Дата 18.1.2012, 21:27 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Vishenka1991
Думаю, от тебя хотят вовсе не этого. От тебя хотят получить понимание класса, его методов и свойств, его использования.

Создай класс СЛОВО. 
Свойства: Значение, Размер. 
Методы: Присвоить значение, Вернуть значение, Реверсировать значение, Вернуть размер.

Создай класс ФРАЗА.
Свойства: Слова (массив), Количество слов, Разделитель.
Методы: Присвоить значение, Вернуть значение, Присвоить разделитель, Вернуть разделитель, Вернуть количество слов, Вернуть слово по индексу.

После чего реализуй требуемую программную функцию на основе созданных классов.

Это сообщение отредактировал(а) Akina - 18.1.2012, 21:29


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Vishenka1991
Дата 20.1.2012, 20:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 16.1.2012

Репутация: нет
Всего: нет



Ребята, спасибо, вам огромное я даже начала помогать своим одноогруппникам в каких то моментах =) Уууииииииии....
PM MAIL   Вверх
Данкинг
Дата 20.1.2012, 21:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Vishenka1991 @  20.1.2012,  21:21 Найти цитируемый пост)
Уууииииииии.... 

Учись хорошо... smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0520 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.