Как найти сумму чисел в 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

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

5   голосов , оценка 4 из 5
Похожие ответы