高分求高手用VB编程一个简单的计算器，有可选要求的````

来源：百度知道 编辑：UC知道 时间：2024/06/08 18:10:07
要求1： 计算器 在做5/10之后 能得出0.5，而不是.5。要求有小数点前面的零。
要求2：2个TEXT TEXT1是计算数据的，TEXT2是 用来储存数据的，用VB 做一程序，可以将TEXT1中数据贮存到 TEXT2中。
要求3：尽量有外型，及其对应的控件名称和源代码。

前2个要求可以 2选1 来回答，答对哪个 都可以得分，要求3尽量符合。
谢谢了，急需哦。

unit Unit1;

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;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{$R 1.res}

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
if edit1.Text='' then
begin
application.MessageBox('请输入正确信息','提示',64);
exit;
end;
with adoquery1 do
begin
try
close;
sql.Clear;