Current location - Health Preservation Learning Network - Healthy weight loss - Which expert tells me how to use the designed excel calculator form in VB?
Which expert tells me how to use the designed excel calculator form in VB?
Which expert tells me how to use the designed excel calculator form in VB? Just call the calculator that comes with the system directly in VB.

Why use excel to design a calculator?

Who can tell me to write the source code of calculator with VB or VC? If you want to learn, add me QQ4523628 12, and realize it by VB method.

How to design your own calculator with Excel Method 1: Write the calculation formula in the cell and get the result directly.

In EXCEL

The plus sign is+

The minus sign is-

Multiply by *

Divide by/

Improve the ability to ...

The equal sign is =

Write the formula with the equal sign directly in the spreadsheet, and the value will be calculated.

For example, if you calculate the square of the result of multiplying 2+3 by 5 and dividing it by 7, the formula can be written as follows.

=((2+6)*5/4)^2

Press Enter to get the value of 100.

Method 2

Write the numerical value to be calculated in each cell, and then use the formula (or function formula) to calculate.

EXCEL four operations

Take cell areas A 1 to A5 and cell B6 as examples. A 1 to A5 are 1, 2, 3, 4, 5, and B6 is 6.

add

=SUM(A 1:A5,B6)

=A 1+A2+A3+A4+A5+B6

A 1 to the sum of A5 and B6 is 2 1.

subtraction

=SUM(A 1:A5)-B6

=A 1+A2+A3+A4+A5-B6

A 1 to A5 plus or minus B6 is 9.

increase

= product (A 1:A5, B6)

=A 1*A2*A3*A4*A5*B6

The product of A 1 to A5 and B6 is 720.

separate

= product (A 1:A5)/B6

=A 1*A2*A3*A4*A5/B6

A 1 to A5 times B6 is 20.

Calculate the power value, for example, calculate the value of cell A2 as the radix, and the value of cell A3 as the power exponent (that is, the third power of 2).

The formula is

=A2^A3

= Power (A2, A3)

That is, the third power of 2 =8.

The cell in which the formula is entered cannot be a cell that has been referenced by the formula, so as to avoid circular calculation.

At the top of the table is a row of letters a, b, c, ...........................................................................................................................................................

On the left side of the table is a vertical column of the number 1, 2, 3, ... This is the line number.

The column label plus the line number is the cell name, and the cell name is also called the cell address. For example, the third row of column A is cell A3, the 18 row of column C is cell C 18, and the seventh row of column V is cell E7, thus forming coordinates and indicating the position of each cell.

What do you need to calculate in order to find the sample of calculation table designed by highway Excel? It is suggested that the landlord design the sample table himself, and then go to exceltip. /? Fromuid=2 my question page for help. Explain the relationship between the cells to be calculated and the data, and naturally someone will help you.

I also worked in expressway for many years.

Please tell me how to design the vector diagram of ancient buildings. There are many people who use PS and CorelDraw on the Internet. This material is usually ready-made at work. The boss won't let you design slowly unless it's a big list. People completely demand to create a unique style according to the actual situation. Small price list, every element is original, and your boss will bite you crazy.

Ask the gods to tell me how to find the derivative value of a point according to x+1/(x 2) derivative calculator (99 1 calculator) 99 1, instead of the derivative function.

How to lock the designed EXCEL form so that others can only fill in the form, but can't modify the properties and adjust the size of the designed form? Tools/protection/protection table

Then set the password and related modification rights.

Where is the calculator for mortgage? Who told me that? It's on all banks' websites.

Help expert, DELPHI calculator design flow chart, who knows, tell me, thank you very much! This is the original code:

Unit1;

connect

use

Windows, messages, systems, variables, classes, graphics, controls, forms,

Dialog boxes, buttons, standard controls, extended controls.

type

TForm 1 = class(TForm)

panel 1:TPanel;

panel 2:TPanel;

speed button 7:TSpeedButton;

speed button 8:TSpeedButton;

speed button 9:TSpeedButton;

speed button 13:TSpeedButton;

speed button 4:TSpeedButton;

speed button 5:TSpeedButton;

speed button 6:TSpeedButton;

speed button 12:TSpeedButton;

speed button 1:TSpeedButton;

speed button 2:TSpeedButton;

speed button 3:TSpeedButton;

speed button 1 1:TSpeedButton;

speed button 14:TSpeedButton;

speed button 15:TSpeedButton;

speed button 10:TSpeedButton;

static text 1:tstatic text;

speed button 0:TSpeedButton;

speed button 16:TSpeedButton;

speed button 17:TSpeedButton;

group box 1:TGroupBox;

Program SpeedButton 1Click (sender: toobject);

procedure form create(Sender:to object);

Program speedbutton11click (sender: toobject);

Program SpeedButton 15Click (sender: toobject);

Program SpeedButton 16Click (sender: toobject);

Program SpeedButton 17Click (sender: toobject);

private

{Private statement}

public

{public statement}

End;

defined variable

form 1:t form 1;

restart:Boolean;

is first:Boolean;

fir_num,sec _ num:String;

Symbol: integer;

Results: True;

save:String;

fulfil

{$R *。 dfm}

Function count (symbol: integer): real number;

begin

Lattice symbol of

1: Results: = strtofloat (fir _ num)+strtofloat (sec _ num); When it is a plus sign

2. Results: = strtofloat (fir _ num)-strtofloat (sec _ num); When it's a minus sign.

3. Results: = strtofloat (fir _ num) * strtofloat (sec _ num); When it is a multiplication symbol

4: Start

attempt

Results: = strtofloat (fir _ num)/strtofloat (sec _ num); When it is a divisor.

Except for ...

ShowMessage ('Error! );

form 1 . close;

End; When the divisor is 0, an exception is handled.

End;

End;

End;

Program TForm 1. SpeedButton 1Click (sender: toobject);

defined variable

I: integer;

begin

If it is restarted, then if the input is restarted, the original operand is cleared and isfirst is set to true.

begin

is first:= True;

fir _ num:=“”;

sec _ num:=“”;

Restart: = False

End;

If is the first operand; otherwise,

begin

If (sender is speed button). Title ='.' If you enter a decimal point,

begin

if(strlen(pChar(fir _ num))& lt; =0) Then if the first operand is not entered,

fir_num:='0 '

other

for I:= 1 to strlen(pChar(fir _ num))do

If fir_num[i]='.' and then exit;

If the first one already contains a decimal point and you enter a decimal point, exit.

End;

if(strlen(pChar(fir _ num))& gt; 0) and (fir _ num [1] =' 0'), then if the highest bit is 0.

begin

If ((sender is TSpeedButton). Title ='.') and then

fir_num:='0 '

other

begin

if strlen(pChar(fir _ num))& gt; 1 Then if it is a decimal, continue to enter.

Fir_num:=fir_num+ (sender is TSpeedButton). title

other

Fir_num:= (sender is TSpeedButton). Title;

If it is not a decimal number, delete the highest order 0.

End;

end

other

Fir_num:=fir_num+ (sender is TSpeedButton). Title;

StaticText 1。 Title: = fir _ num

end

other

begin

If (sender is speedbutton). Title ='.' If the second operand is not entered.

begin

if(strlen(pChar(sec _ num))& lt; =0) Then

sec_num:='0 '

other

for I:= 1 to strlen(pChar(sec _ num))do

If sec_num[i]='.' and then exit;

If the second contains a decimal point and you enter a decimal point, exit.

End;

if(strlen(pChar(sec _ num))& gt; 0) and (sec _ num [1] =' 0'), then if the highest bit is 0.

begin

If ((sender is TSpeedButton). Title ='.') and then

sec_num:='0 '

other

begin

if strlen(pChar(sec _ num))& gt; 1 Then if it is a decimal, continue to enter.

Sec_num:=sec_num+ (sender is TSpeedButton). title

other

Sec_num:= (sender is TSpeedButton). Title;

If it is not a decimal number, delete the highest order 0.

End;

end

other

Sec_num:=sec_num+ (sender is TSpeedButton). Title;

StaticText 1。 Title: = sec _ num

End;

End;

Program TForm 1. FormCreate (sender: toobject);

begin

StaticText 1。 Title: =' 0'; Set the StaticText 1 initial display to 0.

Restart: = False

is first:= True;

fir _ num:=“”;

sec _ num:=“”;

End;

Program TForm 1. Speedbutton11click (sender: toobject);

begin

if(fir _ num & lt; >') and (sec _ num < >') then

If both operands are not empty

begin

Result: = Count (symbol); Call the function to return the calculation result.

fir _ num:= float tostr(result);

sec _ num:=“”;

StaticText 1。 Title: =floattostr (result);

End;

Symbol: = (sender is TSpeedButton). Label;

is first:= False;

Restart: = False

End;

Program TForm 1. SpeedButton 15Click (sender: toobject);

begin

if(sec _ num & lt; & gt') So

If the second operand is not empty, the result is returned.

begin

Result: = Count (symbol);

fir _ num:=“”;

fir _ num:= fir _ num+float tostr(result);

StaticText 1。 Title: =floattostr (result);

sec _ num:=“”;

End;

Restart: = true;

End;

Program TForm 1. SpeedButton 16Click (sender: toobject);

begin

Restart: = true;

fir _ num:=“”;

sec _ num:=“”;

Self. StaticText 1。 Title: =' 0';

End;

Program TForm 1. SpeedButton 17Click (sender: toobject);

begin

Close;

End;

End.

Who can tell me how this calculator calculates Σ and generates random numbers? Your calculator cannot perform sigma summation. Please press [SHIFT] [. ] (decimal point) and equal sign represent random numbers.