Определить длину самого короткого слова - VB (171988)
Формулировка задачи:
В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова".
А как сделать чтобы вводить строку и выводить ответ в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д