一个简单的算法!!
乘法运算,edit1里面是被乘数,edit2里面是乘数,我想让button单击一次乘数就乘一次,就象
3*2,单击一次就乘一次2
问题点数：0、回复次数：5Top
1 楼kyee（浪子阿鹏）回复于 2005-06-02 23:01:43 得分 0
procedure TForm1.Button1Click(Sender);
const
Value: Integer = 1;
var
intA, intB, intC: Integer;
begin
Val(Edit2.Text, intB, intC);
if Value = 1 then
begin
Val(Edit1.Text, intA, intC);
Value := intA * intB;
end
else
Value := Value * intB;
end;Top
2 楼Corn1（玉米）回复于 2005-06-03 10:18:08 得分 0
procedure TForm1.Button1Click(Sender);
var
N1, N2: Integer;
begin
N1 := StrToInt(Edit1.Text);
N2 := StrToInt(Edit2.Text);
N1 := N1 * N2;
Edit1.Text := IntToStr(N1);
end;Top
3 楼heluqing（鉴之小河〖劳累求充实〗)(vcl .net）回复于 2005-06-03 10:21:08 得分 0
玉米...Top
4 楼5043682（投身于..??）回复于 2005-06-03 12:08:10 得分 0
zVal(Edit2.Text, intB, intC);这一句是什么意思?Top
5 楼xinqingbucuo（心情不错）回复于 2005-06-04 10:41:54 得分 0
玉米...的简单Top
