аЯрЁБс > ўџ ўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ
ўџџџ! ( " ' # $ % & ) = S * / , - . ўџџџ0 1 ; 3 4 5 6 7 8 9 : + < @ C ? ўџџџA B D T N F G H I J K L M > O P U R ўџџџўџџџe V W ` Y Z [ \ ] ^ _ Q a b c d f ўџџџg h ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџR o o t E n t r y џџџџџџџџ Р F ЅНAлУ@ђ64№чФ @Q W o r k b o o k џџџџџџџџ /# _ V B A _ P R O J E C T _ C U R " `ЪufгцФ %ЈfгцФ V B A џџџџџџџџ k}fгцФ \fгцФ ЏЭI@ с АС т \ p
Greg Vainberg B Аa Р = г К ThisWorkbook Џ М = x x X/# X@ " З к 1 Ш џ A r i a l 1 Ш џ A r i a l 1 Ш џ A r i a l 1 Ш џ A r i a l 1 џ A r i a l 1 № џМ A r i a l 1 Ш A r i a l 1 М A r i a l 1 Ш 8 A r i a l 1 A r i a l 1 Ш A r i a l 1 Ш A r i a l 1 Ш $ A r i a l "$"#,##0_);\("$"#,##0\) ! "$"#,##0_);[Red]\("$"#,##0\) " "$"#,##0.00_);\("$"#,##0.00\) ' " "$"#,##0.00_);[Red]\("$"#,##0.00\) 7 * 2 _("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_) . ) ) _(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_) ? , : _("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_) 6 + 1 _(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)
Є m/d/yyyy Ѕ "Yes";"Yes";"No" І "True";"True";"False" Ї "On";"On";"Off"р ѕџ Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р ѕџ є Р р Р р + ѕџ ј Р р ) ѕџ ј Р р , ѕџ ј Р р * ѕџ ј Р р
єџ є Р р єџ є Р р ѕџ ј Р р @ р H р # X р H р " xUU@ @ Ќр шUU@ @ Ћр H р H р
H р H р
" X р " X џ џ џ џ џ џ џ џ`
в
Sheet1
! Sheet2
" Sheet3 Ў ўџўџ a: b: #
DivideHeading: myGcd $
outputArea; K zeroCell:
С С `i ы Z №R № 3 № П Р@ @ ё
ї ќ Euclidean Algorithm$ Please enter two positive integers : a b Click B to find gcd(a,b) and integers s, t such that gcd(a,b) = sa + tb . = Divide 22 by 222 :
0*222 + 22 0 < 22 < 222 10*22 + 2
0 < 2 < 22 11*2 + 0! gcd(22, 222) = 2 = -10*22 + 1*222џ Ј T
И
ЏЭI@ e ђ Є Є * Т
d ќЉёвMbP?_ * + % џ С M B E P S O N S t y l u s C O L O R 6 6 0 д l ъ
o h h DLLName16=EPIGUE4A.dll DLLName32=EPID2E4A.dll EPSON Stylus COLOR 660 d hh hhє x * * * Ц є x * * * Ц 2 џ RL Ё " d р? р? н c U } $ } Ж } Ж } л } л } $ } Ж } л } $ e
h 0 h
џ h
h h h h h h h h h h h h h h h h h h h h §
§
§
~
6@§
~
Рk@§
§
§
~
6@§
! §
§
~
Рk@§
! §
§
~
6@§
! §
! §
! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! з <
8
8 8 *
! h " h # h $ h % h & h ' h ( h ) h * h + h , h - h . h / h 0 h 1 h 2 h 3 h 4 h 5 h 6 h 7 h 8 h 9 h : h ; h < h = h > h ? h @ h ! ! " ! # ! $ ! % ! & ! ' ! ( ! ) ! * ! + ! , ! - ! . ! / ! 0 ! 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ! 9 ! : ! ; ! < ! = ! > ! ? ! @ ! з D Р l
A h B h C h D h E h F h G h H h I h J h K h L h M h N џ O џ P џ Q џ R џ S џ T џ U џ V џ W џ X џ Y џ Z џ [ џ \ џ ] џ ^ џ _ џ ` џ A ! B ! C ! D ! E ! F ! G ! H ! I ! J ! K ! L ! M ! N " O " P " Q " R " S " з D > l
a џ b џ c џ d џ з P < ь Ш №: № №" №( №
№ №x
№
№6 ьи
П C C П Р@ П № § @ № ] , @ьиd l y Tи9 ь
№ Ж $ < Compute
< F
ь r №j B
№
№0 П D П Р Ыд џ П №
i А
i № ] ` Д l > 2 @ я 7 В џџџџ О| Invalid Entry For a 9 Please enter an integer between 1 and 999,999 inclusively i i ~.A О| Invalid Entry For b 9 Please enter an integer between 1 and 999,999 inclusively i i ~.A К Sheet1
ЏЭI@ П!
d ќЉёвMbP?_ * + % џ С Ё " џ nval р? р? U > Ж @ я 7 К Sheet2
ЏЭI@ г"
d ќЉёвMbP?_ * + % џ С Ё " џ р? р? U > Ж @ я 7 К Sheet3
T h i s W o r k b o o k џџџџ џџџџ / _ _ S R P _ c џџџџџџџџџџџџ Ь _ _ S R P _ d џџџџ % g S h e e t 1 џџџџџџџџ ' ?
ўџџџ ! " # $ ўџџџ& ўџџџ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W ўџџџY Z [ \ ] ^ _ ўџџџa b ўџџџd e f g h i j k l m n o p q r s t u ўџџџw x y ўџџџ{ ўџџџ} ~ ф 8 E S 1ђ3ђ џџ# Ж џџ џџџџ џџ< џџ ЂПиКр Р№Rм Р F
ЂПиКр Р№Rм џџџџџџџџ џџџџx
ЂПиКр Р№RмЂПиКр Р№Rмџџ ME џџџџџџ џџ џџ п џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP [Lџџџџ Sџџџџ Sџџџџ 6"џџџџ Lџџџџ < џџ < џџ <џџџџ џџ N 0 { 0 0 0 2 0 8 1 9 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } џџџџ@ ўџџџџџ џџ( џџ џџџџџџџџ % џџџџ ўџџџџџ џџ` џџџџџџ џџџџџџџџ % џџџџўџџџ џџўџџџ џџџџџџџџ % џџџџ` іџџџџ ` џџџџџџџџ Dџk џџџџ e iўџџџџџџџџџџџџџ џџџџ џџџџ8 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР џџџџџџџџи џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџј @ўџ№ xџџџ џџ @ўџ hџџџ џџ @ўџџџџџdџџџ џџ @ўџ Tџџџ џџ @ўџџџџџDџџџ џџ џџџџр џџџџџџџџ џџџџџџџџ џџџџџџџџ џџџџџџџџџџџџh 8 @ џџџџџџџџџџџџџџџџџџџџџџ 0 РC`A $ * \ R f f f f * 2 1 4 1 d d 8 f e 5 * \ R 1 * # b 8 п џџџџ4 ўЪ џџџџ" 0 џџџџ@ Эџџx џџџџp o џџ Ж A1:M30Ж sheet1$ ј ( њJ џџџџ
Б Attribut e VB_Nam e = "Thi sWorkbook"
Bas0{00020P819- 0C $0046}
|GlobalаSpacFalse dCreatabl Predecla Id БTru
BExpose Templ ateDerivBustomizD2Option /licit`
P " & Sub _Op@en()
sheets(" 1").ScrollA sЗA1:M30 End"
rU
Q Q Љ y Ё Щ џџџџQ 4 с ! џџџџџџџџџџџџ Њ ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ p 8 0:Tџ %dџ:hџ %xџ!
xџ
d dџў ) xџdџ 8 8 $ b xџ dџ 4 X rU џџџџџџџџ @ $ ` џџџџџџџџ n D ф 8 Ў М а
1ђ5ђ џџ# Ж џџ џџџџ џџ< џџ ЊДКЙ{GиКр Р№Rм Р F ЉДКЙ{GиКр Р№Rм џџџџџџџџ џџџџx ЉДКЙ{GиКр Р№RмЊДКЙ{GиКр Р№Rмџџ ME џџџџџџ џџ џџ п џџ џџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP SLџџџџ Sџџџџ Sџџџџ 8џџj 6"џџџџ < џџ
џџџџ <џџџџ џџ N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } ј ўџџџџџ џџ( џџ џџџџџџџџ % % ўџџџџџ џџ` џџџџџџ џџџџџџџџ % џџџџўџџџ џџўџџџ џџџџџџџџ % џџџџ` дџџџџ ` џџџџџџџџ Р xџk р e
!жџџџџ џџ џџџџ I % iўџџџџџџџџџџџџџ џџџџ inV и ` џџџџџџџџ xџ+ h e !жџџџџ џџ џџџџ % iўџџџџџџџџџџџџџ џџџџ џџџџџџџџ џџџџ( џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш жџџџџxџџџ0 жџџџџxџџџ p % џџџџ` жџџџџxџџџИ % жџџџџxџџџи h % жџџџџxџџџј H % жџџџџxџџџ ( % џџџџ жџџџџxџџџ@ % жџџџџxџџџ` ш % жџџџџxџџџ Ш % жџџџџxџџџ Ј % жџџџџxџџџР ( % жџџџџxџџџр @ % џџџџШ р џџџџ H џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ жџџџџxџџџи џџџџ % жџџџџxџџџ cros % џџџџР ect LiџџџџX џџџ џџ џџџџ@ўџ џџџ џџ џџџџџџџџ( јўџџ џџ џџџџџџџџ єўџџ џџ џџџџџџџџа ( џџџџџџџџ џџџџџџџџ џџџџџџџџ џџџџџџџџџџџџh 8 @ $ џџџџџџџџџџџџџџџџџџџџџџ А РC`A * \ R 1 * # 1 7 5 $ * \ R f f f f * 6 ; 4 1 6 0 4 1 f b $ * \ R f f f f * 7 9 4 1 6 0 4 4 7 b п џџџџ4 ўЪ џџџџ" џџџџ ( џџџџ" ( Ј ` , а 8 H џџџџ џџџџ џџџџ Эџџx џџџџp o џџ ( o џџ џџџџ8 р
Call getBр End Ife џџџџ р Call getA "2џџџџ р MsgBox Target.Address џџџџ р " If (Target.Address = "$E$6") Thenр & ElseIf (Target.Address = "$H$6") Thenf(6aџџџџh џџџџ eБ Attribut e VB_Nam e = "She@et1"
шBast0{000Р20820- C $0046}
|Global!ФSpacFalse dCreatabl Pre decla Id ЋTru
BExpose Temp lateDeriv$Bustom izD2Option /liciРt
P " & Sub Works_Chan ge(ByVal Target PAs R
)E nd Selec6 % 'M sgBox3.A ddress
С If (?
ю$E$6") Then CPall )AEKРeдHЪ 'BI '6IfТ B
F; _ _ S R P _ 4 џџџџ X Ш _ _ S R P _ 5 џџџџџџџџџџџџ ` Ў S h e e t 2
џџџџ c В _ _ S R P _ 8 џџџџ v р rU ` Q y Љ Љ Љ б џџџџY 4 љ a ! џџџџџџџџџџџџ ` ` I џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ W @ l ќјxџ ( b xџ @ l ќјxџ ( b xџ 4 4 P rU џџџџџџџџ @ , ` џџџџџџџџ щ , A ` џџџџџџџџ щ n < ф j x ь 1ђ7ђ џџ# Ж џџ џџџџ џџ< џџ еiGиКр Р№Rм Р F еiGиКр Р№Rм џџџџџџџџ џџџџx еiGиКр Р№RмеiGиКр Р№Rмџџ ME џџџџџџ џџ џџ п џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ( SLџџџџ Sџџџџ Sџџџџ 6"џџџџ џџ N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } џџџџ ўџџџџџ џџ( џџ џџџџџџџџ % џџџџH ўџџџџџ џџ` џџџџџџ џџџџџџџџ % џџџџўџџџ џџўџџџ џџџџџџџџ % џџџџ` џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџh 8 @ џџџџџџџџџџџџџџџџџџџџџџ 0 РC`A $ * \ R f f f f * 1 4 4 1 6 0 1 1 2 c п џџџџ4 ўЪ џџџџџџџџ Эџџx џџџџp џџџџ МА Attribut e VB_Nam e = "She@et2"
шBast0{000Р20820- C $0046}
|Global!ФSpacFalse dCreatabl Pre decla Id ЋTru
BExpose Temp lateDeriv$Bustom izD2Option /lici t
rU ј y Љ Ё џџџџY 4 љ a ! џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ` rU џџџџџџџџ @ n < ф j x ь 1ђ)ђ џџ# Ж џџ џџџџ џџ< џџ еiGиКр Р№Rм Р F еiGиКр Р№Rм џџџџџџџџ џџџџx еiGиКр Р№RмеiGиКр Р№Rмџџ ME џџџџџџ џџ џџ _ _ S R P _ 9 џџџџ џџџџ z B S h e e t 3 џџџџџџџџџџџџ | В M o d u l e 1
џџџџ 2 е _ _ S R P _ 3 џџџџџџџџџџџџ ќ
ўџџџ Ё Ђ Ѓ Є Ѕ І Ї Ј Љ Њ Ћ Ќ Ў Џ А Б В ўџџџД ўџџџЖ З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ ўџџџЫ Ь ўџџџЮ Я а б в г д е ж з и й к л м н о п р с т у ф ўџџџц ўџџџш ўџџџъ ы ь э ю я № ё ђ ўџџџє ѕ і ї ј љ њ ћ ќ § ў џ п џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ( SLџџџџ Sџџџџ Sџџџџ 6"џџџџ џџ N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } џџџџ ўџџџџџ џџ( џџ џџџџџџџџ % џџџџH ўџџџџџ џџ` џџџџџџ џџџџџџџџ % џџџџўџџџ џџўџџџ џџџџџџџџ % џџџџ` џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџh 8 @ џџџџџџџџџџџџџџџџџџџџџџ 0 РC`A $ * \ R f f f f * 1 5 4 1 6 0 1 1 2 c п џџџџ4 ўЪ џџџџџџџџ Эџџx џџџџp џџџџ МА Attribut e VB_Nam e = "She@et3"
шBast0{000Р20820- C $0046}
|Global!ФSpacFalse dCreatabl Pre decla Id ЋTru
BExpose Temp lateDeriv$Bustom izD2Option /lici t
rU ~| = з ,Ж * .Ќ $ 2 Ж + B ж џџџџ` џџџџш р Debug.Print "gcd = " & r(k - 2) & .Ќ $ : .Ќ $ 6 .Ќ $ : ' >џџџџ џџџџ8 Ж a h% j ! l' $Ж b h% j ! l' &] ђh џџџџ Ж Divide $ Ж by & Ж : Ж
DivideHeading h, j yЖ = .Ќ Ќ r, t Ќ ,Ж * .Ќ $ 2 Ж + B .Ќ Ќ r, t џџџџp џџџџ э Ж zeroCell$ j . rџџџџ .Ќ $ 2 .Ќ Ќ r, t Ж 0 < B Ж < .Ќ $ 2 .Ќ Ќ r, t , џџџџ BЌ
k џџx џџџџp І $ Ж gcd( $ Ж , & Ж ) = .Ќ $ 2 Ж = > Ж * $ Ж + < Ж * & .Ќ Ќ r, t џџџџџџ Ж
outputArea$ j B@ Р <§џџџџ( hB@ђ џџџџџџЗб ьЗб юЗб № hB@ц џџџџџџџџ@ Ж $a$1 h% j B@H џџџџ џџџџ 8Д Attribut e VB_Nam e = "Mod ule1"
O ption Ex plicit
Sub my Gcd()
Dim x, y As Long(quoti ent, rem ainder, @sk, tkVtшextS B(IntegerW r(0 To 1Ј00)Gqst
cell04`RangeC ActiveSh eet.Unpr№otec ("output Area").C@learCo inьtsx П +!a Valu>Е={
>b/+&D ivideHeaРding")A|@ " & xР "Ј byy:@
@5 CSet УD= D zeroCI"
k@2Т W nxE1AyїC nA0CC lС~1EТ @УlH t>(BХ
Ф@= ФD$Do Wh ile (r(k - <> 0Й0 ХЏ@1 (D 2) / ) џИ@ C
Рб
ЮСPЙР(k.
#
'BЧ= &Рeшr[k-P2] +' =C leftAф< e *+Ш + *` + э!1 "0#g" Р" Ф/tr> \n"; De bug.Printф%' =";Ї0Нр*сSe/"Sa&чE!х ТT.Offsфetb<2, "ka!Z+ k р9`Ф[Мk]`4 KРХCt@ёctk) Gc(ЁaсЃ~LoopdJЃ Ђ 'returnbVl2]Cjg йц,џ*Ђ!чMRЂDЄQ§ "_
#Ѓ @UСР1 " "Є!.I1, ~-УMПAЊ`ecxў КР=%УЎЂЋ TeLBB Og("$a$1pgSelХoZPSq DrawаfObj`s:=РTrue,
pѕ ТSPJarioб +
A с С щ ) б
)
I
a y I Љ
б
љ
Й с ) i й 1 y Љ
Є h Дў $
@ Дўў Дў (Дў'ў%:Єў % $
Дўў q Дў 1:Єў %Дў $
@ Дўўў џAtў ќіlџДў5ў 6:Єў %Дў $
@ Дўўў џAtў ќ"qhџДў6 ўtў W:$ў %:Єў lџћяў:ў
ћяtўlhџ§idўћяTў:Dў ћя4ў%Дў $
@ Дўў Дў6 ўtўTў4ў Дў'ў%:Єў % $
QДўИў єp.џ lџќ"ѕ џЃ lhџѕ џЃ ѕ ѕ јўЃ ѕ ѕ мўЃ ѕ ѕ мўЃ ѕ ѕ РўЃ ѕ ѕ РўЃ (Єў ќі8џ
ѕ q4џ єp.џ k.џєчџѕ Ь %k.џєчџьk.џєчџьЖћч§kЄўќіXџ !k.џєчџk.џєчџТ§iЄўќіHџ Xџќ"k.џчјўЃ Hџќ"k.џчџЃ bXџ:Єў
ћяўk.џєчџ§iўћяtў:dў ћяTўHџћя4ўk.џєчџћў# ў *#ќ§џџ
2 ўќ§6 ўtўTў4ў Gk.џєчџ§i$ў%k.џєDЄў%(dў %ИўўЂўў §ѓ ДўДўўЄ Дў5ў =:$ў %k.џєDЄў%(dў %ИўўЂўў §ѓ ДўДўўЄ Дў5ў qXџ:Єў
ћяўk.џєчџ§iўћяtў:dў ћяTўHџћя4ў%k.џєDDў%(ў %ИўўЂь§ў §ѓ ДўДўўЄ Дў6
ўtўTўь§4ў Hџ(Єў ]ћt ў h:Єў Hџћяў:ў ћяtўk.џєчџ§idўћяTў%k.џєDDў%(ў %ИўўЂ4ўў §ѓ ДўДўўЄ Дў6 ўtў4ўTў -k.џєчмўk.џєчјўk.џєчмўВЎ§iЄўќі8џ (k.џєчРўk.џєчјўk.џєчРўВЎq4џ 8џќ"k.џчмўЃ
l4џk.џчРўЃ k.џєЉp.џ Е Ћ:Єў lџћяў:ў ћяtўlhџ§idўћяTў:Dў ћя4ўk.џєчџ§i$ўћяь§:ў ћяЬ§lџћяМ§:ў
ћяЌ§l4џ§iм§ћя§:§ ћя|§lhџ§il§ћя\ № д и џџџџ 1ђ+ђ џџ Ж џџ џџџџ џџ џџ џџџџџџџџ џџџџx џџ ME џџџџџџ џџ џџ п џџ џџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP 6
џџџџ < џџ Lџџџџ (џџj џџџџ < џџ < џџ <џџџџ џџ И џџџџ џџ0 џџџџџџ џџџџџџџџ % џџџџ ` џџџџџџџџ ј Ьќk џџџџџџџџџџ R R 2@ џџџ џџџџ e џџџџp џџџџ8 џџџџhjмџџџ џџ @ўџџџџџДўџџ џџ @ўџ Єўџџ џџ И jI{j`dџџџџ0џџџ џџ f(X'`.X .џџџ џџ eqFgџџџџ @$џџџџlџџџ џџ џџ И rџџџџИўџџ % `&џџџџhџџџ џџ џџџџ 6џџџџјўџџ` џџџџ e 8џџџџмўџџ џџџџ e ш :џџџџРўџџ8 e @,џџџџXџџџ џџ @BџџџџHџџџ џџ џџџџ@<H 8џџџ џџ `>џџџџ4џџџ џџ Р @ўџШ ўџџ џџ ` Ј џџџџP џџџџШ џџџџа џџџџи џџџџр џџџџш џџџџџџџџ( џџџџ џџџџџџџџh x а џџџџp џџџџp а џџџџш џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ џџџџ@ўџА ўџџ џџ џџџџ@ўџр tўџџ џџ @ўџј dўџџ џџ џџџџ@ўџ Tўџџ џџ џџџџ@ўџ( Dўџџ џџ џџџџ@ўџ 4ўџџ џџ џџџџ@ўџ@ $ўџџ џџ ( @ўџX ўџџ џџ џџ@ўџИ ўџџ џџ џџ@ўџ ўџџ џџ џџ@ўџџџџџќ§џџ џџ џџ@ўџа ь§џџ џџ џџ@ўџ0 м§џџ џџ џџ@ўџш Ь§џџ џџ џџ@ўџ М§џџ џџ џџ@ўџ Ќ§џџ џџ џџ@ўџH §џџ џџ џџ@ўџx §џџ џџ џџ@ўџ |§џџ џџ џџџџџџ џџџџ џџџџh @ўџЈ l§џџ џџ > @ўџР \§џџ џџ
@ўџ L§џџ џџ 1B-B@ўџј <§џџ џџ 0#0#џџџџ џџџџи џџџџр џџџџш @ўџp ,§џџ џџ @ўџ( §џџ џџ @ўџ@ §џџ џџ @ўџX ќќџџ џџ @ўџ ьќџџ џџ @ўџџџџџмќџџ џџ X џџџџ` џџџџ @ўџџџџџЬќџџ џџ џџџџx 8 џџџџџџџџџџџџџџџџџџџџ8 џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ џџџџџџџџџџџџџџџџџџџџџџџџ А РC`A $ * \ R f f f f * 3 0 4 1 6 0 3 0 b d * \ R 1 * # c 4 * \ R 1 * # 1 7 5 * \ R 1 * # 2 2 9 п ўЪ T џџџџ" ( H P P ` p ( џџџџ
x џџџџ ( P џџџџ џџџџ 1 ј 6 џџџџ F W 8 џџџџ ј џџџџ X џџџџ ш ` p џџџџ џџџџ А а
и р џџџџ ј * % ј & ! џџџџ @ Р џџџџ $ P J 4 x 4 А џџџџ N b ( џџџџ ( G = F q џџџџ B h @ џџџџ 8 - 8 ( А ш
ј џџџџ B ј X h џџџџ џџџџ џџџџ @ Ћ p џџџџ и А џџџџ & џџџџ / А 0 џџџџ џџџџа Эџџx 8 o џџh ] ђH ђ џџ] ђ@ ђX ђp ђ er, sk] ђ ] ђ( Ќ ' . &Ќ + 2 Ќ Ќ + 6 Ќ Ќ + 8 Ќ Ќ + 8 Ќ Ќ + : Ќ Ќ + : B .+ 2 Ќ ' <Ќ ' >Ќ ' . $Ќ + 2 .Ќ $ 2 Ќ b 0] = 1 .Ќ $ 2 .Ќ $ 2
' B , .+ 6 =р text = text & " = " r[k-2] +t + р - + quotient + " * " + r[k-1] + " + " + р - remainder + " | \n"; left < .+ 8 - > .+ : * .Ќ $ 8 .Ќ $ 6 .Ќ $ 8 ' <р return r[k-2]; .Ќ ' . =Й І [ й Ж gcd( $ Ж , & Ж ) = .Ќ $ 2 Ж = $ Ж * > Ж + & Ж * < ж (k) р < Debug.Print "k= " + k + ", s[k] = " + sk + ", t[k]= " + tk); + tk)џџџџ№ џџџџ ] Ќ Ќ d ђx ] Ќ Ќ d ђ ] Ќ Ќ d ђа ] Ќ Ќ d ђ џџџџ р C " = | " џџџџ џџџџ .Ќ $ 2 .Ќ $ 2 ' , [ й .Ќ $ 2 Ж§:L§
ћя<§8џћя,§џџ
6 ўtўTў4ўь§Ь§М§Ќ§§|§\§<§,§ и:Єў lџћяў:ў ћяtўlhџ§idўћяTў:Dў ћя4ўk.џєчџ§i$ўћяь§:ў ћяЬ§l4џ§iўћяМ§:м§
ћяЌ§lџћя§:§ ћя|§8џћя\§:l§
ћя<§lhџ§iL§ћя,§%k.џєD §%(ќќџџ%ИўўЂмќў §ѓ ДўДўўЄ Дў6 ўtўTў4ўь§Ь§М§Ќ§§|§\§<§мќ,§ /:Єў %Дў $
@ Дўўtў §ў Дў5tў 0cЄў%cdў%c$ў%Дў $
@ ДўўІ
Дў Аhь b д
Hџ Иў јў e џ e Xџ мў e Рў e 0џ 8џ lџ P ў ќ§ Дў ў tў Tў 4ў ь§ Ь§ М§ Ќ§ § |§ \§ <§ ,§ мќ k rU џџџџџџџџ $ ` §џџџџџџџџџџџ n rU ~| Љ !
q
y Щ
9
A с С щ й 1 _ _ S R P _ 2 џџџџ Г g M o d u l e 2 џџџџџџџџџџџџ E Г _ _ S R P _ 7 џџџџџџџџџџџџ Е 6 _ _ S R P _ 6 џџџџ Ъ B@H џџџџ џџџџ В Attribut e VB_Nam e = "Mod ule2"
O ption Ex plicit
Sub get A()
D im maxV As Long&in&sg0, Аmsg1
dS 4userEntryvalidBooleanЧl= 9 q}= 1 uиP 1se ente@r an i g betweenT 1
d!, #.M U In? ?." & vbАCrLf f02
Do h = InputBox( , " a"Ђ If IsNumeric() Thes nt "=1And>=ь mС
<
ж
+W= TrueуУ/@ElsР@/з:W EdР/C Ы
E"IfУ 2 G""B: it @ ALoop РUntil )С ActiveS heet.Unp rotec Њ Range("СZ.ValuAЙ
Ф
$A$1")P.SelаP DrawingODbj s:=M,H CoРntЦScenarioЬ
AAB8
віBПв@пSПврy_i`§_ia@=Рh_i_i_iCiОb_i_iХРfD _iџСHBa _i%_i&o_iџ$ 3_iLiЁa ПiРlя$d -ПiЅiaПiПi, Йi y Љ Ё )
) А
ѕ?B qxџ
ѕ qtџ :8џ § dџ *F(џdџћяџќіTџ5(џ
dџќ1Pџ ;'xў'ў'Иў'иў'џ:џ N(џ(џPџM8џ@ 1Lџ6 (џџиўИўўxў LџM8џ@ и )lLџќ3ћчэlLџќ3ШlLџќ3ltџьсФlLџќ3lxџьзФ Ч єџpJџ г
Tџќ1Pџ ф
Tџќ1Pџ
lLџ ћ0 і kJџУ G tў $
@ tўў
tў 2lLџFјў%:8џ %tў $
@ tўў(џ џC
tў5(џ /:8џ %tў $
@ tўўџ §ў tў5џ 0c8џ%cјў%cШў%tў $
@ tўўІ
tў А4 b Pџ dџ Tџ Lџ ( tў (џ џ иў Иў ў xў А
ѕ?B qxџ
ѕ qtџ :8џ § dџ *F(џdџћяџќіTџ5(џ
dџќ1Pџ ;'xў'ў'Иў'иў'џ:џ N(џ(џPџM8џ@ 1Lџ6 (џџиўИўўxў LџM8џ@ и )lLџќ3ћчэlLџќ3ШlLџќ3ltџьсФlLџќ3lxџьзФ Ч єџpJџ г
Tџќ1Pџ ф
Tџќ1Pџ
lLџ ћ0 і kJџУ G tў $
@ tўў
tў 2lLџFјў%:8џ %tў $
@ tўў(џ џC
tў5(џ /:8џ %tў $
@ tўўџ §ў tў5џ 0c8џ%cјў%cШў%tў $
@ tўўІ
tў А4 b Pџ dџ Tџ Lџ ( tў (џ џ иў Иў ў xў f rU џџџџџџџџ $ ` §џџџџџџџџџџџ $ Љ ` §џџџџџџџџџџџ n № ь д А џџџџ І 1ђtѕ џџ Ж џџ џџџџ џџ џџ џџџџџџџџ џџџџx M o d u l e 3 џџџџ Э Т _ _ S R P _ b џџџџ х T _ _ S R P _ a џџџџџџџџџџџџ ч o _ V B A _ P R O J E C T џџџџџџџџџџџџ X ї џџ ME џџџџџџ џџ џџ п џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ( 6
џџџџ < џџ < џџ <џџџџ џџ џџџџА џџџџ8 шџџџџ џџ0 џџџџџџ џџџџџџџџ % ъџџџџ ` x џџџџ џџџџџџџџџџ
" Macro recorded 1/15/2004 by matmshџџ
14џџџџP 8 џџџџџџџџџџџџџџџџџџџџ8 џџџџџџџџџџџџџџџџџџџџџџџџџџџџ № д д и џџџџa
1ђђ џџ Ж џџ џџџџ џџ џџ џџџџџџџџ џџџџx џџ ME џџџџџџ џџ џџ п џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP 6
џџџџ Lџџџџ џџџџ џџџџ џџџџ џџџџ < џџ <џџџџ џџ p Р xџџџџ џџ0 џџџџџџ џџџџџџџџ % р џџџџџџџџа @ўџА 8џџџ џџ џџџџИЄЌh @ўџ (џџџ џџ /15/@ўџј џџџ џџ џџџџP @ўџШ џџџ џџ @ўџр јўџџ џџ џџџџ@ўџ шўџџ џџ 0 @ўџР иўџџ џџ cord@ўџи Шўџџ џџ sh џџџџ0 `џџџџxџџџ џџ џџџџ`џџџџxџџџ џџ џџџџ`џџџџtџџџ џџ џџџџ`џџџџtџџџ џџ џџџџ` џџџџLџџџ џџ џџ`ДџџџџJџџџ џџ џџP џџџџџџџџ р ` џџџџџџџџ p tўk џџџџџџџџџџ ! ! џџџџЈ @Рџџџџdџџџ џџ џџџџ@ТџџџџTџџџ џџ H `` Pџџџ џџ џџџџџџџџј @Рџџџџdџџџ џџ џџџџ@ТџџџџTџџџ џџ H `x Pџџџ џџ џџџџ` џџџџLџџџ џџ џџџџ`ДџџџџJџџџ џџ џџџџ тџџџџ ` џџџџџџџџ tўk џџџџџџџџџџ " " % џџџџ h џџџџџџџџџџџџџџџџџџџџџџџџШ 0 џџџџА џџџџџџџџџџџџџџџџ8 x џџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` џџџџ@ўџ№ Иўџџ џџ џџџџ@ўџ Јўџџ џџ џџ@ўџ ўџџ џџ џџ@ўџџџџџўџџ џџ џџ@ўџџџџџxўџџ џџ џџ@ўџџџџџtўџџ џџ џџx џџџџ@ џџџџX џџџџ` џџџџH 0 џџџџџџџџџџџџџџџџџџџџџџџџЈ H џџџџ џџџџџџџџџџџџџџџџ` @ џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ( џџџџ@ўџp 8џџџ џџ џџџџџџИЄЌh0 xўџџ џџ@ўџX (џџџ џџ џџ@ўџИ џџџ џџ @ўџ џџџ џџ џџџџ@ўџ јўџџ џџ џџџџ@ўџа шўџџ џџ џџџџ@ўџш иўџџ џџ џџџџ@ўџ Шўџџ џџ џџџџ@ўџ Иўџџ џџ џџџџ@ўџ0 Јўџџ џџ @ўџH ўџџ џџ @ўџџџџџўџџ џџ @ўџџџџџxўџџ џџ @ўџџџџџtўџџ џџ џџџџш 0 џџџџџџџџџџџџџџџџџџџџџџџџЈ H џџџџ џџџџџџџџџџџџџџџџ8 џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH @ўџ ўџџ џџ џџџџ( xўџџ џџ џџџџ tўџџ џџ џџџџp а џџџџџџџџџџџџџџџџџџџџр џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ џџџџџџџџџџџџџџџџџџџџџџџџ 8 РC`A $ * \ R f f f f * 7 9 4 1 6 0 4 4 7 b * \ R 1 * # c 4 * \ R 1 * # 2 2 9 * \ R 0 * # 1 3 * \ R 0 * # 1 4 * \ R 0 * # e п ўЪ G џџџџ џџџџ џџџџ" ( џџџџ
0
P 6 ` " (
X H ; X & ) h
Ј
@ А №
ш И џџџџ џџџџ
2 а / и 0 ` џџџџ" Ш а и р ј џџџџ
6 " X
; А & ) Р
ш №
ј
џџџџ 8 џџџџ џџџџ
P 2 / № 0 Ј @ џџџџџџџџ Эџџx џџџџh а o џџ ] ђH ] ђ` ?B ' Т' _ Ќ ' $ Ќ ДК k 8 З' Д d ( k Ж G | j =Max Ж a h% j ( l Т' d џџџџ ] ђ ] ђЈ ] ђ ђ0 ђH leasЖ Invalid Entry. И Р ' Т999." џџџџ Р' Ж . Please enter an integer between 1 and 999,999.' РJ џџџџ Ж Input a $ Є ' 999,99џџџџИ р ] ђ0 ] ђx ] ђh ђ ђ ] ђА ] ђШ ?B ' Ќ ' Ж . Please enter an integer between 1 and 999,999.' Р Ж Invalid Entry. И Р ' Т Р' _ џџ Ж Input b $ Є ' $ Ќ З' Д d џџИ Т' k џџЈ d џџ Т' k џџ Ж G | j ДК o џџP џџџџH hB@ђ Зб ьЗб юЗб № hB@ц hB@ђ Ж b h% j ( lЗб ьЗб юЗб № hB@ц џџџџ џџџџ Ж $A$1 h% j B@H Ж $a$1 h% j џџџџ џџџџџџџџџџџџџџџџџџџџџџџџ РC`A $ * \ R f f f f * 7 7 4 1 6 0 4 3 c 0 п ўЪ џџџџ" * 8 h џџџџ p x
џџџџА Эџџx 8 o џџh р р
Macro3 Macro џџр # Macro recorded 1/15/2004 by matmsh џџџџџџр р Зб ьЗб юЗб № hB@ц kW_B hB@ђ %C&!!fџџџџP џџџџ Б Attribut e VB_Nam e = "Mod ule3"
O ption Ex plicit
Sub Ma cro3()
ќ&. Desc rirX re corded 1 /15/2004 by matm sh hGProcDataSInv oke_FuncAЁ \n14 6'ј
'p % Ъ = Acti veSheet.9tect Dr awingObjs:=True , ContentScenar$io
'Unpro(
End
rU ~|
џџџџ k rU џџџџџџџџ $ ` §џџџ б n kВ 0* pH dф
VBAProject 4 @j
=
r РC`A J<
rstdole> s t d o l e
f %\ *\G{00020430- C
004 6}#2.0#0 #C:\WIND OWS\SYSTEM\c2.tl b#OLE Au tomation ^ DOfficDO>f i c5D
D2D F8D04C-5 BFA-101B -BDE5DAA5B42Dgr am Files \Microso(ft 6\MSO9.DLL#
9.0 ObЙ LibraryC Ь 1ђ This WorkbookG T h cs W Ћr k Њbo2к Ђ Р HB1tZ!@o B,Т!3Tђ"B+BxS@ IDІ] џџџ_B_var_IDNђ isnumerix9* IsNumeric$*
џџџ_B_var_EndоF minValp userЈЙ
validEntryк џџџ_B_var_ValidEntry
vbCrLfЏЌ the'й ne џџџ_B_var_Loopе msg0b msg1c mgs1ѓM џџџ_B_var_mgs1_Г ul
unserEntryC џџџ_B_var_unserEntry Inout§ Inou;\ Ino< Worksheet_SelectionChangeб4 TargetЌF Worksheet_ChangeS џ SelectionChangeуn MsgBoxR џ ChangeЃЧ џ AddressЇХ Ќ( getBЁ џџџ_B_var_callЗй џ Protectзf Module3d Ќ( џџMacro3зN џ DrawingObjectsпК Contentsи= џ Scenariosk џ Unprotect? UprotectѕU
Workbook_Openс
џ WorksheetsМј
џ ScrollAreav џџ џџџџ џџ џџџџџџ y џџџџџџџџџџџџџџџџџџщ џџџџџџџџџџџџџџџџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ ~
! " # $ % & ўџџџ( ) * + ўџџџ- . ўџџџ0 1 2 3 4 5 6 7 8 9 ўџџџ; < = ўџџџ? @ A B ўџџџD ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd i r џџџџџџџџџџџџ щ o _ _ S R P _ 0 џџџџ џџџџ ѓ б _ _ S R P _ 1 џџџџџџџџџџџџ ' P R O J E C T w m џџџџџџџџџџџџ , А heet1GТS@#eTt 1 mH2NЯж@ Э5Uе2Э2Щ2Э2B Яђ Э7Uе3Э3Щ3Э3ф)ЬРUModhule Tsd uBЬT2 O9Џ +ђ!@ ќ Ѕ8
Р*
+гЏq+ЏЖ+ПС+Їр+o Ќ@)-:tѕi т K*m џџ џџ rU ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~( щ ЂПиКр Р№Rм ф џџџџ e A џџџџ ) џџ e A џџџџ 9 џџ 1 e A џџџџ џџ I
џџџџџџџџџџџџ a a с џџџџ@ џџџџ Щ џџ y a с џџџџH џџџџ I џџ I с џџџџ0 џџџџ щ џџ б Y a i q Project1
VBAProject ThisWorkbook Sheet1 Sheet2 Sheet3 Module1 я Р F @ C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL VBA
џџџџ Й I 0 Р F
3 C:\Program Files\Microsoft Office\Office\EXCEL9.OLB Excel
Б џџџџ й I @ 0 Р F С џџџџ C:\WINDOWS\SYSTEM\stdole2.tlb stdole
Й џџџџ QЬam џ ф * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P R O G R A M F I L E S \ C O M M O N F I L E S \ M I C R O S O F T S H A R E D \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 8 1 3 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 1 . 3 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O f f i c e \ E X C E L 9 . O L B # M i c r o s o f t E x c e l 9 . 0 O b j e c t L i b r a r y И * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N D O W S \ S Y S T E M \ s t d o l e 2 . t l b # O L E A u t o m a t i o n
* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 1 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O f f i c e \ M S O 9 . D L L # M i c r o s o f t O f f i c e 9 . 0 O b j e c t L i b r a r y
џџџџџџ РC`A џџџџџџџџ џџџџџџџџ џџџџџџџџџџџџџџџџџџ џџџџ џџџџџџџџџџ џџџџ 1ђ T h i s W o r k b o o k 2 1 4 1 d d 8 f e 5 џџ T h i s W o r k b o o k џџ3ђ ! џџ S h e e t 1 6 ; 4 1 6 0 4 1 f b џџ S h e e t 1 џџ5ђ x џџџџ ж
џџ S h e e t 2 1 4 4 1 6 0 1 1 2 c џџ S h e e t 2 џџ7ђ 0 ђ џџ S h e e t 3 1 5 4 1 6 0 1 1 2 c џџ S h e e t 3 џџ)ђ H ђ џџ M o d u l e 1 3 0 4 1 6 0 3 0 b d џџ M o d u l e 1 џџ+ђ ` M o d u l e 2 7 9 4 1 6 0 4 4 7 b џџx M o d u l e 2 џџђ x џџ M o d u l e 3 7 7 4 1 6 0 4 3 c 0 џџш M o d u l e 3 џџtѕ Ќ џџџџџџИ џџџџџџџџx џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 џџџџH џџџџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџеiGиКр Р№Rмџџџџ еiGиКр Р№Rмџџџџ еiGиКр Р№Rмџџџџ еiGиКр Р№Rмџџџџ еiGиКр Р№Rмџџџџ КеiGиКр Р№Rмџџџџ џџџџh ВДКЙ{GиКр Р№Rмџџџџ џџџџx } џ H6 џ 0 џ As џ Call . џ Debug @ џ Do D џ Else E џ ElseIf O џ Exit _ џ If c џ Input џ mod џ return Є џ Set Џ џ Sub Б џ text В џ Then Г џ To Д џ True Л џ Until О џ While Excel+ VBAїт Win16С~ Win32 MacГВ VBA6# Project1
stdole`
VBAProjectОП Officeu ThisWorkbook|у џ _Evaluateй Sheet1ш Sheet2щ Sheet3ъ Module1b Ќ( myGcdх~
џџџ_B_var_subН xo yl џ Workbookk WorksheetСў quotientЃ џ kb џ p ri џ 1H qh sj tk sk _ tkD_ џ k-1 Ѕ remainder^ џ k-2 Ѕ Right
SystemaЁ outZР printlnбЊ displayAreax( setTextу џџџ_B_var_rЂ џџџ_B_var_qЂ џџџ_B_var_sЂ џџџ_B_var_tЂ
џџџ_B_var_k-1 b џџџ_B_var_whileIf џ Floor Л џџџ_B_var_Floorљ~ џџџ_B_var_Do ё quotitntPѓ gcdш џ ActiveSheet%N џ Rangeк џ ValueфK cellZeroл џ _DefaultjТ cell0ї џ OffsetшЊ џџџ_B_var_Workbook3№ Module2c џџџMacro1еN
џџџ_B_var_Set џџџ_B_var_ifPђ remaindeeu^ џџџMacro2жN џ SelectionZЎ
џ ClearContents{м Ќ( getAЁ џ MaxШВ
џџџ_B_var_Maxйo maxVЛ. џ MinцГ minVX
џџџ_B_var_Minїp Vm џџџ_B_var_VЂ msgQЕ diђ\ џџџ_B_var_diё userEntry
џџџ_B_var_userEntryб InputBoxЯ
џ P Lај-њ[Нх Њ DоR
1 C:\Program Files\Microsoft Office\Office\MSO9.DLL Office
С џџџџ щ Y ` myGcd
g c d = = * + H g c d ( , ) = = * a Р F й Р F
R a n g e
V a l u e b и Р F еiGиКр Р№Rм Р F еiGиКр Р№Rм D Р F Worksheet
@
s a d s d D i v i d e H e a d i n g D i v i d e b y : z e r o C e l l S e l e c t F Р F 0 < < s h e e t 1 Module2 Macro1 еiGиКр Р№Rм еiGиКр Р№Rм Macro2 D Р F o u t p u t A r e a getA V P l e a s e e n t e r a v a l u e b e t w e e n 1 a n d 9 9 9 , 9 9 9 . I n v a l i d E n t r y .
VBE6.DLL
Љ
џџџџT p
Љ
џџџџ1 \ P l e a s e e n t e r a n i n t e g e r b e t w e e n 1 a n d 9 9 9 , 9 9 9 . I n p u t a ЊДКЙ{GиКр Р№Rм ЉДКЙ{GиКр Р№Rм Worksheet_Change Worksheet_SelectionChange
Љ
џџџџS р
$ E $ 6 $ getB
$ H $ 6 $ $ E $ 6 $ H $ 6 I n p u t b Module3 Macro3 U n p r o t e c t D r a w i n g O b j e c t s C o n t e n t s S c e n a r i o s P r o t e c t $ a $ 1 $ A $ 1 к Р F ЂПиКр Р№Rм Р F
ЂПиКр Р№Rм Workbook
Workbook_Open A 1 : M 3 0 з Р F S c r o l l A r e a d rU ~ ~ ~y
џџџџџџџџџџџџ
џџџџ
a љ " Macro recorded 1/15/2004 by matmsh
14 a Љ
Target a с ( X ThisWorkbook T h i s W o r k b o o k Sheet1 S h e e t 1 Sheet2 S h e e t 2 Sheet3 S h e e t 3 Module1 M o d u l e 1 Module2 M o d u l e 2 Module3 M o d u l e 3 ID="{194DBBF0-52C5-11D9-BAE0-00C0F05296DC}"
Document=ThisWorkboP R O J E C T џџџџ / S u m m a r y I n f o r m a t i o n ( џџџџ џџџџ : а D o c u m e n t S u m m a r y I n f o r m a t i o n 8 џџџџџџџџџџџџ > C o m p O b j џџџџџџџџџџџџ C f ok/&H00000000
Document=Sheet1/&H00000000
Document=Sheet2/&H00000000
Document=Sheet3/&H00000000
Module=Module1
Module=Module2
Module=Module3
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="0002E4E2E8E2E8E2E8E2E8"
DPB="1614F2EE1E123513351335"
GC="2D2FC904F71AF81AF8E5"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisWorkbook=132, 132, 724, 580, C
Sheet1=88, 88, 680, 536, C
Sheet2=0, 0, 0, 0, C
Sheet3=0, 0, 0, 0, C
Module1=-21, 26, 647, 474, C
Module2=66, 66, 658, 514, I
Module3=110, 110, 702, 558, C
ўџ
р
ђљOhЋ +'Гй0 @ H X h
ф matmsh matmsh Microsoft Excel @ ФJvлУ@ .fгцФ ўџ
еЭе. +,љЎ0 и P X d l t |
Е ф 454
Sheet1 Sheet2 Sheet3 Worksheets ўџ
џџџџ Р F Microsoft Excel Worksheet Biff8 Excel.Sheet.8 є9Вq |