Дан текст с (n) элементам. Найти средный арифметики всех чисел которий есть в этом тексте. В Viaual Basic - VB

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

Дан текст с (n) элементам. Найти средный арифметики всех чисел которий есть в этом тексте. В Viaual Basic.

Решение задачи: «Дан текст с (n) элементам. Найти средный арифметики всех чисел которий есть в этом тексте. В Viaual Basic»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Dim s As String: Dim i, sum As Integer
s = Text1.Text
For i = 1 To Len(s)
sum = sum + Val(Mid(s, i, 1))
Next
MsgBox sum
End Sub
                        

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

10 голосов , оценка 3.8 из 5

Похожие ответы