Подпрограмма, обеспечивающая ввод целых чисел с клавиатуры - VB
Формулировка задачи:
Сабж:
Написать подпрограмму, котораяобеспечивает ввод целых чисел с клавиатуры от пользователя до тех пор, пока пользователь введет что-то НЕ являющееся числом. После чего программа должна выдать в качестве результата среднее арифмитическое введеных чисел.
Помогите пожалуйста
Решение задачи: «Подпрограмма, обеспечивающая ввод целых чисел с клавиатуры»
textual
Листинг программы
Private Sub Command1_Click()
Dim Sum As Long, n As Integer, a As Variant
Randomize
Do
a = InputBox("", "", Int(Rnd * 100))
If Not a = Val(a) Then Exit Do
n = n + 1
Sum = Sum + a
Loop
MsgBox "Введено целых чисел : " & n & vbCrLf & _
"Сумма чисел : " & Sum & vbCrLf & _
"Среднее арифметическое " & Sum / n
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д