Fedi
Сообщений: 43
Оценки: 0
Присоединился: 2009-03-04 13:16:12.456666
|
ут у меня вопрос что делает помеченная часть в низу) не могу понять для чего она нужна.
Dim Glasn As String
Dim str, res, b As String
Dim i1, i2, i3 As Integer
Private Sub Ok_Click()
Worksheets("лист1").Range("A1:B37").Clear
i1 = 1
i2 = 1
Glasn = "гласные буквы"
Do While (Len(TextBox1.Value) > 1)
b = Left(TextBox1.Value, 1)
i2 = 1
i3 = 0
If InStr(1, Glasn, b, 1) > 0 Then
Do While (i2 < i1)
If (лист1.Cells(i2, 1) = b) Then
i3 = 1
End If
i2 = i2 + 1
Loop
If (i3 = 0) Then
лист1.Cells(i1, 1) = b
i1 = i1 + 1
End If
End If
TextBox1.Value = Right(TextBox1.Value, Len(TextBox1.Value) - 2)
Loop
b = Left(TextBox1.Value, 1)—————————вот от сюда
i2 = 1
i3 = 0
If InStr(1, Glasn, b, 1) > 0 Then
Do While (i2 < i1)
If (лист1.Cells(i2, 1) = b) Then
i3 = 1
End If
i2 = i2 + 1
Loop
If (i3 = 0) Then
лист1.Cells(i1, 1) = b——————–до етого момента))
End If
End If
TextBox1.Value = ""
End Sub
Сама задача должна считать количество гласных букв в четных позициях
|
Нужна помощь в microsoft visual basic - 
