어떤 마스터가 디자인 된 엑셀 계산기 양식을 VB 에 사용하는 방법을 알려줍니다.

어느 대가가 어떻게 설계된 엑셀 계산기 양식을 VB 에 쓸 수 있는지 알려주신 분 < P > 은 VB 에서 직접 시스템 고유의 계산기를 호출하시면 됩니다.

excel 을 사용하여 계산기를 설계하는 이유는 무엇입니까? 어떤 전사가 VB 나 VC 로 계산기를 쓰는 소스 코드를 알려줄 수 있나요? < P > QQ452362812, VB 방법 구현을 배우고 싶습니다. Excel 을 사용하여 자체 계산기 설계 방법

방법 1, 셀에 표현식을 작성하여 직접 결과

EXCEL 에서

더하기 +

빼기 -

곱하기 *

나누기/< 값

가 계산됩니다. 예를 들어 2+3 에 5 를 곱한 다음 7 로 나눈 결과의 제곱을 계산하면 공식은

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

로 쓸 수 있습니다. 캐리지 리턴을 누르면 1

메소드가 됩니다 공식 (또는 함수 공식) 을 사용하여

EXCEL 4 계산

A1 ~ A5 셀 영역과 B6 셀을 예로 들어 A1 ~ A5 는 각각 1,2,3,4,5 이고 B6 은 6

더하기 < 입니다 B6)

=A1+A2+A3+A4+A5+B6

A1 ~ A5 및 B6 더하기 21

빼기

= sum (a1: A5) B6)

=A1*A2*A3*A4*A5*B6

A1 ~ A5 및 B6 곱하기 값은 72

나누기

= 제품 (a1:; A3 셀 값은 거듭제곱 지수 값 (즉 2 의 3 승)

이고 공식은

= a2 a3

= power (A,B,C a3)

입니다. 2 의 3 승 =8

입니다 이것은 열 레이블 < P > 테이블의 왼쪽입니다. 세로 열의 숫자 1,2,3 입니다. 이것은 행 번호 < P > 열 레이블에 행 번호를 더하면 셀의 이름이고 셀 이름은 셀 주소라고도 합니다. 예를 들어 a 열의 세 번째 행, A3 셀, c 열의 18 번째 행은 C18 셀입니다. 집주인이 직접 샘플 테이블을 설계한 다음 exceltip./? Fromuid=2 내 질문 레이아웃에 도움을 청하고 계산이 필요한 셀과 자료 관계를 설명하면 당연히 누군가가 너를 도울 것이다.

본인도 다년간 고속도로 공사를 한 적이 있다. < P > 어느 대사에게 고대 건물의 벡터도가 어떻게 설계되었는지 알려 주세요. PS 와 CorelDraw

인터넷으로 많은 것들이 있습니다. 이 소재는 보통 기성품으로 일하시는 것이 좋습니다. 사장님은 당신이 천천히 스스로 디자인하게 하지 않을 것입니다. 큰 목록이 아니라면, 사람들은 실제에 따라 독특한 스타일을 만들 것을 완전히 요구하고 있습니다. 작은 가격 목록, 모든 원소가 오리지널, 너희 집 사장이 미친 듯이 너를 물어뜯을 것이다. 구대신은 나에게 X+1/(X 2) 도구계산기가 어떻게 (991 의 계산기) < P

도구/보호/워크시트 보호

를 선택한 다음 암호 및 관련 수정 권한을 설정하면 됩니다. 주택 융자 계산기가 어디 있어요? 누가 말해 줬어요? < P > 각 은행 사이트에 다 있어요. 고수님, 델파이 계산기가 디자인한 흐름도, 아시는 분, 말씀하세요. 대단히 감사합니다!

이것은 소스 코드입니다:

unit Unit1;

interface

uses

windows, messages, sysutils, variants, classes, graphics, control

유형

tform1 = class (tform)

패널 1: t 패널;

패널 2: t 패널;

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;

SpeedButton1: TSpeedButton;

StaticText1: TStaticText;

SpeedButton: TSpeedButton;

SpeedButton16: TSpeedButton;

SpeedButton17: TSpeedButton;

그룹 박스 1: t 그룹 박스;

procedure speed button 1 click (sender: tobject);

procedure formcreate (sender: tobject);

procedure speed button 11 click (sender: tobject);

procedure speed button 15 click (sender: tobject);

procedure speed button 16 click (sender: tobject);

procedure speed button 17click (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;

구현

{$ 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; 제수가 일 때 예외 처리

end;

end;

end;

procedure tform 1.speed button 1 click (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 소수점을 입력하는 경우 <; =) then 첫 번째 피연산자가

fir _ num: =' .'

else

for I: = 1 to strlen 을 입력하지 않은 경우

첫 번째 에 이미 소수점이 포함되어 있고 소수점을 입력하는 경우

end; 를 종료합니다

if (strlen(pChar(fir_num))> ) and (fir_num[1]='') then 최고 비트가

begin

if ((sender as tspeedbutton). 1 then 십진수인 경우

fir _ num: = fir _ num+(sender as tspeedbutton). caption

else

를 계속 입력합니다

소수가 아닌 경우 가장 높은 비트의

end; 를 제거합니다

end

else

fir _ num: = fir _ num+(sender as tspeedbutton). caption;

StaticText1.Caption:=fir_num;

end

else

begin

if (sender as tspeedbutton). caption =' ..' then 두 번째 피연산자가 < 를 입력하지 않은 경우 = ) then

sec _ num: =' .'

else

for I: = 1 to strlen (pchar (sec _ nnu)

두 번째 에 이미 소수점이 있고 소수점을 입력하는 경우

end; 를 종료합니다

if (strlen(pChar(sec_num))> ) and (sec_num[1]='') then 최고 비트가

begin

if ((sender as tspeedbutton). 1 then 십진수인 경우

sec_num:=sec_nu 를 계속 입력합니다