Определить длину самого короткого слова - VB

  1. В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова".vb.net1 2 3 4 5 6 7 8 9 10 11 12 13   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         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А как сделать чтобы вводить строку и выводить ответ в TextBox, прост для следующего задания нужно


textual

Код к задаче: «Определить длину самого короткого слова - VB»

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sStr As String, sWord As String, iMin As Integer, iLen As Integer, oObj
        sStr = TextBox1.Text
 
        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
        TextBox2.Text = sWord & " состоит из " & iMin & " букв."
 
    End Sub

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

12   голосов, оценка 4.167 из 5



Похожие ответы
  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Отметки точек трассы представлены как элементы массива. В этом массиве находят разность мах и мин элементов для определения размаха эпюры трассы. Величина размаха учитывается при выборе размеров (формата) чертежа. В данной задаче студентам следует решить только первую часть проблемы: определить максимальный элемент массива

  1. как определить язык windows на VB6.0?

  1. Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.

  1. Здраствуйте, я учусь на юридическом факультете и т.к. мой мозг полный гуманитарий, я не могу решить на первый взгляд простенькую задачу, буду благодарен любой помощи... Сама задача: Определить стоимость услуг мобильной связи, если известна стоимость одной секунды разговора, и продолжительность всех разговоров, цена одного смс и количество отправленных смс. P.S. Писал с телефона если где-то есть ошибки, извиняйте, буду рад любой помощи, числа я подставлю сам, важен сам алгоритм выполнения)) Спасибо заранее))

  1. Определить, лежит ли данная точка на одной из сторон треугольника, заданного координатами его вершин. Далёк от информатики, нужно написать программу в VBA

  1. Двумерный массив n*m заполнен рандомно. Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Помогите наладить программу, не могу понять почему определяет местами не правильно.

  1. Даны три стороны треугольника a, b, c. Определить, является ли такой треугольник равнобедренным, равносторонним или разносторонним. НУЖЕН ПРОГРАММНЫЙ КОД В VISUAL BASIC, БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН.