📄 例10-4.mht
字号:
lang=3DEN-US>d:\ziliao.dat</span><span style=3D'font-family:SimSun;mso-asci=
i-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>）。=
如果用户输入的数据=
9981;完整，程序给出错෾=
3;提示。</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"'>用户输入“姓名&=
#8221;或“编号”后单击“=
查询”按钮，可在数=
454;文件中查找第一条符=
;合条件的记录，找到&#=
21518;显示在对应的文本Ċ=
94;中。如此时并未查找=
到文件的结尾，将显=
1034;信息询问“是否继续=
;查询”，用户选择“=
159;”继续查找下一条符=
合条件的记录，遇到=
5991;件尾时显示信息“查=
;询结束”。若用户没=
6377;输入任何数据，而ࡕ=
3;击查询按钮时，显示&=
#25552;示信息“你必须输Ð=
37;需要的资料”</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"'>用户单击“清除&=
#8221;按钮时清除文本框È=
13;的所有内容，并使“&=
#22995;名”文本框得到焦Ġ=
57;。单击“退出”按钮&#=
32467;束程序的运行。</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></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 style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>设计=
程序界面。</span></p>
<p class=3DMsoNormal style=3D'text-indent:21.0pt;mso-char-indent-count:2.0'=
><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>在窗体中添加三=
个标签，三个文本框=
5292;四个命令按钮和两ߑ=
0;单选按钮。调整控件&=
#30340;大小并放置在适当=
340;位置。</span></p>
<div style=3D'mso-element:frame;mso-element-frame-width:148.2pt;mso-element=
-frame-height:
92.95pt;mso-element-frame-hspace:9.0pt;mso-element-wrap:around;mso-element-=
anchor-vertical:
paragraph;mso-element-anchor-horizontal:margin;mso-element-top:-.1pt'>
<table cellspacing=3D0 cellpadding=3D0 hspace=3D0 vspace=3D0 width=3D262 he=
ight=3D155
align=3Dleft>
<tr>
<td valign=3Dtop align=3Dleft height=3D155 style=3D'padding-top:0cm;paddi=
ng-right:
9.0pt;padding-bottom:0cm;padding-left:9.0pt'>
<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center;mso-elemen=
t:frame;
mso-element-frame-width:148.2pt;mso-element-frame-height:92.95pt;mso-elem=
ent-frame-hspace:
9.0pt;mso-element-wrap:around;mso-element-anchor-vertical:paragraph;
mso-element-anchor-horizontal:margin;mso-element-top:-.1pt'><span lang=3D=
EN-US><!--[if gte vml 1]><v:shapetype
id=3D"_x0000_t75" coordsize=3D"21600,21600" o:spt=3D"75" o:preferrelativ=
e=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'=
width:117.6pt;
height:67.2pt'>
<v:imagedata src=3D"file0516.files/image001.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D157 height=3D90
src=3D"file0516.files/image003.jpg" v:shapes=3D"_x0000_i1025"><![endif]><=
/span></p>
<h6 style=3D'mso-element:frame;mso-element-frame-width:148.2pt;mso-elemen=
t-frame-height:
92.95pt;mso-element-frame-hspace:9.0pt;mso-element-wrap:around;mso-elemen=
t-anchor-vertical:
paragraph;mso-element-anchor-horizontal:margin;mso-element-top:-.1pt'><sp=
an
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-h=
ansi-font-family:
Roman'>图</span><span lang=3DEN-US>10-7<span
style=3D'mso-spacerun:yes'> </span></span><span style=3D'font-famil=
y:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>'=
034;序文件应用示例</span></h6>
</td>
</tr>
</table>
</div>
<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></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 lang=3DEN-US>10-7</span><sp=
an
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>所<span class=3DGramE>示设置</sp=
an>命令按钮、标签、单=
选按钮的</span><span
lang=3DEN-US>Caption</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>Text</span><span style=3D'font-family:SimSun;mso-ascii-font-fa=
mily:
"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 style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>编写=
程序代码如下：</span></p>
<p class=3Da><span lang=3DEN-US>' </span><span style=3D'font-family:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>在声明段中定义变ŵ=
27;，用来存放用户输入=
的信息</span></p>
<p class=3Da><span lang=3DEN-US>Dim <span class=3DSpellE>xingming</span> As=
String *
8</span></p>
<p class=3Da><span lang=3DEN-US>Dim <span class=3DSpellE>bianhao</span> As =
String * 6</span></p>
<p class=3Da><span lang=3DEN-US>Dim <span class=3DSpellE>nianling</span> As=
Integer</span></p>
<p class=3Da><b><span lang=3DEN-US>Private Sub Command1_Click() <span
style=3D'mso-spacerun:yes'> </span></span></b>=
<span
lang=3DEN-US><span style=3D'mso-spacerun:yes'> </span><span style=3D'm=
so-tab-count:
3'> =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>“写入文=
0214;”按钮被单击时执行=
;的程序代码</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>If
Text1 =3D "" Or Text2 =3D "" Or Text3 =3D "" =
Then<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 R=
oman";
mso-hansi-font-family:"Times New Roman"'>用户输入&#=
30340;信息不完整时显示ÿ=
52;示信息</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span><span class=3DSpellE>MsgBox</span> "</span><span style=3D'font-=
family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>你必需输入完整௚=
0;资料！</span><span
lang=3DEN-US>", 48, "</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>"</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Exit Sub</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>End If</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan><span
class=3DSpellE><span class=3DGramE>bianhao</span></span> =3D Text1: <span
class=3DSpellE>xingming</span> =3D Text2: <span class=3DSpellE>nianling</sp=
an> =3D
Text3</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>If
Option1 Then<span style=3D'mso-spacerun:yes'> =
</span><span style=3D'mso-tab-count:5'> =
&nb=
sp; =
</span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>按用户指&#=
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -