例4-8.mht

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

  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-h=
ansi-font-family:
  "Times New Roman"'>&#38271;&#26041;&#20307;&#30340;&#34920;&#38754;&#3121=
5;</span><span
  lang=3DEN-US> =3D</span></p>
  </td>
  <td width=3D"35%" valign=3Dtop style=3D'width:35.48%;border:none;border-b=
ottom:
  solid windowtext 1.0pt;mso-border-top-alt:solid windowtext .75pt;mso-bord=
er-left-alt:
  solid windowtext .75pt;mso-border-top-alt:solid windowtext .75pt;mso-bord=
er-left-alt:
  solid windowtext .75pt;mso-border-bottom-alt:solid windowtext .75pt;
  padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-h=
ansi-font-family:
  "Times New Roman"'>&#25353;&#38062;&#30340;&#26631;&#39064;</span></p>
  </td>
 </tr>
 <tr style=3D'mso-yfti-irow:3;page-break-inside:avoid'>
  <td width=3D"19%" style=3D'width:19.62%;border-top:none;border-left:none;
  border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;
  mso-border-top-alt:solid windowtext .75pt;mso-border-top-alt:solid window=
text .75pt;
  mso-border-bottom-alt:solid windowtext .75pt;mso-border-right-alt:solid w=
indowtext .75pt;
  padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  lang=3DEN-US>Label1</span></p>
  </td>
  <td width=3D"20%" style=3D'width:20.98%;border-top:none;border-left:none;
  border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;
  mso-border-top-alt:solid windowtext .75pt;mso-border-left-alt:solid windo=
wtext .75pt;
  mso-border-alt:solid windowtext .75pt;padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  lang=3DEN-US>Caption</span></p>
  </td>
  <td width=3D"23%" valign=3Dtop style=3D'width:23.92%;border-top:none;bord=
er-left:
  none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1=
.0pt;
  mso-border-top-alt:solid windowtext .75pt;mso-border-left-alt:solid windo=
wtext .75pt;
  mso-border-alt:solid windowtext .75pt;padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  lang=3DEN-US>0</span></p>
  </td>
  <td width=3D"35%" valign=3Dtop style=3D'width:35.48%;border:none;border-b=
ottom:
  solid windowtext 1.0pt;mso-border-top-alt:solid windowtext .75pt;mso-bord=
er-left-alt:
  solid windowtext .75pt;mso-border-top-alt:solid windowtext .75pt;mso-bord=
er-left-alt:
  solid windowtext .75pt;mso-border-bottom-alt:solid windowtext .75pt;
  padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-h=
ansi-font-family:
  "Times New Roman"'>&#26631;&#31614;&#30340;&#26631;&#39064;</span></p>
  </td>
 </tr>
 <tr style=3D'mso-yfti-irow:4;mso-yfti-lastrow:yes;page-break-inside:avoid'>
  <td width=3D"19%" style=3D'width:19.62%;border-top:none;border-left:none;
  border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;
  mso-border-top-alt:solid windowtext .75pt;mso-border-top-alt:solid window=
text .75pt;
  mso-border-bottom-alt:solid windowtext .75pt;mso-border-right-alt:solid w=
indowtext .75pt;
  padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  lang=3DEN-US>Text1</span><span style=3D'font-family:SimSun;mso-ascii-font=
-family:
  "Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#65374;</span=
><span
  lang=3DEN-US>Text3</span></p>
  </td>
  <td width=3D"20%" style=3D'width:20.98%;border-top:none;border-left:none;
  border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;
  mso-border-top-alt:solid windowtext .75pt;mso-border-left-alt:solid windo=
wtext .75pt;
  mso-border-alt:solid windowtext .75pt;padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  lang=3DEN-US>Text</span></p>
  </td>
  <td width=3D"23%" style=3D'width:23.92%;border-top:none;border-left:none;
  border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;
  mso-border-top-alt:solid windowtext .75pt;mso-border-left-alt:solid windo=
wtext .75pt;
  mso-border-alt:solid windowtext .75pt;padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  lang=3DEN-US>0</span></p>
  </td>
  <td width=3D"35%" valign=3Dtop style=3D'width:35.48%;border:none;border-b=
ottom:
  solid windowtext 1.0pt;mso-border-top-alt:solid windowtext .75pt;mso-bord=
er-left-alt:
  solid windowtext .75pt;mso-border-top-alt:solid windowtext .75pt;mso-bord=
er-left-alt:
  solid windowtext .75pt;mso-border-bottom-alt:solid windowtext .75pt;
  padding:0cm 5.4pt 0cm 5.4pt'>
  <p class=3Da1 style=3D'margin:0cm;margin-bottom:.0001pt;line-height:16.0p=
t'><span
  style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-h=
ansi-font-family:
  "Times New Roman"'>&#25991;&#26412;&#26694;&#30340;&#20869;&#23481;</span=
></p>
  </td>
 </tr>
</table>

</div>

<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;&#32622;&#23646;&#24615;&#21518;&#30340;&#31383;=
&#20307;&#22914;&#22270;</span><span
lang=3DEN-US>4-14</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:115.2pt;
 height:86.4pt' fillcolor=3D"window">
 <v:imagedata src=3D"file6616.files/image001.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D154 height=3D115
src=3D"file6616.files/image002.jpg" v:shapes=3D"_x0000_i1025"><![endif]><sp=
an
style=3D'mso-spacerun:yes'>&nbsp;&nbsp; </span><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;</span><!--[if gte vml 1]><v:shape i=
d=3D"_x0000_i1026"
 type=3D"#_x0000_t75" style=3D'width:115.2pt;height:86.4pt' fillcolor=3D"wi=
ndow">
 <v:imagedata src=3D"file6616.files/image003.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D154 height=3D115
src=3D"file6616.files/image004.jpg" v:shapes=3D"_x0000_i1026"><![endif]></s=
pan></p>

<h6><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;&nbsp; </span=
></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
Roman'>&#22270;</span><span lang=3DEN-US>4-14<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'>&#3577=
4;&#35745;&#29992;&#25143;&#30028;&#38754;</span>
<span style=3D'mso-spacerun:yes'>&nbsp;</span><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;</span><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;</span><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp;</span><span
style=3D'mso-spacerun:yes'>&nbsp;</span></span><span style=3D'font-family:S=
imSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>&#2227=
0;</span><span
lang=3DEN-US>4-15<span style=3D'mso-spacerun:yes'>&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
Roman'>&#27714;&#38271;&#26041;&#20307;&#30340;&#34920;&#38754;&#31215;</sp=
an></h6>

<p class=3DMsoNormal><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&n=
bsp;&nbsp;
</span><span style=3D'mso-spacerun:yes'>&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;&#21629;&#20196;&#25353;&#38062;</s=
pan><span
lang=3DEN-US>Command1</span><span style=3D'font-family:SimSun;mso-ascii-fon=
t-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#30340;</span><=
span
lang=3DEN-US>Click</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#20107;&#20214;=
&#20195;&#30721;&#20026;&#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 a
As Single, b <span class=3DGramE>As</span> Single, c As Single, s As Single=
</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>a =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>b =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>c =3D <span
class=3DGramE>Val(</span>Text3.Text)</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>s =3D 2
* (a * b + b * c + c * a)<span style=3D'mso-spacerun:yes'>&nbsp; </span><sp=
an
style=3D'mso-tab-count:5'>&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;&=
nbsp;&nbsp;&nbsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>&#35745;&#31639;&#34920;&#38754;&#=
31215;</span><span
lang=3DEN-US> </span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;
</span>Label1.Caption =3D s<span style=3D'mso-spacerun:yes'>&nbsp; </span><=
span
style=3D'mso-tab-count:6'>&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;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>&#22312;&#26631;&#31614;&#19978;&#=
36755;&#20986;&#32467;&#26524;</span></p>

<p class=3Da><b style=3D'mso-bidi-font-weight:normal'><span lang=3DEN-US>En=
d Sub<o:p></o:p></span></b></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"'>&#36816;&#34892;&#31243;&#24207;&#65292;&#32467;&#26524;=
&#22914;&#22270;</span><span
lang=3DEN-US>4-15</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><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

</div>

</body>

</html>

------=_NextPart_01C38FF2.ED6F0740
Content-Location: file:///C:/4E1655D8/file6616.files/image001.png