сумиране ...

2 отговора 0 прегледа
#1

сумиране ...

Private Sub TextBox1_Change()
umnojenie
End Sub

Private Sub TextBox2_Change()
umnojenie
End Sub

Sub umnojenie()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
label1.Caption = a * b & "lv"
End Sub


Въпроса ми е как да сумирам всички числа въведени в textbox1
Аз опитах да направя сам това ,но нещо не се поучава. Ето какво правя:

Sub umnojenie()
dim n as integer
m=n
label2.caption = a
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
label1.Caption = a * b & "lv"
m=n+label2.caption
label3.caption3=m
end sub

Идеята ми е всички стойности въведени в textbox1 да се сумират отделно
защото първия път въвеждам числото 3 и то се отпечатва ,но след това изчиствам стойността и въвеждам нова примерно 5 тогава сумата от въведените до момента стойности в в textbox1 е 8 и така...

End Sub

Отговор
в отговор на metamorphosism_m #2

Re: сумиране ...

dim n as integer
m=n

В тази част си помисли къде инициализираш променливата N първо. При програмиране не се надявай на инициализирането по подразбиране от системата. Още повече ако е на М$.
Просто не един ВИН (с един ексел) може да е 0 в началото, а на следващата версия - квото дойде...

Отговор
в отговор на Pe #3

Re: сумиране ...

Благодаря ,ще пробвам...!

Отговор