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

Узнай цену своей работы

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

10-тую пытался решить
только он считает количество данного символа во всём предложении

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

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
Похожие ответы