Условие задачи на использование экранной формы

В первой части лабораторной работы требуется создать в текстовом редакторе Word экранную форму, которая обеспечит определение каких цифровых символов во введенной строке больше: четверок или пятерок. Учесть возможность равенства количества данных цифровых символов.

 

Распечатка программного кода

 

 

Private Sub CmdProcess_Click()

Dim St As String

Dim St1 As Integer

Dim St2 As Integer

St = TextSt.Text

St1 = 0

St2 = 0

For I = 1 To Len(St)

If Mid(St, I, 1) = "5" Then

St1 = St1 + 1

End If

If Mid(St, I, 1) = "4" Then

St2 = St2 + 1

End If

Next I

If St1 > St2 Then

LbRez.Caption = "ïÿò¸ðîê áîëüøå"

Else

LbRez.Caption = "÷åòâ¸ðîê áîëüøå"

End If

If St1 = St2 Then

LbRez.Caption = "ïîðîâíó"

End If

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

 

 

Распечатка результатов выполнения

Вводим число: 12445

Результат: четвёрок больше