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

Формулировка задачи:

В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова".
  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, прост для следующего задания нужно

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

textual
   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


СОХРАНИТЬ ССЫЛКУ