Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: vb 6.0 задача. универ. Добавлено: 23.12.10 22:56  

Автор вопроса:  Юлия

Ответить

  Ответы Всего ответов: 22  

Номер ответа: 16
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #16 		Добавлено: 19.02.11 21:12
чтото типа этого (2)
  1. Sub m_1()
  2. Dim vString As String
  3. Dim vStep As Integer
  4. Dim i As Integer
  5. 'For i ... Next i - это цикл.
  6. 'С помощью инструмента Len определяем, сколько в слове букв
  7. 'В данном случае цикл будет повторяться столько раз,
  8. 'сколько в анализируемом слове букв
  9. For i = 1 To Len(vString)
  10.     'i - это переменная, которая будет изменяться от 1 до количества букв в слове
  11.     'vString - это переменная в которой содержится анализируемое слово
  12.     'С помощью инструмента Mid анализируем определённую букву в слове,
  13.     'а не всё слово, где i означает номер буквы, а цифра 1 означает, сколько
  14.     'букв анализировать
  15.     'Гласные буквы могут быть как большие, так и строчные.
  16.     'Чтобы все буквы в слове привести к одному регистру
  17.     'используется инструмент LCase. Если этой функции не использовать, то
  18.     'тогда команда была бы такой:
  19.     'Like "[A,a,E,e,I,i,O,o,U,u,Y,y]"
  20.     If LCase(Mid(vString, i, 1)) Like "[a,e,i,o,u,y]" Then
  21.        vStep = Step + 1
  22.     End If
  23. Next i
  24. vStep
  25. End Sub

Ответить

Номер ответа: 17
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #17 		Добавлено: 19.02.11 21:23
  1. Функция StrReverse(Text1.Text)
  2. (3)

Ответить

Номер ответа: 18
Автор ответа:
 Юлия



Вопросов: 1
Ответов: 8
  Профиль | | #18 Добавлено: 29.04.11 08:42
Даны две текстовые строки, получить новый текст, содержащий слова и из первой и из второй строки, упорядоченные по возрастанию длин/
?????

Ответить

Номер ответа: 19
Автор ответа:
 Юлия



Вопросов: 1
Ответов: 8
  Профиль | | #19 Добавлено: 29.04.11 08:43
Напечатать самое короткое слово из заданного текста.

Ответить

Номер ответа: 20
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #20 Добавлено: 29.04.11 09:30
Печатай, но в офф-топе.

Ответить

Номер ответа: 21
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #21 		Добавлено: 02.05.11 08:55
Юлия пишет:
Напечатать самое короткое слово из заданного текста.

  1. Dim sStr As String, Imin As Integer, minSlovo As String
  2. Dim s() As String
  3. Dim i As Long
  4. Dim j As Long
  5.  
  6. s() = Split(TextBox1.Text, " ")
  7.  
  8. ' Сортировка.
  9. For i = 0 To UBound(s()) - 1 Step 1
  10.     For j = 0 To UBound(s()) - 2 - i Step 1
  11.         If s(j) > s(j + 1) Then
  12.             sStr = s(j)
  13.             s(j) = s(j + 1)
  14.             s(j + 1) = sStr
  15.         End If
  16.     Next j
  17. Next i
  18.  
  19. ' В результате сортировки самое короткое слово будет находиться в самом верху массива.
  20. Imin = Len(s(0))
  21. minSlovo = s(0)
  22.  
  23. MsgBox ("Самое короткое слово «" & minSlovo & "». Количество букв: " & Imin)

Ответить

Номер ответа: 22
Автор ответа:
 Юлия



Вопросов: 1
Ответов: 8
  Профиль | | #22 Добавлено: 07.05.11 21:33
ого...спасибо большое)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам