例6-10.mht

系统的介绍了vb的书籍,学vb的到这来.

style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>求最大公约数。=
</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#20998;&#26512;&#65306;</span><span style=3D'font-famil=
y:
SimSun;mso-hansi-font-family:"Times New Roman"'>&#29992;&#8220;&#36759;&#36=
716;&#30456;&#38500;&#27861;&#8221;</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#27714;</span><span style=3D'font-family:SimSun;mso-han=
si-font-family:
"Times New Roman"'>&#26368;&#22823;&#20844;&#32422;&#25968;&#30340;&#26041;=
&#27861;&#20026;&#65306;<span
lang=3DEN-US><o:p></o:p></span></span></p>

<p class=3DMsoNormal><span lang=3DEN-US style=3D'font-family:SimSun;mso-han=
si-font-family:
"Times New Roman"'><span style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </sp=
an></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9312;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#20197;&#22823;=
&#25968;</span><span
lang=3DEN-US>m</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20316;&#34987;&#38500;&#25968;&#=
65292;&#23567;&#25968;</span><span
lang=3DEN-US>n</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20570;&#38500;&#25968;&#65292;&#=
30456;&#38500;&#21518;&#20313;&#25968;&#20026;</span><span
lang=3DEN-US>r</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#12290;</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9313;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#33509;</span><=
span
lang=3DEN-US>r </span><span style=3D'font-family:SimSun;mso-hansi-font-fami=
ly:"Times New Roman"'>&#8800;</span><span
lang=3DEN-US> 0</span><span style=3D'font-family:SimSun;mso-ascii-font-fami=
ly:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#65292;&#21017;</span><span
lang=3DEN-US>m </span><span style=3D'font-family:SimSun;mso-hansi-font-fami=
ly:"Times New Roman"'>&#8592;
</span><span lang=3DEN-US>n</span><span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#65292;</span><=
span
lang=3DEN-US>n </span><span style=3D'font-family:SimSun;mso-hansi-font-fami=
ly:"Times New Roman"'>&#8592;
</span><span lang=3DEN-US>r</span><span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#65292;&#32487;=
&#32493;&#30456;&#38500;&#24471;&#21040;&#26032;&#30340;</span><span
lang=3DEN-US>r</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#12290;&#33509;&#20173;&#26377;</=
span><span
lang=3DEN-US>r </span><span style=3D'font-family:SimSun;mso-hansi-font-fami=
ly:"Times New Roman"'>&#8800;</span><span
lang=3DEN-US> 0</span><span style=3D'font-family:SimSun;mso-ascii-font-fami=
ly:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#65292;&#21017;&#37325;&#22797;&#=
27492;&#36807;&#31243;&#65292;&#30452;&#21040;</span><span
lang=3DEN-US>r =3D 0</span><span style=3D'font-family:SimSun;mso-ascii-font=
-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#20026;&#27490;=
&#12290;</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9314;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#26368;&#21518;=
&#30340;</span><span
lang=3DEN-US>n</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#23601;&#26159;&#26368;&#22823;&#=
20844;&#32422;&#25968;&#12290;</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#35774;&#35745;&#27493;&#39588;&#22914;&#19979;&#65306;=
</span></p>

<p class=3DMsoNormal style=3D'mso-line-height-alt:0pt'><span lang=3DEN-US><=
span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9312;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#24314;&#31435;=
&#29992;&#25143;&#30028;&#38754;&#21644;&#35774;&#32622;&#23545;&#35937;&#2=
3646;&#24615;&#65292;&#22914;&#22270;</span><span
lang=3DEN-US>6-12</span><span style=3D'font-family:SimSun;mso-ascii-font-fa=
mily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25152;&#31034;=
&#12290;</span></p>

<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US
style=3D'mso-font-kerning:0pt;mso-no-proof:yes'><!--[if gte vml 1]><v:shape=
type
 id=3D"_x0000_t75" coordsize=3D"21600,21600" o:spt=3D"75" o:preferrelative=
=3D"t"
 path=3D"m@4@5l@4@11@9@11@9@5xe" filled=3D"f" stroked=3D"f">
 <v:stroke joinstyle=3D"miter"/>
 <v:formulas>
  <v:f eqn=3D"if lineDrawn pixelLineWidth 0"/>
  <v:f eqn=3D"sum @0 1 0"/>
  <v:f eqn=3D"sum 0 0 @1"/>
  <v:f eqn=3D"prod @2 1 2"/>
  <v:f eqn=3D"prod @3 21600 pixelWidth"/>
  <v:f eqn=3D"prod @3 21600 pixelHeight"/>
  <v:f eqn=3D"sum @0 0 1"/>
  <v:f eqn=3D"prod @6 1 2"/>
  <v:f eqn=3D"prod @7 21600 pixelWidth"/>
  <v:f eqn=3D"sum @8 21600 0"/>
  <v:f eqn=3D"prod @7 21600 pixelHeight"/>
  <v:f eqn=3D"sum @10 21600 0"/>
 </v:formulas>
 <v:path o:extrusionok=3D"f" gradientshapeok=3D"t" o:connecttype=3D"rect"/>
 <o:lock v:ext=3D"edit" aspectratio=3D"t"/>
</v:shapetype><v:shape id=3D"_x0000_i1025" type=3D"#_x0000_t75" style=3D'wi=
dth:134.4pt;
 height:100.8pt'>
 <v:imagedata src=3D"file1408.files/image001.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D179 height=3D134
src=3D"file1408.files/image002.jpg" v:shapes=3D"_x0000_i1025"><![endif]><sp=
an
style=3D'mso-spacerun:yes'>&nbsp;</span><span
style=3D'mso-spacerun:yes'>&nbsp;</span><!--[if gte vml 1]><v:shape id=3D"_=
x0000_i1026"
 type=3D"#_x0000_t75" style=3D'width:134.4pt;height:100.8pt'>
 <v:imagedata src=3D"file1408.files/image003.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D179 height=3D134
src=3D"file1408.files/image004.jpg" v:shapes=3D"_x0000_i1026"><![endif]><o:=
p></o:p></span></p>

<h6><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roma=
n";
mso-hansi-font-family:Roman'>&#22270;</span><span lang=3DEN-US>6-12<span
style=3D'mso-spacerun:yes'>&nbsp; </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>&#2999=
2;&#25143;&#30028;&#38754;&#21644;&#35774;&#32622;&#23646;&#24615;</span></=
h6>

<p class=3DMsoNormal style=3D'mso-line-height-alt:0pt'><span lang=3DEN-US><=
span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9313;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#32534;&#20889;=
&#20107;&#20214;&#20195;&#30721;&#12290;</span></p>

<p class=3DMsoNormal style=3D'mso-line-height-alt:0pt'><span lang=3DEN-US><=
span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#32534;&#20889;&#8220;&#35745;&#31639;&#8221;&#21629;&#=
20196;&#25353;&#38062;</span><span
lang=3DEN-US style=3D'mso-bidi-font-weight:bold'>Command1</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#30340;</span><span lang=3DEN-US>Click</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#65288;&#21333;&#20987;&#65289;&#20107;&#20214;&#20195;=
&#30721;&#65306;</span></p>

<p class=3Da><b style=3D'mso-bidi-font-weight:normal'><span lang=3DEN-US>Pr=
ivate Sub
Command1_<span class=3DGramE>Click()</span><o:p></o:p></span></b></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>Dim m <span
class=3DGramE>As</span> Integer, n As Integer</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>m =3D <span
class=3DGramE>Val(</span>Text1.Text)</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>n =3D <span
class=3DGramE>Val(</span>Text2.Text)</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>If m
&lt; n Then </span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;&nbs=
p;&nbsp;
</span>t =3D m: m =3D n: n =3D t<span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </spa=
n><span
style=3D'mso-tab-count:1'>&nbsp;&nbsp;&nbsp;&nbsp; </span><span style=3D'ms=
o-tab-count:
1'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><span
style=3D'mso-tab-count:1'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";