Дан текст с (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
