Определить, сколько указанных букв в первом и последнем слове предложения - VB

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

10-тую пытался решить

                    Листинг программы
                
 
                        
                          
                    
Dim strA, strB, strC As String
Dim intk, intl, inti As Integer
 
Private Sub Command1_Click()
strA = Text1.Text
strC = Text3.Text
intl = Len(strA)
intk = 0
For inti = 1 To intl
    strB = Mid(strA, inti, 1)
    If strB = strC Then intk = intk + 1
Next inti
Text2.Text = CStr(intk)
End Sub

только он считает количество данного символа во всём предложении

Решение задачи: «Определить, сколько указанных букв в первом и последнем слове предложения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Public i As Integer
Public j As Integer
Dim A(), A2() As Integer, n, Max, p As Integer, m As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 5)
ReDim A(1 To m) ' Размеры матрицы
ReDim A2(1 To m)
For i = 1 To m
   A(i) = Int(Rnd * 211 - 25) 'Заполняем матрицу случайными числами
   Print A(i)
Next i
 Max = -100
For i = 1 To m
  If A(i) > Max Then Max = A(i): p = i
Next i
A2(1) = Max
 For i = 2 To p '- 1
   A2(i) = A(i - 1)
Next i
 For i = p + 1 To m
    A2(i) = A(i)
Next i
Print
Print
For i = 1 To m
  Print A2(i)
Next i
End Sub

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

13 голосов , оценка 4.077 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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