随机数 程序产生一个随机的三位数,如328,并且要求程序能够把这个数字随机的分配成三个数字如:28,100,200,要求分配成的三个数字之和为输入的数字。请告诉如何实现,给出源代码!谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var n,n1,n2,n3:integer;begin Randomize; n:=strtoint(edit1.Text); n1:=Random(n); n2:=Random(n-n1); n3:=n-n1-n2; edit2.Text:=inttostr(n1); edit3.Text:=inttostr(n2); edit4.Text:=inttostr(n3);end; ADOquery执行存储过程的执行如何反映在进度条上 好久没来CSDN了. 分享经验 <Delphi中DLL的消息处理> 开心, 散分. 日期操作问题,在线等!!1 如何打印多个图片拼在一块的大图 求文件分割和合并的代码 关于程序打包的问题 初学者的问题~~大虾们能进来看看吗?谢谢 关于TListView的一个小问题 DB数据表的文件头有多长(*.db)?认真回答的,我马上给分,决不食言!!!!!! 又一個DBNavigator控件問題,再給您加分。 ComboBox的样式改成csDropDownList后Text属性没用了,那么怎么控制显示在列表框原来Text地方的内容? 如何传递事件句柄
var
n,n1,n2,n3:integer;
begin
Randomize;
n:=strtoint(edit1.Text);
n1:=Random(n);
n2:=Random(n-n1);
n3:=n-n1-n2;
edit2.Text:=inttostr(n1);
edit3.Text:=inttostr(n2);
edit4.Text:=inttostr(n3);
end;