сумиране ...
2 отговора
0 прегледа
сумиране ...
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
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
Re: сумиране ...
dim n as integer
m=n
В тази част си помисли къде инициализираш променливата N първо. При програмиране не се надявай на инициализирането по подразбиране от системата. Още повече ако е на М$.
Просто не един ВИН (с един ексел) може да е 0 в началото, а на следващата версия - квото дойде...
m=n
В тази част си помисли къде инициализираш променливата N първо. При програмиране не се надявай на инициализирането по подразбиране от системата. Още повече ако е на М$.
Просто не един ВИН (с един ексел) може да е 0 в началото, а на следващата версия - квото дойде...