哪位大师告诉我，如何把设计好的excel计算器表格用到VB里面啊

Answer 1

哪位大师告诉我，如何把设计好的excel计算器表格用到VB里面啊

多些一举，直接在VB中呼叫系统自带的计算器就行了。
为什么要用excel设计计算器呢？

哪位大侠可以告诉用VB或VC写一个计算器的原始码啊？

想学加我QQ452362812，VB方法实现。

如何用Excel设计自己的计算器

方法一,在单元格中写入计算式直接得出结果
在EXCEL中
加号为+
减号为-
乘号为*
除号为/
乘幂为^
等号为=
在电子表格中直接写入带等号的计算式,就会计算出值
如计算2+3乘以5再除以7的结果的两次方,公式可以写成
=((2+6)*5/4)^2
按下回车即可得值为100
方法二
在各单元格中分别写入要计算的数值,再用公式(或函式公式)进行计算
EXCEL四则运算
以A1至A5单元格区域及B6单元格为例,A1至A5分别为1,2,3,4,5,B6为6
加法
=SUM(A1:A5,B6)
=A1+A2+A3+A4+A5+B6
A1至A5及B6相加 值为21
减法
=SUM(A1:A5)-B6
=A1+A2+A3+A4+A5-B6
A1至A5相加减去B6 值为9
乘法
=PRODUCT(A1:A5,B6)
=A1*A2*A3*A4*A5*B6
A1至A5及B6相乘 值为720
除法
=PRODUCT(A1:A5)/B6
=A1*A2*A3*A4*A5/B6
A1至A5相乘除去B6 值为20
计算乘幂值,比如要计算A2单元格值为底,A3单元格值为幂次指数的值(即2的3次方)
则公式为
=A2^A3
=POWER(A2,A3)
即为2的3次方=8
输入公式的单元格不能是在公式中已被引用的单元格,以免形成回圈计算

表格的顶上是一排字母A,B,C,.......这个就是列标
表格的左边是一竖列的数字1,2,3,.......这个就是行号
列标加上行号就是就是单元格的名称,单元格名称也叫做单元格地址,如A列的第三行,为A3单元格,C列的第18行为C18单元格,第五列的第七行就是E7单元格,这样形成了一个个的座标,标明了每个单元格的位置.

求公路Excel设计好的计算表样

需要计算什么？建议楼主自己设计出样表，然后到:exceltip./?fromuid=2【我的提问】版面求助，把需要计算的单元格和资料关系说明一下，自然有人帮你。
本人也曾做多年高速公路施工。

请哪位大师 告诉我一下 古建筑的向量图 如何设计啊 用PS和CorelDraw

网上有许多的，这个素材你工作时一般都是用现成的为好，老板不会让你慢慢自己设计的，除非是个大单子，人家完全要求根据实际创作一种独特风格的。小价格的单子，每个元素都原创，你家老板会发疯咬你的。

求大神告诉我x+1/(x^2)求导计算器怎么按（991的计算器）

991只能求某一点的导数值，不能求导函式

如何锁定设计好的EXCEL表格，让其他人只能在表格里填写内容，不能修改设计好的表格属性和调整大小？

“工具”/“保护”/“保护工作表”
然后设定密码及相关修改许可权即可。

哪里有房贷的计算器啊 有谁告诉我呢

各家银行网站上都有。

求助高手，DELPHI计算器设计的流程图，哪位知道，告诉我呀，非常感谢！

这是原始码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton10: TSpeedButton;
StaticText1: TStaticText;
SpeedButton0: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
GroupBox1: TGroupBox;
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
restart: Boolean;
isfirst: Boolean;
fir_num,sec_num: String;
sign: integer;
result: real;
save: String;
implementation
{$R *.dfm}
function count(sign: integer):real;
begin
case sign of
1: result:=strtofloat(fir_num)+strtofloat(sec_num); 为加号时
2: result:=strtofloat(fir_num)-strtofloat(sec_num); 为减号时
3: result:=strtofloat(fir_num)*strtofloat(sec_num); 为乘号时
4: begin
try
result:=strtofloat(fir_num)/strtofloat(sec_num); 为除号时
except
ShowMessage('错误!');
form1.close;
end; 除数为0时,做出异常处理
end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i: integer;
begin
if restart then 如果是重新开始输入,则清除原来的运算元,并设定isfirst为True
begin
isfirst:=True;
fir_num:='';
sec_num:='';
restart:=False;
end;
if isfirst then 如果是第一个运算元
begin
if (sender as TSpeedButton).Caption='.' then 如果输入的是小数点
begin
if (strlen(pChar(fir_num))<=0) then 如果第一个运算元并未输入
fir_num:='0.'
else
for i:= 1 to strlen(pChar(fir_num)) do
if fir_num[i]='.' then exit;
如果第一个中已含有小数点而又输入小数点,则退出
end;
if (strlen(pChar(fir_num))>0) and (fir_num[1]='0') then 如果最高位为0
begin
if ((sender as TSpeedButton).Caption='.') then
fir_num:='0.'
else
begin
if strlen(pChar(fir_num))>1 then 如果是小数,则继续输入
fir_num:=fir_num+(sender as TSpeedButton).Caption
else
fir_num:=(sender as TSpeedButton).Caption;
如果不是小数,则去掉最高位的0
end;
end
else
fir_num:=fir_num+(sender as TSpeedButton).Caption;
StaticText1.Caption:=fir_num;
end
else
begin
if (sender as TSpeedButton).Caption='.' then 如果第二个运算元并未输入
begin
if (strlen(pChar(sec_num))<=0) then
sec_num:='0.'
else
for i:= 1 to strlen(pChar(sec_num)) do
if sec_num[i]='.' then exit;
如果第二个中已含有小数点而又输入小数点,则退出
end;
if (strlen(pChar(sec_num))>0) and (sec_num[1]='0') then 如果最高位为0
begin
if ((sender as TSpeedButton).Caption='.') then
sec_num:='0.'
else
begin
if strlen(pChar(sec_num))>1 then 如果是小数,则继续输入
sec_num:=sec_num+(sender as TSpeedButton).Caption
else
sec_num:=(sender as TSpeedButton).Caption;
如果不是小数,则去掉最高位的0
end;
end
else
sec_num:=sec_num+(sender as TSpeedButton).Caption;
StaticText1.Caption:=sec_num;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StaticText1.Caption:='0.'; 设定StaticText1初始显示为0.
restart:=False;
Isfirst:=True;
fir_num:='';
sec_num:='';
end;
procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
if (fir_num<>'') and (sec_num<>'') then
如果两各运算元都不为空
begin
result:=count(sign); 呼叫函式,返回计算结果
fir_num:=floattostr(result);
sec_num:='';
StaticText1.Caption:=floattostr(result);
end;
sign:=(sender as TSpeedButton).Tag;
isfirst:=False;
restart:=False;
end;
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
if (sec_num<>'') then
如果第二个运算元不为空则返回结果
begin
result:=count(sign);
fir_num:='';
fir_num:=fir_num+floattostr(result);
StaticText1.Caption:=floattostr(result);
sec_num:='';
end;
restart:=true;
end;
procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
restart:=True;
fir_num:='';
sec_num:='';
self.StaticText1.Caption:='0.';
end;
procedure TForm1.SpeedButton17Click(Sender: TObject);
begin
Close;
end;
end.

哪位能告诉我这种计算器怎么计算∑和产生随机数

您的计算器无法进行西格玛求和运算 随机数请按[SHIFT] [.](小数点)和等于号