Как найти сумму чисел в TextBox Basic ? - VB
Формулировка задачи:
Как найти сумму чисел в TextBox Basic ? Заранее Спасибо !
Решение задачи: «Как найти сумму чисел в TextBox Basic ?»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- Text1 = Sum(Text1)
- End Sub
- Function Sum#(ByVal Num#): Dim d#
- d = Val(Text1)
- While d <> 0
- Sum = Sum + d Mod 10
- d = d \ 10
- Wend
- End Function
- Private Sub Form_Load()
- Text1 = "12345"
- Command1.Caption = "Пересчитать"
- End Sub
- Private Sub Text1_Change()
- Text1 = Val(Text1): Text1.SelLength = 100
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д