В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова" - VB

  1. В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова". помогите.


textual

Код к задаче: «В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова" - VB»

Sub Test2()
Dim sStr As String, sWord As String, iMin As Integer, iLen As Integer, oObj
sStr = InputBox("Ввод строки:")
 
iMin = Len(sStr)
For Each oObj In Split(sStr)
    iLen = Len(Trim(oObj))
    If iLen <> 0 Then
        If iLen < iMin Then iMin = iLen: sWord = oObj
    End If
Next
MsgBox "Самое короткое слово '" & sWord & "' состоит из " & iMin & " букв."
End Sub

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.100 из 5



Похожие ответы
  1. Всем здравствуйте. Скажите как получить дерево файлов и папок в заданной дериктории? И все это в двумерный массив засунуть из 3х столбцов, в который если это папка в соседние столбцы дописывать 0 0 0755? К такому вот виду, например: Код system/app/AdupsFota 0 0 755 system/app/AdupsFota/AdupsFota.apk 0 0 644 system/app/AdupsFota/arm 0 0 755 system/app/AdupsFota/arm/AdupsFota.odex 0 0 644 system/app/AdupsFotaReboot 0 0 755 system/app/AdupsFotaReboot/AdupsFotaReboot.apk 0 0 644 system/app/AdupsFotaReboot/arm 0 0 755 system/app/AdupsFotaReboot/arm/AdupsFotaReboot.odex 0 0 644 system/app/ApplicationsProvider 0 0 755 system/app/ApplicationsProvider/ApplicationsProvider.apk 0 0 644 system/app/ApplicationsProvider/arm 0 0 755 system/app/ApplicationsProvider/arm/ApplicationsProvider.odex 0 0 644 system/app/AtciService 0 0 755 system/app/AtciService/AtciService.apk 0 0 644 system/app/AtciService/arm 0 0 755 system/app/AtciService/arm/AtciService.odex 0 0 644 system/app/AutoDialer 0 0 755 system/app/AutoDialer/AutoDialer.apk 0 0 644 system/app/AutoDialer/arm 0 0 755 system/app/AutoDialer/arm/AutoDialer.odex 0 0 644 system/app/BSPTelephonyDevTool 0 0 755 system/app/BSPTelephonyDevTool/BSPTelephonyDevTool.apk 0 0 644 system/app/BSPTelephonyDevTool/arm 0 0 755 system/app/BSPTelephonyDevTool/arm/BSPTelephonyDevTool.odex 0 0 644 system/app/BasicDreams 0 0 755 system/app/BasicDreams/BasicDreams.apk 0 0 644 system/app/BasicDreams/arm 0 0 755 system/app/BasicDreams/arm/BasicDreams.odex 0 0 644 system/app/BatteryWarning 0 0 755 system/app/BatteryWarning/BatteryWarning.apk 0 0 644 system/app/BatteryWarning/arm 0 0 755 system/app/BatteryWarning/arm/BatteryWarning.odex 0 0 644 system/app/Bluetooth 0 0 755 system/app/Bluetooth/Bluetooth.apk 0 0 644 system/app/Bluetooth/arm 0 0 755 system/app/Bluetooth/arm/Bluetooth.odex 0 0 644 system/app/Bluetooth/lib 0 0 755 system/app/Bluetooth/lib/arm 0 0 755 system/app/Bluetooth/lib/arm/libbluetooth_jni.so 0 0 644 /system/lib/libbluetooth_jni.so system/app/Browser 0 0 755 system/app/Browser/Browser.apk 0 0 644 system/app/Browser/arm 0 0 755 system/app/Browser/arm/Browser.odex 0 0 644 system/app/Calculator 0 0 755 system/app/Calculator/Calculator.apk 0 0 644 system/app/Calculator/arm 0 0 755 system/app/Calculator/arm/Calculator.odex 0 0 644

  1. Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности.

  1. Описание функции 1. Каждое натуральное число имеет хотя бы один делитель 2. Само число не считается для себя делителем. 3. Дано число N. 4. Пусть его делители d1, d2, ...., dn 5. Наша функция выглядит так f(N) = f(d1) + f(d2) + ... + f(dn) ; и f(1) = 1 Надо написать программу, вычисляющую эту функцию для любого N. Решение: 1. Рекуррентный вид функции сам собой напрашивался на рекурсивное решение. Но вот проблема! Число слагаемых вещь переменная! 2. Хорошо. Что делать? Получить все Делители заданного числа легко. Значит надо объявить массив, который будет набиваться заранее вычисленными делителями. (Для нового числа обнулить его несложно) 3. Нужен цикл? Нужен. Но это ведь не просто сумма чего-то... решал, решал... не идет решение (наверное к дождю). А решить хочется. Может я не что-то не так делаю? Тааак! Решение где-то рядом! Кто подскажет?

  1. Здравствуйте! Помогите, пожалуйста, практическими алгоритмами кода.Меня интересует: 1) Как залить (полностью окрасить) эллипсы случайными цветами? 2) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) по признаку делимости на 2, 3 (без остатка) и прочие. Всего три цвета окраски. 3) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) для группы, например: For i = 1 To 3 — vbRed; For i = 4 To 6 — vbGreen; For i = 4 To 6 — vbBlue. Всего три цвета окраски. Не по теме: Столкнулся на форуме с распространённым явлением. Многие из участников почему-то пытаются скрыть подобные сведения. Не знаю их мотивов. По мне: сравниваю их с мальчиком Васей из детского садика — считающего, что у него лучшие фантики (обёртки от конфет) в мире. Поэтому Вася никому и никогда не рассказывает: откуда они взяты. Одна только мама Васи догадывается — откуда, поскольку Вася любит гулять возле мусорных баков. Они сейчас возле каждого многоэтажного дома. "Клондайк". В литературе есть образ Плюшкина. Вот ниже код, как просто залить (полностью окрасить) эллипсы случайными цветами?

  1. Прошу помощи. Задача: "Дана действительная матрица размером n x m. Найти сумму наибольших значений её строк. Написал код для ввода матрицы, что делать дальше ума не приложу. Заранее благодарен

  1. Доброго времени суток Уважаемые форумчане! сразу скажу, что по форуму искал, ничего путного не нашел и поэтому прошу помощи. Задача следующая: кодом visual basic 6.0 (нужен именно он) нужно открыть текстовый файл, построчно считать его содержимое.После считывания каждой строки тут же реализовать проверку наличия в этой строке символа "@". Если символа "@" в строке нет, то считать следующую строку и повторить проверку наличия символа. Если есть символ "@", то всю эту строчку записать в файл. И так до конца файла. Пока есть вот такой кусок кода:

  1. Здравствуйте, помогите решить задачу. Составить программу, которая выполняет удаление из натурального числа Х некоторой заданной цифры D. Н-р для числа 58789890 и цифры 8 результатом будет число 57990. Заранее Спасибо!

  1. Написать программу в VB: дано число - температура воды. Выведите "лед", если температура ниже нуля, "жидкость", если от температура от 0 до 100 и "пар", если выше 100. Помогите пожалуйста!)

  1. Добрый день! Вот задали по VB пару заданий все получалось а вот с массивами замкнулся не могли бы вы мне помочь. Текст задания "Массив С заполнен случайным набором целых чисел, найти среднее арифметическое из квадратов данной последовательности" Правда самому даже задание не совсем понятно но прока что набросал очень малоvb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Class Form1     Dim Sim(10) As Double     Dim x As Integer     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click           For x As Integer = 1 To 10             TextBox1.Text = TextBox1.Text & Sim(x) & vbCrLf         Next x     End Sub       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         TextBox1.Text = ""         For x As Integer = 1 To 10             Sim(x) = x         Next x     End Sub End ClassВывел с большим трудом в TextBox1 содержание массива от 1 до 10 вот и все, помогите по заданию всего то два осталось )))))

  1. Кому не сложно и кому позволяет время напишите код или подскажите с чего начинать . Задача выглядит так. Нужно вычислить значение функции z=b^k/k^2 большие чем a, если k=1,2.....,20. b=0,5 . a=3. Заранее спасибо огромное