Федеральное агентство связи Ордена

Трудового Красного Знамени

федеральное бюджетное образовательное учреждение высшего образования

«Московский Технический Университет Связи и Информатики»

(МТУСИ)

Кафедра Информатики

Лабораторная работа № 9

Тема:

«Совместная обработка строковой и числовой информации»

Вариант 00

Выполнил:

Москва 0000

3)

4) формализация и уточнения не требуются

5.1) форма

5.2) схема алгоритма

Код проекта 5.3)

Option Strict On

Option Explicit On

Public Class Form1

Sub vvod(ByRef s As String, ByVal t As TextBox)

s = t.Text

End Sub

Sub vivod(ByVal s As String, ByVal t As TextBox)

t.Text = s

End Sub

Sub delprobel(ByRef s As String)

s = s.Trim()

Do While s.IndexOf(Space(2)) >= 0

s = s.Replace(Space(2), Space(1))

Loop

End Sub

Function func(ByVal s As String) As String

Dim t As String = ""

Dim i As Integer

Dim maxid, minid As Integer

Dim min As Double = Double.MaxValue

Dim max As Double = -1

Dim mas() As String

mas = s.Split(CChar(" "))

For i = 0 To UBound(mas)

If min > mas(i).Length Then

min = mas(i).Length

minid = i

End If

If max < mas(i).Length Then

max = mas(i).Length

maxid = i

End If

Next

If maxid > minid Then

t = "самое короткое раньше"

Else

t = "cамое длинное раньше"

End If

Return t

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim s As String = ""

Dim t As String = ""

vvod(s, TextBox1)

delprobel(s)

t = func(s)

vivod(t, TextBox2)

End Sub

End Class

6.1)

7.1)Так3 и1 начался7 урок4

Самое короткое раньше самого длинного

6.2)

7.2)Александр9 был3 готов5

Самое длинное раньше самого короткого слова