Определить длину самого короткого слова - 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, прост для следующего задания нужно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы