Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

метод указания информатика

.pdf
Скачиваний:
11
Добавлен:
12.03.2015
Размер:
10.93 Mб
Скачать

35

x>=~2

 

 

 

 

 

 

 

 

 

 

 

 

-2

x<=

ecjiH

 

arctgx-e"

 

-/r-

-2<x<2

 

+1;

 

Vx

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4;

 

fJpuMep

 

BBBCTH$opMyjry:

 

B4

 

 

 

 

 

B"

 

Off:

 

 

,

 

 

 

:

 

 

J3;ty-

 

 

3:.0

 

 

 

 

 

 

 

 

;

^'i

 

 

 

 

 

 

 

 

 

'-

 

 

 

HcxoflHbieAaHHhie;

 

0

B3neeHMeHOBaTbBx,yCOOTBCTCTBCHHOHBBCCTH

 

B2

 

 

 

 

 

 

 

iimne.;i6Excel:

PcmenueB

 

 

 

BApyrax

1;

 

 

 

 

 

 

 

y>0

H

x<y

 

 

-y;

 

x

 

 

y<2

H

x>y

 

 

 

 

 

 

 

 

 

 

 

 

HHHTH3HaMeanatftyHKUMHZ:

 

 

 

 

 

 

 

npujnep3:

 

 

 

 

'y-6094.3

 

 

 

 

 

 

npHa=2,x=l,

 

:

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

MsgBox"y="&y

 

 

 

 

 

 

 

 

 

 

 

EndIf

 

 

 

 

 

 

 

 

 

If

 

End

,

==Sqr(Abs(a-x))+a*Log(3*x)

y

 

 

 

 

 

 

 

 

 

 

 

Else

 

 

 

 

 

 

 

/a)

-Atn(I

y=

 

 

 

2Anda<=4Then

 

Ifx>

 

 

 

 

 

 

 

 

 

 

 

 

Else

 

 

 

2+2*a)

A

y=a+x*Log(x

 

 

 

 

 

 

Ifx<3Anda>-xThen

 

 

 

 

 

 

 

 

 

 

 

 

OKHC

x=Va!(InputBox("BBeAHTex","BsoAx"))'BsoAAaHHbix

22

 

 

i

1

 

:

i

i

 

 

 

•-

5808.922337203685477

 

 

 

AO

5808.922337203685477

 

 

 

Or

 

crpOKOBoe3HaneHne

HJIH

HHcnoBoe

JlioSoe

 

CcbiJiKanaooteKT

 

 

CHM8OJ1OB

Or0AOAByxMmumapAOB

 

Or1AO65400

AO79763.113486232E308

94065645841247Y.4-324

HOT

AJiaOTpnuaTejibHbrx

-94065645841247E.4-324

79763.113486232E308AO

 

 

Or

 

4

'

jiHUbi1

 

 

 

 

 

Hee

(AeHeHCHbie

 

 

1

 

 

nocjie

 

 

 

 

 

 

 

 

 

 

 

 

 

TOHKHH4UHt^pbl

 

 

 

 

 

 

AecarHiHOH

 

 

 

8SaTfi-

AO

UH(|)p

15

AO

 

 

 

^Hcna,HMeioiuwe

 

 

Hpomtemunbi

 

 

 

 

 

CTpOK

 

 

 

 

AJia

 

CHMBOJI

 

 

 

 

Ha

 

 

6anr

 

THROBAaHHbDC

1

+

6aHxa

 

nepeHHCJieHHtix

22

 

 

,.MHcejiH3

 

jnoSoro

Ana

Saftr

16

 

SnaMCHHa

 

 

Variant

Tiifibi

 

 

 

 

 

46aHraHJI

 

PHCyHOK

 

06-beKmtibiemtinbi

 

 

 

 

 

CHMBO^

 

 

 

 

 

 

 

KaMCAbffi

 

(CTfiOKa)

Ha

 

 

Gafir

nH(J)opMauHa

1

+

106aftr

 

TeKCTOBas

 

 

 

CHMBOJl

 

(crpoKa)

 

 

 

KaatAbiH

HHtJtopMaUWH

Ha

 

oaHT

1

 

TeKcroBaa

 

CmpOKoebiemitnw

 

 

 

 

''

 

 

 

 

TOHKOH"

 

 

 

 

 

 

ruiaBaiomeH

CTOHHOCTH

'ABOHHOH MHCJia

 

 

86aHT

BemecTBeHHbie

'

'

3"

2

Currency

 

Variant

 

Object

 

AHHHbl)

nepeMeHHOH

(crpOKa

String

 

AJlHHbl)

(j)HKCHpOBaHHOH

 

String\a

Double

I

23

 

 

 

.MOflyjiefi

osnenpHJioacenHflHAQcrynHaH3BCCXero

 

 

 

 

 

nepeMei«ia3

o6pa30M

TOKHM

o&bfliuieHHaa

 

-

I*ublic

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private.paaHosHaMHbi

 

MOAyJwDimH

o&baBJieHWMBpaaaejienio6aru>HbixooijflBJieHHH

4>yHKu,HH,npn

 

HJIH

npoueflypbi

BHyrpM

o&baBjwrbnepeMenHyio

HeMO)Ker

Private-

 

:

,-

 

 

 

 

 

 

 

 

 

ApyrwxMo^yneHona6yAerHe.BHAHO

 

 

 

 

 

 

 

 

 

 

 

Ho^yHKiJiHH3roro.MO^ryjia^JIH

TOOHaAocrynnajyiflBcexnpou,e^yp

(j)opMbJ,

 

HJIH

MOflyna

o6i>HBJieHHH

rjio6anbHbrx

.pasAeJie

B

oSTaflBJiaerca

 

 

ECJIH

KoxopbixOHH.o&bJiBjjeHbj

B

t

 

HJIH

npoue,zryp

BbisoBa

 

fyyiixuy&

 

Dim-o&bflBJiflerjioKajitHbienepeMenttbie,cymecrByiomHeTOJibKOBO

 

 

OHHM.OH3

 

 

 

 

3aflaercjinpH

 

 

 

 

 

 

O6jiacrb

 

eudiwocmu

o6jiacmbK)

 

HasbiBaerca

nepeMeHnaa,

HcnojibsosaHa

6brrb

 

 

jyiaOAHOHununecKojibKHxee.HacreitOSjiacrbnporpaMMbi,BKOTOPOH

 

 

JIHOO

nporpaMMbi

BCCH

flocryrmapw

MOJKCT6bm>

 

 

 

 

 

 

HKOHCT3HT

 

 

 

.7.3Of)J1»CTIIBHAHMOCTH

 

 

 

 

 

 

 

 

 

npocroyicasaHHeMeeIIMCHHBxeKcre.nporpaMMbi

 

 

 

 

 

FIpMBTOPOMcnocoSeHejiBHorooeTjaBjieHiwnepeMCHHaa

 

 

ijejroeqncjio,I,j~ranVariant)

DimI,j,kAsinteger(k-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

DimAAsVariant

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Integer

DimIAs

 

UpiiMCp:

 

 

 

 

 

 

Dim.HMXnepe^euHouAsmundambix

CHHraKCiic:

 

ffncMX)6

nepeMeHHbrxMoacer6brn>HBHOHn.HeaBHOHriepBbifi

 

 

 

 

 

 

 

 

OuT>iiBJiCHnenepeM£HHbix

.6.3

 

 

 

 

 

 

3H3KOBnoonesansrrofi

 

 

 

 

 

IMC/ID

 

 

 

,27

~

BemecTBeHHoe

 

 

 

 

 

 

Decimal

 

 

 

-729snaKOB

IJejioe

146am-

 

^eCHTHHHOe

 

 

 

 

ACKa6gfl9999.r

 

 

 

HBpeweHH

flare

 

Date

 

100.rflo31

1HHBapH

Or

 

O86aHT

HH(J)OpMaUHfl

 

 

 

 

 

4

 

 

 

 

 

3

 

 

 

2

 

 

1

 

34

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

OKH6

a=Val(InputBox("BBeflHTea","BBOAa"))'BBOAAaHnwx

 

 

 

 

Pa3BerBJifliomHecfl2()

 

Sub

 

 

Ha6epMTe.nporpawiwy

.3

 

 

 

 

 

 

OTKPOHTCMoAyJib2

.2

 

 

 

 

 

 

 

 

 

VisualBasic),

 

 

 

 

 

FlepeHTHBpe^aKTOpVisualBasic(CepBHC-MaKpoc-

1.

 

 

 

 

 

(SanwcbManpocaBBM^COTflejibHOH

 

PeuieHHeBpe^aKTOpeExcelVisualBasic

flHanoroBtix.OKnax

BfioflflaHHbix,BbiBOflpesyjibxaraopraHwsoBaTbB

 

BApyrnxcjiynanx

J|a-x+a*lg(3*;c),

 

 

 

 

 

 

 

 

 

 

 

\z)

 

 

 

 

 

 

x>2Ha<4

ecuH

 

 

 

I

-arctg-

 

 

 

*

x<:3Ha>x

CCJIH

 

+2*a),

2

a+x*ln(x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

VisualBasic

CocTaBHTbnporpaMMyanaBbiMHCJieHHa3HaqeHHa(|)yHKHBH

 

 

 

 

 

 

 

 

 

 

 

2:

ftpUMep

 

 

 

 

 

 

'OTBex:y~-3185.26

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

 

 

 

EndWith

'Bbieo^pegyjibraraBTa6jWiry

.VaIue.Range("C5")=y

 

WithWorksheets("Pa3BerBJiaK>mHeca")

 

 

 

 

 

 

 

 

 

 

EndIf

 

(-2)-Sqr(Abs(Tan(2*z-1)))

A

y=b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Else

 

2)

(1/

A

2-a)*Cos(z)-b*2

A

y=(z

 

 

 

 

 

 

 

 

 

2>=bThen

/N

Ifa+z

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

EndWith

 

'BsoflflanHbixH3Ta6jiHU>i

.Value.Range("z")

z=

 

'BsoflAaHHbixH3ta6jinubi

.Value.Range("b")

b=

 

.Value.Range("aa")'Bso^AaHHbixH3Ta6jiHu>i

a=

:Worksheets("Pa3BeTBj!flKDmHecn") With

Sub

jibHJIHInsert~Module)

 

HaSeptfre.nporpaMMy

.3

-

OricpOHTeMoAyjib2(BcraBKa

.2

 

 

 

VisualBasic),

 

riepeHTHBpeAaKxopVisualBasic(CepsHc-MaKpoc-

.1

 

(3anHCbMaKpocaBBHASOTACJibHOHnpoueAypw):

 

PeiueutieBpe^aKTopeExcelVisualBasic

 

FlosaBepiiieHHHBBOAB(J)opMyAbina>Kaxb.Enter

.6

 

~b^(1^b^

 

 

Macrep4>yHKUHH,KaxeropnajiorHMecicaa,—Ha.(j)yHKU-ECJ1H

 

BcxaBKH^

HcnojibsyaAJia

BflHefiicyB3(JiopMyjiy,

BBCCTH

 

 

 

 

.8,12

MHCAO:

 

4>opMyjiy:=-3*KopeHb(2),BB4

BBCCXHBB2MHCJIO-57,BB3

 

Bz,

B2nepeHMeHosaxbBaa,B3-Bb,B4-

 

 

 

 

 

KOMMCHTapHHKIIpHMCpy1,

 

-3)648^09.26

Pnayntrat:

1

BaneHKHA1:A5BBCCTH

 

'.S.

 

 

 

12.B

a=

m

 

 

 

-3J2B4D687.J

b=

•3'

 

 

 

**:

flepeHMCHOBaxbJIncr2B

.I

-57

as

 

 

 

PeiueimeByafijimieExcel:

 

 

 

>=b,

 

-a)*cosz~b*-j2,CCJIH

2

(z

 

 

 

 

 

 

 

 

 

 

1:HaftxH3HaneHHe

flpuMep

 

 

 

 

 

 

 

 

Endlf

 

 

 

 

 

BjioK_OnepaxopoB2

 

 

 

 

 

 

 

 

 

Else

 

 

 

 

 

 

IfVcjioBHeThen

 

 

onepamopa:

(fcopMasanucitycjio6HO8o

BjiovHGfi

 

 

 

IfVCJIOBHCThenOnepaxoplElseOnepaxop2

 

 

tpopMasanucuycjioenozoonepamopa:

 

 

 

 

 

 

 

 

HJIHHHbie.onepaxopbi

 

 

 

 

oxpeayjibxaxanpoBepKH

HeKoxopoejiorn'iecKoeycjioBHeHBsaBHCMWocxH

npOBepHK>T

oneparopbi

...YonoBHbie

...Else

...Then

If

onepaxopbi

Hcnojfb3yK)Tca

BnporpaMMe

BexeJieHHa

opraHHsauHH

/Jjifl

 

 

 

 

 

 

onpe#eJie"HHbix.ycjiOBHH

 

ox

BsaBHCHMOcxH

BKoxopbixpeuienHeHmexca

npoueccw,

3x0xaKHe

-

eu^ucnumenbHuenpoueccbi

l

Pci36em8}iaiow

uecfi

 

.6PasucnuiviioimiccHBtmHCJiHTeni>Hi»ienpoueccbi

 

 

 

 

 

 

 

 

 

 

 

 

24

 

 

 

 

 

 

 

 

 

 

x=3,

,acnpasa-HeKOTOpoeBbipaxceiiHe.HpiiMep:

 

 

 

 

 

 

pacnojiaraerca

Koxoporo

OT

cjiesa

 

 

 

 

 

 

 

onpeAejiae-rca

npHCBaHBanna

Onepaxop

.npHCBaHBaHHa

 

BBOAAaHHbixBnporpaMMeocymecTBjiaercanpnnoiwomHoneparopa

 

 

 

 

 

enpo^pa^^Me

.1.10.3BeoddaHHbix

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

BBOAa.A3HHbIX

 

33A3HHHCHOJlbSyiOTHHCTpyKUHH.BBOAaPaCCMOTpHMHCCKOJibKOBapHaHTOB

 

HJIHHSaneeicTa6JiHUbL^jiapemeHHa3TOH

AaHHbixOTnojib3OBaTejia

 

Heo6xoAHMocTb

B03HHKHyxb

MOMCCT

nporpaMMbi

paGoxbi

XOAC

B

 

 

 

 

 

 

BBOJIAaHHbix

.10.3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ypOBHeoSjiacTH.onpe^ejienHfl

HaOAHOM

HMCH

noBTopajomHxca

AonycKaeTcaHcnoJibsosaHHe

He

-

 

 

 

 

(JjyHKUHH,HHCTpyKUHH,MCTOAOBfl3biKaVisual.Basic

 

 

c

copnaAaioiuHe

HMCHB,

HcnojibsoeaTb

cneAyer

He

-

 

 

 

 

.CHMBOJIOB

HMCHaneAOJDKHbicoAepacaTb6ojiee255

-

 

 

 

 

 

 

 

 

 

 

 

 

 

}

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

CHMBOJ1LI(@,&$,.#)

 

3H3K,

 

 

 

MOMcercoAepacarbnpoGeji,TOHKy,

HC

 

 

 

 

 

 

 

 

 

 

HaHHHaTbcac.GyKBbi

 

 

 

 

 

 

 

BMOjjyjieVisualBasicHeo6xo^HMonoMHHTb,HTO

 

 

H

nepeMeHHbiM

npoqcAypaM,KOHcraHraM,

HMCH

npHCBoeHHH

npH

 

 

 

Basic

llpanujianpHCBoeuHHHMCIIBVisual

.9.3

 

 

 

 

 

 

 

.pasHcnojib30BaHHeKBaApaTHbixHJIH<}>HrypHbixcKo6oKne

 

npoH3BOJibHoeMHCJIO

flpyra

CKo6KHAonycKaexcaBKJiajjbiBaxbApyrB

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b*(2+c)-5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b*2+c/5

 

 

 

 

 

 

 

 

 

 

MOJKHOCHOMOmblOKpyrjTblX.CK06OK

.BblHHTaHHC)H3MCHHTbHOpSAOKBblMHCJlCHHaBblpaaCCHHa

(CJlOJKCHHeH

HHSKHMnpnopHxeroM

6ojiee

c

onepau,HH

HCM

panbuie,

BbinoJiHaxbca

 

cSojieeBbicoKHMnpHOpHTeroM(yMHOJKCHHeH^ejieHHe)6y#yr

Onepau,HH

.npHopnxex

CBOH

HMCCT

 

onepauHa

apHtJiMeTHMecicaa

 

 

 

 

 

 

 

 

 

 

 

(-),yMHOHcenne•(*),ACJieHHe.(/)

 

 

 

KOCHOBHbIMapH<J)MeTHMecKHMonepauHaMoTHocaxca:CJIOHCCHHC(+),

 

 

 

 

 

 

 

 

 

 

 

 

8.3.

 

 

 

 

 

 

25

 

 

 

 

 

EndWith

 

 

 

 

 

EndWith

 

.c=Rangc("A3")-Value

 

 

 

Value.c=,Range("c")

 

 

.b=Range("A2")-Value

 

 

 

.b=Value.Range("b")

 

 

.a=VaIue.Range("Al")

 

 

 

.a=Value.Range(«a")

 

 

WithWorksheets("Pa6oTal")

WithWorksheets(Pa6oTal")

 

 

 

 

 

 

 

 

 

 

w

 

 

 

 

Al,A2,A3

c

HMCCK

 

 

HMCCKCHMeHBMH3,b,C

H3

cJiHcraPa6oxal,

 

BBOA

BBOAAaHHbixcJiHCxaPaSoxal,H3

 

 

 

 

 

 

 

 

 

 

npitAtep2:

 

 

 

 

 

 

 

 

 

 

 

EndWith

 

 

 

 

 

 

 

 

 

 

 

 

 

With

 

 

H.MexoAWOnepaxopsanHCbisaexcjfcjieAyiomHMo6pa30M:

 

 

jieMeHTa_2,3jreMeHxa_3MoryxHcnojib3OBarbC

 

 

 

 

B

 

saiTHCHHcnoJibayercHonepaxop.With

 

 

 

 

 

 

 

CBOHCTBa,

(odteKTbi,

3JieMeHTbi

 

 

 

 

nporpaMMti,HcnoJib3yK>mneoGtem^HbiHnoAxpA,Macro

 

 

/:x=Worksheets("JlHCTl")-Value.Range("A^")

 

 

 

HJIH

 

 

 

 

 

 

 

 

.Value

 

 

HMH

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

BBOAa

 

 

 

 

 

 

 

.3.10.3BeoddannbixU3.Rwex

 

 

 

 

 

 

 

 

 

3Ha**eHHecooTBexcTByiomero.THna

 

cxpoKe,Kan

B

'iHCJia,coAep>KamHeca

BosBpamaer

Val

 

 

 

 

 

 

 

x=Val(lnputBox("BBeAHrex","BBOAx"))

flpUMep:

"

 

 

 

CTpoKOBoe3HaneHHe,coACpacamecTBKCT,BBeACHHbiHB.nojie

 

aareiw

KHOHKH,a

na«caTna

HJIH

 

nojib30BarejieM

BBOAateKcxa

 

coAep>Kameecoo6iMenHeHnojieBBOAa,ycraHaBJiHBaerpeaeHM

OKHO,

AHajioroBoe

Ha3Kpan

BHBOAHT

InputBox

OynKUHfl

.InputBox

 

ncnoibayerca

OKJHC

AHanoroBOM

B

BBOAaAatiHbix

^jifl

 

 

 

 

OKHB

.2.10.3BeoddanubixeduanozoeOM

 

 

 

 

 

 

 

 

 

 

32

 

 

 

 

 

 

 

 

 

 

.nporpaMMOfl/taiiHaanpou,eaypaaKTHBH3npyer[niGu'uiiiJIHCTJlHHefiHLie_.npoqeccw

 

 

 

aAulo_Open()aBTOMa'iii4ecKHBbinojumercanpnOTKpbiTHHpa6oieRKHHr

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.Linein

 

npoue/iypbi

HaasaHne

OKHBBtiGpaiij

AHajioroBoro

nojjBHBiuerocfl

 

CDHCKC

B

.MilKpOC

Ha3H3HHTb

KOMOHAy

 

M6HK)

KOHTCKCTHOM

 

KHOHKCIIpHiviepl,BwSparbB

IHejiKHyrbnpaeoHKHOHKOHMbiiuwno

.9

 

 

IlpiiMepl,npHnoMomHnaHGiiHHHcrpyMetrroB<«])opMhi».

 

KHonKy

HapHCOBarb

Jhiiieiiiibie_jipouccei>i,

JIHCT

B

FlepeHTH

.8

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

 

 

 

 

 

Show.UserForml

 

 

 

 

 

 

 

 

 

 

 

 

SubLineinQ

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

WorkSheets("JlHHefiiHi»ie_Activate.npoueccbi")

 

 

 

 

 

 

 

 

 

 

SubAuto_OpenQ

 

 

 

 

 

HBBCCTH

Module)

-

iwo^yjib(Unseil

HOBbifi

BCxaBHTb

 

 

 

 

nporpaMMOH,

c

Ana/iora

.HTWopraHH3auHHCBJISH

7.

 

 

 

nporecTMpoBarbnpoipaMMbi,HaacaBHaKHonKy3anycK

.6

 

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

End

 

 

 

 

 

 

PrivateSubConimandButton3_CIickQ

 

 

 

 

 

 

 

 

AHaaornHHOAHHKHonKHBbixoA-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

 

 

 

 

 

 

Text.TextBox3=""

 

 

 

 

 

 

 

 

 

 

 

Text.TextBox2=""

 

 

 

 

 

 

 

 

 

 

 

Text.TextBoxl=""

 

 

 

 

 

 

PrivateSubCommandButton2ClickO

 

KHomceOmtenrn>H

 

 

 

 

 

 

HaSparbcjieAyJomee:

 

HasBOHHioAHa/ioraUserForml,LUenKHyrbno

 

no

npoeicra

Boime

meJiKHyB

ABajKAti

Ananory,

K

Bo3BpaxHXbCH

 

 

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

(1/3)*Log(Atn(a*y))

 

3)+a

Text.TextBox3=

 

 

 

 

A

A

z-Exp(Sin(y)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a=.Val(TextBox2Text)

 

 

 

31

 

 

 

 

 

 

 

Str(z)npeoOpaayerHHCJIOBcrpoKy,

 

 

aVal(x)CJIJOKHTananpeoGpasoBaHHflcrpoKH.BIHCJTO

 

 

 

y=.VaI(TextBoxlText)

 

 

 

PrivateSubCommandButtonl__ClickO

 

BKoropOH

saroroBKanpoueAypH

no»BHTCfl

Forral

 

JIHCTCnporpaMMbiUser

B

KHonice.OTBCT

no

MbiiiJbK)

menicaeM

 

MjoGbiocymecTBHTbsaaHMOAeHCTBHeAnanor-acnporpaMMOH,

.5

PHC..11^HajiorOBoeOKHO

 

 

 

 

 

CommandButton3-BbixoA.(pHC11.)

 

 

-

CommandButton2

OTBCT,

 

-

«0opMbi».("ToolBox")CommandButtonl

 

 

HapHCOBartKHOHKH,HcnojTbsyaoAHOHM^HHbieKHOOKHc

c)

Aa/ieenpHnoMouwKHOHKHTCKCTOBOCnojie(TextBox)pacrflHyrb

b)

 

-PeayjibTarz;

-BBOAa,BMCCTOLabeB

BBOAy,BMCCTOLabeI2

 

-Labell BMecra Ha6part, npeAnpaccHHoe, yAanHTb Ha3BaHHH,

nojieAJW

pacraHyn,

MeiKa(Label)

KHOHKH

noMomn

npw

a)

 

,

.

("ToolBox")cosAartHeo6xoAHMbie3JieMeHTbiAHanora.

 

«flt>opivibi»

naH&jniHHcrpyMeHTOB

Ha

KHOOOK

noMombK)

C

.4

 

 

 

,

IIpiiMep(__.J1iuieii[iii>iie

Ha6epHre

 

BcrpoKeCaption,yAannresarojioBOKUserFormlH

Window)

 

HsMCHifThsarojiosoKAnanora,A^asfroroBOicucCBOHCTB(Properties

.3

 

CBOHCTB)HOKHOnpoeicra(View-Project.Explorer)

 

-OKHO

(BHA

PropertiesWindow

OKHOCBOHCTBView-

Bb!3Barb

.2

 

 

 

 

 

 

(BcraBKa-^Ha-.ior)

 

Insert-UserForm

PeAaicropVisualBasic,

MaKpoc-

CepoHc-

 

 

HOBOPO

KHuryAHCTcaaroroBKOH

Bpa6onyK)

BcraBHTb

.1

 

 

 

 

 

 

 

 

 

Peuienue:

26

 

 

 

 

 

 

.2

B

npHBCACH

(JjyHKUHH

craHAapTHux

riepeneHbpaAa

.apryMCHT

aBCK06KaX

4>yHKUHH,

HMfl

HC06XOAHMO3anHC3Tfa

 

K

npnoGpameHHH

1

^yHK^"

BcrpeMaromHxcH

HaH6ojiee^acro

^-

 

 

o6jrenieHHa

cjiyiKarAJIH

 

 

 

3..12Craiuapiiibie(ji>IIKHIHI

 

EndWith .VaIue=.Range("A3")c Range("A2"),Value=.b .Range("Al")-Value=a WithWorksheets("Pa6oral") caApecaMHAl,A2,A3 pesyjibraraBJIHCTPaSoxalB

EndWith .Value=.Range("c")c .Value=b.Range("b") .VaIue=a.Range("a") WithWorksheets("Pa6oTal") BSHCHKHCI-IMCHHMH3,b,C BLIBOApesyjibxaraBAHCTPaSoral, FlpuMep2:

UpuMepI:.Worksheets("JIncrl")Value=x.Range("A2")

 

 

 

 

 

=HiMflllepeMeHHOH

Worksheets("HMJi_Range("AApec.JlHCTa")_HJiH_HMH_.HMeflKH")

BaneftKHTa6jiHin>iHcnojibsyeTca

iBOAaAanHbix

 

 

eaveuKu

.2.11.3Bbieodpejyjibmamoe

 

 

 

 

:MsgBox"z~"&z

nojibsoBarejib,<J>yHKUHiiBOSBpamaeronpeAe/ieHHoeejioe.u

HaKatcoH

TOPO,

aaBHCHMOCTHor

B

.OKHC

B

OKHOcoo6ineHH5i>KAer,noKanojibsOBareJibmejiKHerHaOAHOHH3KHOMOK,

KaKHe-JiwGo.coo6meHHnnoonecsoeronosmjieHHaHa3Kpane

AHanoroBbixOKOH,

opraHH3au,HH

MsgBoxonyiKHTfljia

duoiioioebix

cucnojib3oeanueM

.1.11.3Bbieodpe3yjibtnamo6

 

 

 

 

 

 

flHCHKH

BbieecxHnojiyqeHHbiHpesyjitraxMOSKHOBAHanoroBoeOKHOHJIHB

 

 

 

3..11Bi>iuoA

 

.9OKHOnpoeicra

PHC.

Explorer),KoropoeflBiwercaHaBHraropOMBpeAaicropeVisualBasic(pac..9)

U,enecoo6pa3HOBbinecrHHa3KpanxaioKeOKHOnpoeicra(View—Project

 

 

 

.8OKHOCBOHCTB

PHC.

 

 

 

 

 

 

 

Tatora

 

 

 

 

 

 

 

 

.TnsL.

 

 

 

 

 

 

 

 

3ZDOO

 

 

 

 

 

 

 

O-.fmitorittfStytofcns

 

 

 

 

 

 

 

•wffloqqooisfc

 

 

 

 

 

£1

 

Usafana

Jieifuntil

 

 

 

 

 

(3arojiOBOK)

Caption

OToSpaacaercflBcrpoKe.sarouoBKa

Koropbifl

TCKCT,

-

.4)opMyCBOHCTBO

3KpaHH)io

HMH(JopMbi,KoropoeHcnojibsyercjiBnporpaMMeAMccbuiKHHa

Name(HMH)-

OKHOCBOHCTB).(pncCBOHCTBO.8)

PropertiesWindow(Bna-

View-

3roycranoBKasnaneHHHee

marnpHpaSorec3KpaHHOH4>opMoft-

 

 

-PcAaieiropVisualBasic,Insert-UserForm(BcraBKa-.#najior)

JWCTcsaroroBKoiiHOBOTO.AHanoraBcraBKaocymecrBJisercaCepauc-MaKpoc

KHHry

Bpaoonyio

 

BcraBMTb

Anaco3AaHHHAHanora((|)opMbi)HeoSxoAHMo

 

 

 

 

cny>KarHHanorHBnporpaMMaxAAHcpeAbiWindows,

 

 

 

 

 

HcnojibsiyioTCjipa3Hoo6pa3Hbie3Kpaa

 

 

 

 

 

 

opraHH30Barb

Hro6bi

 

BBOAHH^opMamiHnacroocymecTBJMerrcacnoMombK)KJiaBHarypbiH

 

 

 

 

.5Co3,iamieAHajiora

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

'BbiBOApesyjibTaraBA»anoroBOMOKHC

MsgBox"g="&g

2

A

l4l6.(Cos(3/y))

(1/3)*Tan(Abs(x+))*(x-Exp(-x)))4-

A

g=x

 

 

 

 

 

 

 

 

 

 

 

x=Log(2)

 

 

 

 

 

 

 

 

 

 

 

OKHC

 

 

y=Val(InputBox("BBeAHTey","BBOAy"))'BBOA^aHHbix

 

 

 

 

 

 

SubJlHHeHHbie2()

 

 

 

 

(SanncbwaKpocaBBHAC

 

 

 

PeuieHHeBpeAaKropeExcelVisualBasic

 

 

 

 

 

•28

 

 

 

 

 

 

 

 

BTaSJiHueExcel:

 

 

 

 

 

V

 

 

 

 

 

 

 

 

 

 

 

X

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

npUMep2

 

 

 

 

 

 

 

 

EndSub

'BbiBOApesyJibxaTaBAHajioroBOMOKHC

 

 

MsgBox"z="&z

 

 

 

(I/3)*Log(Atn(a*y))

A

3)+a

A

z-Exp(Sin(y)

 

 

 

 

 

'BBOAAaHHbixBnporpaMMe

 

 

 

 

 

3

 

y~2/

 

 

'BBOAAaHHbixB

 

 

 

AHaJioroBOMOKHC

 

 

a=Val(InputBox("BBeAHTea","BBOAa"))

 

 

 

 

 

 

 

 

 

 

 

Sub

 

 

 

HaSepnxe.nporpaMMy

 

.3

OTKPOHTCMoAyjibI(BcTaeica-MoAyjibHJIHInsert-Module)

 

.2

 

 

 

 

 

 

VisualBasic),

 

riepefiTHBpeAaKTopVisualBasic(CepBHC-Maicpoc-pe^atcrop

 

.1

 

 

 

(SariHCbMaKpocaBBHACoTAejibHofin

 

 

 

PeuieuueBpeAa^ropcExcelVisualBasic

 

 

 

127

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

no

 

.6