Лабы по КП / Лаба 6
.docФедеральное агентство по образованию
Государственное образовательное учреждение
Высшего профессионального образования
«Государственный Университет Управления»
Институт Информационных Систем Управления
Кафедра компьютерных технологий
Лабораторная работа № 6
По дисциплине «Компьютерная подготовка»
4 вариант
Выполнила:
студентка ИНиМЭ,
Проверил:
Канаков А.Г.
МОСКВА 2005
В символьную переменную вводится текст, состоящий из заглавных русских букв. Определить, сколько раз в этом тексте встретилась каждая гласная буква, а также напечатать те главные буквы, которых в тексте больше, чем других.
Private Sub Command1_Click()
Dim N As String
Dim GL As String, GL1 As String, GL2 As String, GL3 As String, GL4 As String, GL5 As String, GL6 As String, GL7 As String, GL8 As String
Dim KOL As Integer, KOL1 As Integer, KOL2 As Integer, KOL3 As Integer, KOL4 As Integer, KOL5 As Integer, KOL6 As Integer, KOL7 As Integer, KOL8 As Integer
Dim L As Integer
Dim MAX As Integer
Dim I As Integer
Dim tmax As String
N = InputBox("Введите текст заглавными буквами")
Text1.Text = N
L = Len(N)
KOL = 0
KOL1 = 0
KOL2 = 0
KOL3 = 0
KOL4 = 0
KOL5 = 0
KOL6 = 0
KOL7 = 0
KOL8 = 0
For I = 1 To L
GL = Mid(N, I, 1)
If GL = "А" Then
KOL = KOL + 1
End If
Next I
For I = 1 To L
GL1 = Mid(N, I, 1)
If GL1 = "Е" Then
KOL1 = KOL1 + 1
End If
Next I
For I = 1 To L
GL2 = Mid(N, I, 1)
If GL2 = "И" Then
KOL2 = KOL2 + 1
End If
Next I
For I = 1 To L
GL3 = Mid(N, I, 1)
If GL3 = "О" Then
KOL3 = KOL3 + 1
End If
Next I
For I = 1 To L
GL4 = Mid(N, I, 1)
If GL4 = "Ю" Then
KOL4 = KOL4 + 1
End If
Next I
For I = 1 To L
GL5 = Mid(N, I, 1)
If GL5 = "Я" Then
KOL5 = KOL5 + 1
End If
Next I
For I = 1 To L
GL6 = Mid(N, I, 1)
If GL6 = "Ы" Then
KOL6 = KOL6 + 1
End If
Next I
For I = 1 To L
GL7 = Mid(N, I, 1)
If GL7 = "Э" Then
KOL7 = KOL7 + 1
End If
Next I
For I = 1 To L
GL8 = Mid(N, I, 1)
If GL8 = "У" Then
KOL8 = KOL8 + 1
End If
Next I
Text2.Text = KOL
Text3.Text = KOL1
Text4.Text = KOL2
Text5.Text = KOL3
Text6.Text = KOL4
Text7.Text = KOL5
Text8.Text = KOL6
Text9.Text = KOL7
Text10.Text = KOL8
MAX = 0
If KOL >= MAX Then
MAX = KOL
End If
If KOL1 >= MAX Then
MAX = KOL1
End If
If KOL2 >= MAX Then
MAX = KOL2
End If
If KOL3 >= MAX Then
MAX = KOL3
End If
If KOL4 >= MAX Then
MAX = KOL4
End If
If KOL5 >= MAX Then
MAX = KOL5
End If
If KOL6 >= MAX Then
MAX = KOL6
End If
If KOL7 >= MAX Then
MAX = KOL7
End If
If KOL8 >= MAX Then
MAX = KOL8
End If
tmax = " "
If KOL = MAX Then
tmax = tmax + "А "
End If
If KOL1 = MAX Then
tmax = tmax + "Е "
End If
If KOL2 = MAX Then
tmax = tmax + "И "
End If
If KOL3 = MAX Then
tmax = tmax + "О "
End If
If KOL4 = MAX Then
tmax = tmax + "Ю "
End If
If KOL5 = MAX Then
tmax = tmax + "Я "
End If
If KOL6 = MAX Then
tmax = tmax + "Ы "
End If
If KOL7 = MAX Then
tmax = tmax + "Э "
End If
If KOL8 = MAX Then
tmax = tmax + "У "
End If
Text11.Text = tmax
End Sub
Private Sub Command2_Click()
End
End Sub