Найти средний балл ученика, если оценок неизвестное колличество - VB

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

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

работаю в vb6. точнее начала работать. в школе объяснили пару уроков куда что писать,дали цикл иф,поделали калькуляторы и все. задали проект. тема: электронный дневник. единственное,что не могу написать так это как найти средний балл ученика если оценок неизвествое колличество может быть. работала в паскаль абс,там такое делала через массив,а сейчас не совсем понимаю о чём речь. помогите!!(ввод оценок должен производится с клавиатуры)

Решение задачи: «Найти средний балл ученика, если оценок неизвестное колличество»

textual
Листинг программы
Private Sub Command2_Click()
Cls
Dim i, a!(5), sa!
Print "Оценки"
For i = 1 To 5
 a(i) = InputBox("a(" & i & ")")
 Print a(i);
 sa = sa + a(i)
Next i
Print
Print "Средний балл = "; sa / 5
End Sub

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

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