Определить наибольшую длину строки - VB

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

Приветик всем! помогите написать программу. Данны строки символов а, b. Определить max(f(a),5)*max(f(b),10). где f(s) кол-во пробелов в строке

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

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a As Long
Dim b As Long
Dim Max_1 As Long
Dim Max_2 As Long
a = Len(Text1.Text) - Len(Replace(Text1.Text, " ", ""))
b = Len(Text2.Text) - Len(Replace(Text2.Text, " ", ""))
If a > 5 Then
    Max_1 = a
Else
    Max_1 = 5
End If
If b > 10 Then
    Max_2 = b
Else
    Max_2 = 10
End If
Text3.Text = Max_1 * Max_2
End Sub
                        

Оцени полезность:

7 голосов , оценка 4 из 5

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