Определить, сколько указанных букв в первом и последнем слове предложения - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д