Какая из оценок преобладает в группе студентов - VB
Формулировка задачи:
Помогите решить задачу
вариант номер 3
Решение задачи: «Какая из оценок преобладает в группе студентов»
textual
Листинг программы
Private Sub Command1_Click() Dim a As String, Max As Integer, n As Integer, i As Integer a = "524345443524" Max = len(a)+1 For i = 1 To 5 If Len(Replace(a, i, "")) < Max Then Max = Len(Replace(a, i, "")): n = i Next i MsgBox "Г‚ ãðóïïå ïðåîáëГ*Г¤Г*ГҐГІ îöåГ*ГЄГ* """ & n & """" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д