Посчитать количество символов во втором слове - VB

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

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

все в вижуал бэйсике 1. задание нужно с помощью массива найти наиболее часто повторяющееся число 2.дана строка нужно посчитать количество символов во втором слове вот моя программа
она работает только когда 2 слова в строке,а когда больше не работает...помогите пожалуйста я не понимаю ,что исправить нужно,видимо что-то со вторым пробелом,уже 3 дня с ней с ума схожу... буду очень благодарна!!!

Решение задачи: «Посчитать количество символов во втором слове»

textual
Листинг программы
Option Explicit
 
Private Sub Комманда1_Click()
Dim M(9)
Dim NN
Dim N
Dim J
Dim C
Dim T
Randomize
NN = Int(500 * Rnd + 300)
For J = 1 To NN
T = Int(10 * Rnd)
        For C = 0 To 9
        If T = C Then M(C) = M(C) + 1
        Next C
Next J
N = M(0)
T = 0
        For C = 0 To 9
        If M(C) > N Then N = M(C): T = C
        Next C
   J = "Проверено " & NN & " чисел"
        For C = 0 To 9
       J = J & vbCrLf & " число  " & C & "  встречается  " & M(C) & "  раз"
        Next C
     J = J & vbCrLf & "Чаще всего  (" & N & ") раз встретилосись число  " & T
MsgBox J, 64, "Так-то вот"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 4.2 из 5
Похожие ответы