⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 例5-4.mht

📁 系统的介绍了vb的书籍,学vb的到这来.
💻 MHT
字号:
🔍 
MIME-Version: 1.0
Content-Location: file:///C:/4E1659D4/file7636.htm
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html; charset="us-ascii"

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office"
xmlns:w=3D"urn:schemas-microsoft-com:office:word"
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=3DContent-Type content=3D"text/html; charset=3Dus-ascii">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 11">
<meta name=3DOriginator content=3D"Microsoft Word 11">
<link rel=3DFile-List href=3D"file7636.files/filelist.xml">
<title>&#12304;&#20363;5-4&#12305;&#24050;&#30693;&#20004;&#20010;&#25968;x=
&#21644;y&#65292;&#27604;&#36739;&#23427;&#20204;&#30340;&#22823;&#23567;&#=
65292;&#36755;&#20986;&#36739;&#22823;&#25968;</title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>lll111</o:Author>
  <o:LastAuthor>lll111</o:LastAuthor>
  <o:Revision>1</o:Revision>
  <o:TotalTime>1</o:TotalTime>
  <o:Created>2003-10-11T04:29:00Z</o:Created>
  <o:LastSaved>2003-10-11T04:30:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>91</o:Words>
  <o:Characters>522</o:Characters>
  <o:Lines>4</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>612</o:CharactersWithSpaces>
  <o:Version>11.6568</o:Version>
 </o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:SpellingState>Clean</w:SpellingState>
  <w:GrammarState>Clean</w:GrammarState>
  <w:PunctuationKerning/>
  <w:DrawingGridVerticalSpacing>7.8 &#30917;</w:DrawingGridVerticalSpacing>
  <w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEve=
ry>
  <w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery>
  <w:ValidateAgainstSchemas/>
  <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
  <w:IgnoreMixedContent>false</w:IgnoreMixedContent>
  <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
  <w:Compatibility>
   <w:SpaceForUL/>
   <w:BalanceSingleByteDoubleByteWidth/>
   <w:DoNotLeaveBackslashAlone/>
   <w:ULTrailSpace/>
   <w:DoNotExpandShiftReturn/>
   <w:AdjustLineHeightInTable/>
   <w:SelectEntireFieldWithStartOrEnd/>
   <w:UseWord2002TableStyleRules/>
   <w:UseFELayout/>
  </w:Compatibility>
  <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
 </w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:LatentStyles DefLockedState=3D"false" LatentStyleCount=3D"156">
 </w:LatentStyles>
</xml><![endif]-->
<style>
<!--
 /* Font Definitions */
 @font-face
	{font-family:SimSun;
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-alt:SimSun;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 135135232 16 0 262145 0;}
@font-face
	{font-family:SimSun;
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 135135232 16 0 262145 0;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{mso-style-parent:"";
	margin:0cm;
	margin-bottom:.0001pt;
	text-align:justify;
	text-justify:inter-ideograph;
	line-height:16.0pt;
	mso-pagination:none;
	mso-layout-grid-align:none;
	font-size:10.5pt;
	mso-bidi-font-size:10.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:SimSun;
	mso-font-kerning:10.5pt;
	mso-bidi-language:HE;}
p.a, li.a, div.a
	{mso-style-name:\4EE3\7801;
	mso-style-next:\6B63\6587;
	margin-top:0cm;
	margin-right:0cm;
	margin-bottom:0cm;
	margin-left:42.55pt;
	margin-bottom:.0001pt;
	text-align:justify;
	text-justify:inter-ideograph;
	line-height:14.0pt;
	mso-line-height-rule:exactly;
	mso-pagination:none;
	mso-layout-grid-align:none;
	font-size:9.0pt;
	mso-bidi-font-size:10.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:SimSun;
	mso-font-kerning:10.5pt;
	mso-bidi-language:HE;}
p.a0, li.a0, div.a0
	{mso-style-name:\4F8B;
	margin:0cm;
	margin-bottom:.0001pt;
	text-align:justify;
	text-justify:inter-ideograph;
	text-indent:21.25pt;
	line-height:16.0pt;
	mso-pagination:none;
	mso-outline-level:5;
	mso-layout-grid-align:none;
	font-size:10.5pt;
	mso-bidi-font-size:10.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:SimSun;
	mso-bidi-language:HE;
	layout-grid-mode:line;}
span.SpellE
	{mso-style-name:"";
	mso-spl-e:yes;}
span.GramE
	{mso-style-name:"";
	mso-gram-e:yes;}
 /* Page Definitions */
 @page
	{mso-page-border-surround-header:no;
	mso-page-border-surround-footer:no;}
@page Section1
	{size:595.3pt 841.9pt;
	margin:72.0pt 90.0pt 72.0pt 90.0pt;
	mso-header-margin:42.55pt;
	mso-footer-margin:49.6pt;
	mso-paper-source:0;
	layout-grid:15.6pt;}
div.Section1
	{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
 /* Style Definitions */
 table.MsoNormalTable
	{mso-style-name:\666E\901A\8868\683C;
	mso-tstyle-rowband-size:0;
	mso-tstyle-colband-size:0;
	mso-style-noshow:yes;
	mso-style-parent:"";
	mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
	mso-para-margin:0cm;
	mso-para-margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:10.0pt;
	font-family:"Times New Roman";
	mso-ansi-language:#0400;
	mso-fareast-language:#0400;
	mso-bidi-language:#0400;}
</style>
<![endif]-->
</head>

<body lang=3DZH-CN style=3D'tab-interval:21.0pt;text-justify-trim:punctuati=
on'>

<div class=3DSection1 style=3D'layout-grid:15.6pt'>

<p class=3Da0><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:"Times New Roman"'>&#12304;&#20363;</span><span
lang=3DEN-US>5-4</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#12305;&#24050;=
&#30693;&#20004;&#20010;&#25968;</span><span
lang=3DEN-US>x</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#21644;</span><span lang=3DEN-US>=
y</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#65292;&#27604;&#36739;&#23427;&#20204;&#30340;&#22823;=
&#23567;&#65292;&#36755;&#20986;&#36739;&#22823;&#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><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;=
&#24212;&#29992;&#31243;&#24207;&#29992;&#25143;&#30028;&#38754;&#19982;&#3=
5774;&#32622;&#23545;&#35937;&#23646;&#24615;&#65292;&#22914;&#22270;</span=
><span
lang=3DEN-US>5-2</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25152;&#31034;=
&#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"'>&#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;&#21333;=
&#20987;&#65288;</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"'>&#65289;&#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 x
As Single, y As Single<span style=3D'mso-spacerun:yes'>&nbsp; </span><span
style=3D'mso-tab-count:3'>&nbsp;&nbsp;&nbsp;&nbsp;&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"'>&#23450;&#20041;&#21464;&#37327;&#=
25968;&#25454;&#31867;&#22411;&#20026;&#21333;&#31934;&#24230;&#25968;</spa=
n></p>

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

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

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>If x
&lt; y Then Label3.Caption =3D &quot;</span><span style=3D'font-family:SimS=
un;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>&#36739;&#22823;&#25968;&#20026;</span><span
lang=3DEN-US>&quot; &amp; <span class=3DSpellE>Str</span>(y)</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>If x
&gt; y Then Label3.Caption =3D &quot;</span><span style=3D'font-family:SimS=
un;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>&#36739;&#22823;&#25968;&#20026;</span><span
lang=3DEN-US>&quot; &amp; <span class=3DSpellE>Str</span>(x)</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"'>&#25110;&#32773;&#32534;&#20889;&#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 x
As Single, y As Single<span style=3D'mso-spacerun:yes'>&nbsp; </span><span
style=3D'mso-tab-count:3'>&nbsp;&nbsp;&nbsp;&nbsp;&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"'>&#23450;&#20041;&#21464;&#37327;&#=
25968;&#25454;&#31867;&#22411;&#20026;&#21333;&#31934;&#24230;&#25968;</spa=
n></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp; </s=
pan>x =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>y =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 x
&lt; y Then t =3D x: x =3D y: y =3D t<span style=3D'mso-spacerun:yes'>&nbsp=
; </span><span
style=3D'mso-tab-count:3'>&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; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>&#22914;&#26524;</span><span
lang=3DEN-US>x</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#23567;&#65292;&#21017;&#20132;&#=
25442;</span><span
lang=3DEN-US>x</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#12289;</span><span lang=3DEN-US>=
y</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#30340;&#20540;</span></p>

<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&nbsp;
</span>Label3.Caption =3D &quot;</span><span style=3D'font-family:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>&#36739;&#22823;&#25968;&#20026;</span><span
lang=3DEN-US>&quot; &amp; <span class=3DSpellE>Str</span>(x)<span style=3D'=
mso-tab-count:
2'>&nbsp;&nbsp;&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"'>&#36755;&#20986;&#27604;&#36739;&#=
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"'>&#31243;&#24207;&#36816;&#34892;&#32467;&#26524;&#22914;=
&#22270;</span><span
lang=3DEN-US>5-2</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -