📄 10.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./10.files/filelist.xml">
<title>无标题文档</title>
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
<o:Author>oem</o:Author>
<o:Template>Normal</o:Template>
<o:LastAuthor>oem</o:LastAuthor>
<o:Revision>2</o:Revision>
<o:TotalTime>1</o:TotalTime>
<o:Created>2006-07-14T06:31:00Z</o:Created>
<o:LastSaved>2006-07-14T06:32:00Z</o:LastSaved>
<o:Pages>8</o:Pages>
<o:Words>1054</o:Words>
<o:Characters>6013</o:Characters>
<o:Lines>50</o:Lines>
<o:Paragraphs>12</o:Paragraphs>
<o:CharactersWithSpaces>7384</o:CharactersWithSpaces>
<o:Version>9.2812</o:Version>
</o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:Zoom>80</w:Zoom>
<w:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing>
<w:Compatibility>
<w:UseFELayout/>
</w:Compatibility>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:宋体;
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:"\@宋体";
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;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:宋体;
mso-bidi-font-family:"Times New Roman";}
p
{font-size:12.0pt;
font-family:宋体;
mso-bidi-font-family:"Times New Roman";}
/* 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;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=ZH-CN link=blue vlink=blue style='tab-interval:21.0pt'>
<div class=Section1>
<h1>《<span lang=EN-US>Visual Basic》基础教程 </span></h1>
<h2>常见错误和难点分析 </h2>
<p><strong><span lang=EN-US>1 ．在选择结构中缺少配对的结束语句 </span></strong></p>
<p>对多行式的<span lang=EN-US> If 块语句中，应有配对的 End If 语句结束。否则，在运行时系统会显示 " 块 If 没有
End If" 的编译错误。同样对 Select Case 语句也应有与其相对应的 End Select 语句。 </span></p>
<p><strong><span lang=EN-US>2 ．多边选择 ElseIf 关键字的书写和条件表达式的表示 </span></strong></p>
<p>多边选择<span lang=EN-US> ElseIf 子句的关键字 ElseIf 之间不能写有空格，即不能写成 Else If 。 </span></p>
<p>在多个条件表达式的表示时，应从最小或最大的条件依次表示，以避免条件的过滤。例如，已知输入某课程的百分制成绩<span lang=EN-US> mark ，要求显示对应五级制的讦定，评定条件如下：
</span></p>
<p>有以下几种表示方式，语法上都没有错，但执行后结果有所不同，请分析哪些正确<span lang=EN-US> ? 哪些错误 ? </span></p>
<p>下面给出的答案中，方法一、二、五正确，其余错误，请分析各自的原因。 </p>
<table border=1 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
border:solid windowtext .5pt;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td width=124 valign=top style='width:93.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'>方法一： </p>
</td>
<td width=115 valign=top style='width:86.25pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'>方法二： </p>
</td>
<td width=125 valign=top style='width:93.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'>方法三： </p>
</td>
<td width=153 valign=top style='width:114.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>方法四： </p>
</td>
<td width=180 valign=top style='width:135.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>方法五： </p>
</td>
</tr>
<tr>
<td width=124 valign=top style='width:93.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>If mark>=90Then </span></p>
<p><span lang=EN-US>Print" 优 " </span></p>
<p><span lang=EN-US>ElseIf mark>=80Then </span></p>
<p><span lang=EN-US>Print" 良 " </span></p>
<p><span lang=EN-US>ElseIf mark>=70Then </span></p>
<p><span lang=EN-US>Print" 中 " </span></p>
<p><span lang=EN-US>ElseIfmark>-60Then </span></p>
<p><span lang=EN-US>Print" 及格 " </span></p>
<p><span lang=EN-US>Else </span></p>
<p><span lang=EN-US>Print" 及格 " </span></p>
<p><span lang=EN-US>End If </span></p>
</td>
<td width=115 valign=top style='width:86.25pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>If mark<60Then </span></p>
<p><span lang=EN-US>Print" 不及格 " </span></p>
<p><span lang=EN-US>ElseIf mark<70Then </span></p>
<p><span lang=EN-US>Print" 及格 " </span></p>
<p><span lang=EN-US>ElseIf mark<80Then </span></p>
<p><span lang=EN-US>Print" 中 " </span></p>
<p><span lang=EN-US>ElseIf mark<90Then </span></p>
<p><span lang=EN-US>Print" 良 " </span></p>
<p><span lang=EN-US>Else </span></p>
<p><span lang=EN-US>Print" 优 " </span></p>
<p><span lang=EN-US>End If </span></p>
</td>
<td width=125 valign=top style='width:93.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>If mark>=60Then </span></p>
<p><span lang=EN-US>Print" 及格 " </span></p>
<p><span lang=EN-US>ElseIf mark>=70Then </span></p>
<p><span lang=EN-US>Print" 中 " </span></p>
<p><span lang=EN-US>Elselfmark>=80Then </span></p>
<p><span lang=EN-US>Print" 良 " </span></p>
<p><span lang=EN-US>Elselfmark>=90Then </span></p>
<p><span lang=EN-US>Print" 优 " </span></p>
<p><span lang=EN-US>Else </span></p>
<p><span lang=EN-US>Print" 不及格 " </span></p>
<p><span lang=EN-US>End If </span></p>
</td>
<td width=153 valign=top style='width:114.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>If mark>=90Then </span></p>
<p><span lang=EN-US>Print" 优 " </span></p>
<p><span lang=EN-US>ElseIf 80<=mark<90 Then </span></p>
<p><span lang=EN-US>Print" 良 " </span></p>
<p><span lang=EN-US>ElseIf 70<=mark<80 Then </span></p>
<p><span lang=EN-US>Print" 中 " </span></p>
<p><span lang=EN-US>ElseIf 60<=mark<70 Then </span></p>
<p><span lang=EN-US>Print" 及格 " </span></p>
<p><span lang=EN-US>Else </span></p>
<p><span lang=EN-US>Print" 不及格 " </span></p>
<p><span lang=EN-US>End If </span></p>
</td>
<td width=180 valign=top style='width:135.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>If mark>=90Then </span></p>
<p><span lang=EN-US>Print" 优 " </span></p>
<p><span lang=EN-US>ElseIf 80<=mark And mark<90 Then </span></p>
<p><span lang=EN-US>Print" 良 " </span></p>
<p><span lang=EN-US>ElseIf 70<=mark And mark<80Then </span></p>
<p><span lang=EN-US>Print" 中 " </span></p>
<p><span lang=EN-US>ElseIf 60<=mark And mark<70Then </span></p>
<p><span lang=EN-US>Print" 及格 " </span></p>
<p><span lang=EN-US>Else </span></p>
<p><span lang=EN-US>Print" 不及格 " </span></p>
<p><span lang=EN-US>End If </span></p>
</td>
</tr>
</table>
<p><strong><span lang=EN-US>3 ． Select Case 语句的使用 </span></strong></p>
<p><strong><span lang=EN-US>(1) " 表达式列表 i" 中不能使用 " 变量或表达式 "
中出现的变量。 </span></strong></p>
<p>例如，上述多边选择的例子改为<span lang=EN-US> Select Case 语句实现，方法一 Case 子句中出现变量 mark ，运行时不管
mark 的值多少，始终执行 Case Else 子句，运行结果不正确；方法二、方法三正确。 </span></p>
<table border=1 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
border:solid windowtext .5pt;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td width=213 valign=top style='width:159.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'>方法一： </p>
</td>
<td width=213 valign=top style='width:159.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'>方法二： </p>
</td>
<td width=213 valign=top style='width:159.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'>方法三： </p>
</td>
</tr>
<tr>
<td width=213 valign=top style='width:159.75pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Select Case mark </span></p>
<p><span lang=EN-US>Case mark>=90 </span></p>
<p><span lang=EN-US>Print" 优 " </span></p>
<p><span lang=EN-US>Case mark>=80 </span></p>
<p><span lang=EN-US>Print" 良 " </span></p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -