Дан текст с (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