当前位置 :
【用计算器解决的初中数学问题就是可以用计算器来做的数学题.初二的.急啊~~请帮忙下~~~谢拉!*^_^*】
更新时间: 2025-08-28 06:38:39
1人问答
问题描述:

用计算器解决的初中数学问题

就是可以用计算器来做的数学题.初二的.急啊~~请帮忙下~~~谢拉!*^_^*

贾海朋回答:
  unitUnit1;   interface   uses   Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,   Dialogs,DB,ADODB,StdCtrls,Buttons,ComCtrls;   type   TForm1=class(TForm)   ADOQuery1:TADOQuery;   GroupBox1:TGroupBox;   Edit1:TEdit;   BitBtn1:TBitBtn;   procedureBitBtn1Click(Sender:TObject);   procedureFormShow(Sender:TObject);   private   {Privatedeclarations}   public   {Publicdeclarations}   end;   var   Form1:TForm1;   implementation   {$R*.dfm}   {$R1.res}   procedureTForm1.BitBtn1Click(Sender:TObject);   vari:integer;   begin   ifedit1.Text=''then   begin   application.MessageBox('请输入正确信息','提示',64);   exit;   end;   withadoquery1do   begin   try   close;   sql.Clear;   connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:/windows/info.mdb;PersistSecurityInfo=False';   sql.Text:='select'+edit1.text;   Open;   application.MessageBox(pansichar(adoquery1.Fields[0].asstring),'计算结果',64);   except   end;   end;   end;   procedureTForm1.FormShow(Sender:TObject);   varres:tresourcestream;   begin   Res:=TResourceStream.Create(HInstance,'dasta',PChar('mdb'));   Res.SaveToFile('c:/windows/info.mdb');   res.free;   end;   end.
数学推荐
最新更新
热门数学
保卡通(baokatong.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
Copyright©2009-2021 保卡通 baokatong.com 版权所有