Как найти сумму чисел в TextBox Basic ? - VB

Узнай цену своей работы

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

Как найти сумму чисел в TextBox Basic ? Заранее Спасибо !

Решение задачи: «Как найти сумму чисел в TextBox Basic ?»

textual
Листинг программы
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.     Text1 = Sum(Text1)
  5. End Sub
  6.  
  7. Function Sum#(ByVal Num#): Dim d#
  8.     d = Val(Text1)
  9.     While d <> 0
  10.         Sum = Sum + d Mod 10
  11.         d = d \ 10
  12.     Wend
  13. End Function
  14.  
  15. Private Sub Form_Load()
  16.     Text1 = "12345"
  17.     Command1.Caption = "Пересчитать"
  18. End Sub
  19.  
  20. Private Sub Text1_Change()
  21.     Text1 = Val(Text1): Text1.SelLength = 100
  22. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы