Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.92
Sten777
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 6
#1

Найти самое короткое слово в строке - VB

26.04.2010, 02:06. Просмотров 1602. Ответов 3
Метки нет (Все метки)

нужно найти самое короткое слово в строке.
я вот чет попробовал написать, но работать не хочет(((
подскажите где ошибка?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Resh(ByVal a As String, ByRef Dlinna As Integer, ByRef Slovo As String)
        Dim slovo1 As String
        Dim kol, j, m As Integer
        m = CInt(a.Length)
        Dlinna = m - 1
        j = 0
        kol = 0
        slovo1 = ""
        Do While j <= m - 1
            Do
                kol = kol + 1
                slovo1 = slovo1 + a.Substring(j, 1)
                j = j + 1
            Loop While a.Substring(j, 1) <> " "
            If kol < Dlinna Then
                Dlinna = kol
                Slovo = slovo1
            End If
        Loop
    End Sub
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2010, 02:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти самое короткое слово в строке (VB):

Вывести самое длинное и самое короткое слово из введенного предложения - Visual Basic
нужно написать программу!!! пользователь вводит предложение, нужно вывести самое длинное и самое короткое слово из него. Буду очень...

Написать программу, которая находит самое короткое слово в предложении - Visual Basic
Задано предложение, состоящее из слов-строк. Написать программу, которая находит самое короткое слово в предложении.

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово - Visual Basic
Уже долго сижу над данной задачей. Плохо понимаю тему работы с файлами и текстом. Объясните пожалуйста как это все делается.

Найти самое длинное слово в предложении - Visual Basic
Найти самое длинное слово в предложении. Например: Горные вершины спят во тьме ночной. Вершины. Как сделать так, чтобы вводить текст...

Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных - Visual Basic
Пожалуйста помогите решить задание,не могут понять как это делать в VB, просмотрела все похожие задачи на форуме,но в итоге ничего не...

Нужно найти самое короткое и длинное слово в тексте - Basic
Нужно найти самое короткое и длинное слово в тексте. КТО НИБУДЬ ЗНАЕТЬ КАК МОЖНО СОЗДАТЬ ПРОГРАММУ ДЛЯ ЭТОГО?:help::help::help:

3
YuraAAA
1578 / 1319 / 271
Регистрация: 25.10.2009
Сообщений: 3,438
Записей в блоге: 2
26.04.2010, 02:22 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
Dim text, min, a, slovo
text = InputBox("text")
a = Split(text, " ")
min = Len(a(0))
slovo = a(0)
For i = 1 To UBound(a)
If Len(a(i)) < min Then min = Len(a(i)): slovo = a(i)
Next i
MsgBox slovo
End Sub
3
Sten777
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 6
26.04.2010, 02:48  [ТС] #3
ОГРОМНОЕ спасибо=)))
немного ща потупил пока подгонял код под свою процедуру, но в итоге справился, все работает)))
можно я к тебе еще оброщаться буду если вопросы появятся?=)
0
YuraAAA
1578 / 1319 / 271
Регистрация: 25.10.2009
Сообщений: 3,438
Записей в блоге: 2
02.12.2010, 15:59 #4
Можно)
0
02.12.2010, 15:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2010, 15:59
Привет! Вот еще темы с ответами:

Самое длинное симметричное слово - Basic
составить программу, которая в заданном предложении находит самое длинное симметричное слово.на Turbo Basic

В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово - Visual Basic
помогите решить пожалуйста а то я в программировании не очень)

Составить программу, которая в заданном предложении находит самое длинное симметричное слово - Basic
составить программу, которая в заданном предложении находит самое длинное симметричное слово. на Turbo Basic

Заменить каждое третье слово в строке - Visual Basic
Помогите написать процедуру для задания: В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.