📄 例7-3.mht
字号:
5774;置对象属性。利用</span=
><span
lang=3DEN-US>Label</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>控件=
，在窗体上拖曳出</span><span
lang=3DEN-US>4</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>个标签对&#=
35937;</span><span
lang=3DEN-US>Label1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>～</span><=
span
lang=3DEN-US>Label4</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>；利=
用</span><span
class=3DSpellE><span lang=3DEN-US>TextBox</span></span><span style=3D'font-=
family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>控件，拖曳出</span><span
lang=3DEN-US>Text1</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>和</span><=
span
lang=3DEN-US>Text2</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>文本=
框对象；利用</span><span
lang=3DEN-US>Frame</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>控件=
，拖曳出</span><span
lang=3DEN-US>Frame1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>框对=
象。</span></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>利用</span><span class=3DSpellE><span lang=
=3DEN-US>OptionButton</span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>控件，拖曳出置=
于</span><span
lang=3DEN-US>Frame1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>中的=
</span><span
lang=3DEN-US>Option1</span><span style=3D'font-family:SimSun;mso-ascii-font=
-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>单选=
钮，单击“复制”按ż=
62;，将</span><span
lang=3DEN-US>Option1</span><span style=3D'font-family:SimSun;mso-ascii-font=
-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>单选=
钮的对象复制到剪贴=
6495;中，再选中</span><span
lang=3DEN-US>Frame1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>对象=
，单击“粘贴”按钮ʌ=
92;单击“是”，表示将&#=
20135;生一个属于单选<span
class=3DGramE>钮</span>类别的控件ਤ=
8;组，将</span><span
lang=3DEN-US>Frame1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>对象=
内左上角新产生的</span><span
lang=3DEN-US>Option1</span><span style=3D'font-family:SimSun;mso-ascii-font=
-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>对象=
拖曳到</span><span
lang=3DEN-US>Frame1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>框内=
已有项目的下方，如=
7492;重复粘贴，直到产ஶ=
3;</span><span
lang=3DEN-US>8</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>个</span><span lang=3DEN-US>=
Option1</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>对象，如图</span><span
lang=3DEN-US>7-8</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>所示=
，并依次改变标题名=
2290;</span></p>
<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US><!--[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:168pt;
height:100.8pt' fillcolor=3D"window">
<v:imagedata src=3D"file9683.files/image001.png" o:title=3D"" cropbottom=
=3D"237f"/>
</v:shape><![endif]--><![if !vml]><img width=3D224 height=3D134
src=3D"file9683.files/image002.jpg" v:shapes=3D"_x0000_i1025"><![endif]><sp=
an
style=3D'mso-spacerun:yes'> </span><!--[if gte vml 1]><v:shape id=3D"=
_x0000_i1026"
type=3D"#_x0000_t75" style=3D'width:166.2pt;height:100.8pt' fillcolor=3D"w=
indow">
<v:imagedata src=3D"file9683.files/image003.png" o:title=3D"" cropbottom=
=3D"120f"/>
</v:shape><![endif]--><![if !vml]><img width=3D222 height=3D134
src=3D"file9683.files/image004.jpg" v:shapes=3D"_x0000_i1026"><![endif]></s=
pan><span
lang=3DEN-US style=3D'font-size:9.0pt;mso-bidi-font-size:10.0pt;mso-hansi-f=
ont-family:
Arial'><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'>图</span><span lang=3DEN-US>7-8<span
style=3D'mso-spacerun:yes'> </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>ஷ=
2;户界面与程序运行结&=
#26524;</span></h6>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>②</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>编写=
程序代码。单选<span
class=3DGramE>钮</span></span><span lang=3DEN-US>Option1</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>的</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"'>事件代码为：</span><=
/p>
<p class=3Da><b><span lang=3DEN-US>Private Sub Option1_<span class=3DGramE>=
Click(</span>Index
As Integer)<o:p></o:p></span></b></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>Dim x <span
class=3DGramE>As</span> Single, y As Single</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </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'> </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'> </s=
pan>Select
Case Index<span
style=3D'mso-spacerun:yes'> =
</span><span style=3D'mso-tab-count:1'> </span>' Index</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>值从</span><span lang=3DEN-US>0</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>开始</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Case 0<span
style=3D'mso-spacerun:yes'> =
&nb=
sp;
</span><span style=3D'mso-tab-count:1'> =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>加</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span>Label4.Cap=
tion =3D
x + y</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Case 1<span
style=3D'mso-spacerun:yes'> =
&nb=
sp;
</span><span style=3D'mso-tab-count:1'> =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>减</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span>Label4.Cap=
tion =3D
x – y</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Case 2<span
style=3D'mso-spacerun:yes'> =
&nb=
sp;
</span><span style=3D'mso-tab-count:1'> =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>乘</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span>Label4.Cap=
tion =3D
x * y</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Case 3<span
style=3D'mso-spacerun:yes'> =
&nb=
sp;
</span><span style=3D'mso-spacerun:yes'> </span><span style=3D'mso-tab=
-count:
1'> </span>' </span><span style=3D'font=
-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>除</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span>Label4.Cap=
tion =3D
x / y</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Case 4<span
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -