例6-12.mht

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

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"'>&#12305;&#39532;=
&#20811;&#24605;&#26366;&#32463;&#20570;&#36807;&#36825;&#26679;&#19968;&#3=
6947;&#36259;&#21619;&#25968;&#23398;&#39064;&#65306;&#26377;</span><span
lang=3DEN-US>30</span><span style=3D'font-family:SimSun;mso-ascii-font-fami=
ly:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20010;&#20154;&#22312;&#19968;&#=
23478;&#23567;&#39277;&#39302;&#37324;&#29992;&#39184;&#65292;&#20854;&#200=
13;&#26377;&#30007;&#22763;&#12289;&#22899;&#22763;&#21644;&#20799;&#31461;=
&#12290;&#27599;&#20301;&#30007;&#22763;&#33457;</span><span
lang=3DEN-US>3</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20808;&#20196;&#65292;&#27599;&#=
20301;&#22899;&#22763;&#33457;</span><span
lang=3DEN-US>2</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20808;&#20196;&#65292;&#27599;&#=
20301;&#20799;&#31461;&#33457;</span><span
lang=3DEN-US>1</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20808;&#20196;&#65292;&#19968;&#=
20849;&#33457;&#21435;</span><span
lang=3DEN-US>50</span><span style=3D'font-family:SimSun;mso-ascii-font-fami=
ly:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20808;&#20196;&#12290;&#38382;&#=
30007;&#22763;&#12289;&#22899;&#22763;&#21644;&#20799;&#31461;&#21508;&#263=
77;&#20960;&#20154;&#65311;</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;&#35774;&#26377;</span><i
style=3D'mso-bidi-font-style:normal'><span lang=3DEN-US>x</span></i><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#20301;&#30007;&#22763;&#65292;</span><i style=3D'mso-b=
idi-font-style:
normal'><span lang=3DEN-US>y</span></i><span style=3D'font-family:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>&#20301;&#22899;&#22763;&#65292;</span><i
style=3D'mso-bidi-font-style:normal'><span lang=3DEN-US>z</span></i><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#20301;&#20799;&#31461;&#12290;&#20381;&#39064;&#24847;=
&#65292;&#21015;&#20986;&#20197;&#19979;&#26041;&#31243;&#32452;&#65306;</s=
pan></p>

<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US><sub><!--[if gte vml 1]><v:shapetype
 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:78.6pt;
 height:32.4pt' o:ole=3D"" fillcolor=3D"window">
 <v:imagedata src=3D"file1410.files/image001.wmz" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D105 height=3D43
src=3D"file1410.files/image002.gif" v:shapes=3D"_x0000_i1025"><![endif]></s=
ub><!--[if gte mso 9]><xml>
 <o:OLEObject Type=3D"Embed" ProgID=3D"Equation.3" ShapeID=3D"_x0000_i1025"
  DrawAspect=3D"Content" ObjectID=3D"_1127381372">
 </o:OLEObject>
</xml><![endif]--></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"'>&#30001;&#20110;</span><span lang=3DEN-US>2</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#20010;&#26041;&#31243;&#24335;&#20013;&#26377;</span><=
span
lang=3DEN-US>3</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20010;&#26410;&#30693;&#25968;&#=
65292;&#23646;&#20110;&#19981;&#23450;&#26041;&#31243;&#65292;&#26080;&#278=
61;&#30452;&#25509;&#27714;&#35299;&#12290;&#21487;&#20197;&#29992;&#8220;&=
#31351;&#20030;&#27861;&#8221;&#26469;&#36827;&#34892;&#8220;&#35797;&#2668=
1;&#8221;&#65292;&#21363;&#23558;&#21508;&#31181;&#21487;&#33021;&#30340;</=
span><i
style=3D'mso-bidi-font-style:normal'><span lang=3DEN-US>x</span></i><i
style=3D'mso-bidi-font-style:normal'><span style=3D'font-family:SimSun;mso-=
ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#12289;</span><=
span
lang=3DEN-US>y</span></i><i style=3D'mso-bidi-font-style:normal'><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#12289;</span><span lang=3DEN-US>z</span></i><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#32452;&#21512;&#19968;&#19968;&#36827;&#34892;&#27979;=
&#35797;&#65292;&#23558;&#31526;&#21512;&#26465;&#20214;&#32773;&#36755;&#2=
0986;&#21363;&#21487;&#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"'>&#26681;&#25454;&#39064;&#24847;&#65292;&#21487;&#25512;=
&#31639;&#20986;&#26368;&#22810;&#21482;&#33021;&#26377;</span><span
lang=3DEN-US>16</span><span style=3D'font-family:SimSun;mso-ascii-font-fami=
ly:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20301;&#30007;&#22763;&#65292;&#=
26368;&#22810;&#21482;&#33021;&#26377;</span><span
lang=3DEN-US>24</span><span style=3D'font-family:SimSun;mso-ascii-font-fami=
ly:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20301;&#22899;&#22763;&#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-17</span><span style=3D'font-family:SimSun;mso-ascii-font-fa=
mily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#65288;&#24038;=
&#65289;&#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=
 id=3D"_x0000_i1026"
 type=3D"#_x0000_t75" style=3D'width:136.8pt;height:100.8pt'>
 <v:imagedata src=3D"file1410.files/image003.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D182 height=3D134
src=3D"file1410.files/image004.gif" v:shapes=3D"_x0000_i1026"><![endif]><sp=
an
style=3D'mso-spacerun:yes'>&nbsp; </span><!--[if gte vml 1]><v:shape id=3D"=
_x0000_i1027"
 type=3D"#_x0000_t75" style=3D'width:136.8pt;height:100.8pt'>
 <v:imagedata src=3D"file1410.files/image005.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D182 height=3D134
src=3D"file1410.files/image006.jpg" v:shapes=3D"_x0000_i1027"><![endif]></s=
pan><span
lang=3DEN-US style=3D'mso-no-proof:yes'><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-17<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'>&#3625=
9;&#21619;&#25968;&#23398;&#39064;</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'>Command</span><span lang=
=3DEN-US>1</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;
</span>List1.Clear</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>For x
=3D 1 To 16<span style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span><span
style=3D'mso-tab-count:7'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=