“VB简单的程序设计”常见错误汇总
一、“VB简单的程序设计”常见错误
1．2 常见错误和难点分析
1．标点符号错误
在VB中只允许使用西文标点，任何中文标点符号在程序编译时产生"无效字符"错误，在该行以红色字显示。用户在进入VB后不要使用中文标点符号。中、西文状态下标点符号对照见下表所示。
中、西状态下标点符号对照
西文状态
,
.
'
"
;
_
<
中文状态
，
。
'
"
：
——
《
2．字母和数字形状相似
L的小写字母"1"和数字"l"形式几乎相同、O的小写字母"。"与数字"0"也难以区，这在输入代码时要十分注意，避免单独作为变量名使用。
3．对象名称(Name)属性写错
在窗体上创建的每个控件都有默认的名称，用于在程序中唯一地标识该控件对象。系统为每个创建的对象提供了默认的对象名，例如，Text1、Text2、Command1、Label1等。用户可以将属性窗口的(名称)属性改为自己所指定的可读性好的名称，如txtInput、txtOutput、
cmdOk等。对初学者，由于程序较简单、控件对象使用较少，还是用默认的控件名较方便。
当程序中的对象名写错时，系统显示"要求对象"的信息，并对出错的语句以黄色背景显示。用户可以在代码窗口的"对象列表"框检查该窗体所使用的对象。
4．Name属性和Caption属性混淆
Name属性的值用于在程序中唯一地标识该控件对象，在窗体上不可见；而Caption属性的值是在窗体上显示的内容。
5．对象的属性名、方法名写错
当程序中对象的属性名、方法名写错时，VB系统会显示"方法或数据成员未找到"的信息。在编写程序代码时，尽量使用自动列出成员功能，即当用户在输入控件对象名和句点后，系统自动列出该控件对象在运行模式下可用的属性和方法，用户按空格键或双击鼠标即可，这样既可减少输入也可防止此类错误出现。
6．变量名写错
用Dim声明的变量名，在后面的使用中表示同一变量而写错了变量名，VB编译时就认为是两个不同的变量。例如，下面程序段求1~100的和，结果放在Sum变量中：
Dim sum As Integer，i As Integer
Sum=0
For i =1 to
100
Sum=Sun+i
Next i
Print Sum
显示的结果为100。原因是累加和表达式Sum=Sun+i中的右边的变量名Sum写成Sun。VB对变量声明有两种方式，可以用变量声明语句显式声明，也可以用隐式声明，即不声明直接使用。上述变量名的写错，系统为两个不同的变量各自分配内存单元，造成计算结果不正确。因此，为防止此类错误产生，必须对变量声明采用限制其为显式声明方式，也就是在通用声明段加Option
Explicit语句。
7．语句书写位置错
在VB中，除了在"通用声明"段利用Dim等对变量声明语句外，其他任何语句都应在事件过程中，否则运行时会显示"无效外部过程"的信息。若要对模块级变量进行初始化工作，则一般放在Form
Load()事件过程中。
8．无意形成控件数组
若要在窗体上创建多个命令按钮，有些读者会先创建一个命令按钮控件，然后利用对该控件进行复制、粘贴，这时系统显示：“已经有一个控件为"Command1"。创建一个控件数组吗?”的信息，若单击"是"按钮，则系统创建了名称为Command1的控件数组。若要对该控件的
Click事件过程编程，系统显示的框架是：
Private Sub Command1_Click(Index As Integer)
End Sub
Index表示控件数组的下标。
若非控件数组，Click事件过程的框架是：
Private Sub Command1_Click()
End Sub
请注意直到学习第四章数组前，一律不使用控件数组。
9．Print方法中定位问题
定位通过Tab、Spc函数和最后的逗号、分号和无符号来控制。VB中通过Print方法中各参数的综合使用达到所需的结果，但初学者往往难以掌握。
(1) Tab(n)与Spc(n)的区别
Tab(n)从最左第1列开始算起定位于第n列，若当前打印位置已超过n列，则定位于下一行的第n列，这是常常定位不好出现的问题。在格式定位中，Tab用得最多。
Spc(n)从前一打印位置起空n个空格。例如，下面程序段显示了Tab与Spc的区别，效果如图所示。
Private Sub Commandl_Click()
Print "1234567890”，
Tab(1);"**"';Tab(2);"%%%";spc(2);"$$$$"
End Sub
(2)
紧凑格式"；"分号的使用
紧凑格式"；"，即输出项之间无间隔。但对于数值型，输出项之间系统自动空一列，而由于数值系统自动加符号位，因此，大于零的数值，实际空两列。对于字符型之间无空格。
例如，下面程序段，效果如图所示。
Private Sub Command1_Click()
Print 1;-2;3
Print"1234";"5678"
Print"A";"B";"C";"D","E","F"
End Sub
从该例应区分数值和字符在紧凑格式输出的差异。
10．打开工程时找不到对应的文件
一般，一个再简单的应用程序也应由一个工程.vbp文件和一个窗体.frm文件组成。工程文件记录该工程内的所有文件(窗体.frm文件、标准模块.bas文件、类模块.cls文件等)的名称和所存放在磁盘上的路径。
若在上机结束后，把文件复制到软盘上保存，但又少复制了某个文件，下次打开工程时就会显示"文件未找到"。也有在VB环境外，利用Windows资源管理器或DOS命令将窗体文件等改名，而工程文件内记录的还是原来的文件名，这样也会造成打开工程时显示"文件未找到"。
解决此问题的方法：一是修改.vbp工程文件中的有关文件名：二是通过"工程"菜单的"添加窗体"中的"现存"选项，将改名后的窗体加入工程。
二、表达式
1.书写规则
(1)运算符不能相邻。例a+-b是错误的。
(2)乘号不能省略。例x 乘以y
应写成：x*y
(3)括号必须成对出现，均使用圆括号。
(4)表达式从左到右在同一基准上书写，无高低、大小。
2. 不同数据类型的转换
运算结果的数据类型向精度高的数据类型靠.
Integer< P>
3.逻辑表达式书写错，在VB没有造成语法错而形成逻辑错
例：数学表达式 3≤x＜10 VB表达式为 3<=x<10
问题在于VB中的逻辑量与数值量可互转
4.同时给多个变量赋值，在VB没有造成语法错而形成逻辑错
例 Dim x%,y%,z%
x=y=z=1
5. 标准函数名写错
6．变量名写错
检查方法：在通用声明段加Option Explicit
7．语句书写位置错
在通用声明段只能有Dim语句，不能有赋值等其他语句
1．逻辑表达式书写错，在VB没有造成语法错而形成逻辑错
例如，要将数学上表示变量x在一定数值范围内如3≤x＜10，以VB的逻辑表达式表示，有的读者写成的VB表达式为：
3<=x<10
此时在其他语言中将产生语法错，而在VB中不产生语法错，程序能运行，但不管x的值为多少，表达式的值永远为True，这造成程序能正常运行的假象，其结果是不正确的。
因为在VB中，当两个不同类型的变量或常量参加运算时，有自动向精度高的类型转换的功能。例如，逻辑常量True转换为数值型的值为-1，False为0；反之数值型非0转换为逻辑型的值为True，0为False。同样数字字符与数值运算，转换为数值型。
例如，语句Print
True+3 '显示的结果是2
"123"+100 '显示的结果是223
Print#5/1/2000#+3 '显示的结果是00-5-4
根据此原因，表达式：
3<=x <10
(1)
(2)
值的计算过程是：首先根据x的值计算3<=x，结果总为True或False；然后该值(-1或0)与10比较永远为True。正确的VB表达式书写为：
3<=x And x<10
2．同时给多个变量赋值，在VB没有造成语法错而形成逻辑错
例如，要同时给x,y,z三个整型变量赋初值1，有的读者写成如下赋值语句：
x=y=z=1
在C语言中，上述语句是可以实现同时对多个变量赋值，而在VB中规定一句赋值语句内只能给一个变量赋值，但上述语句并没有产生语法错，运行后x,y,z中的结果均为0。
原因是VB将y=z=1作为一个表达式，再将表达式的结果赋值给x。在VB中默认数值型变量的初值为0，根据上面错误1的分析类推，因此表达式y=z=l的结果为0，所以x赋得的值为0、y、z变量的值为默认值o。
3．标准函数名写错
VB提供了很多标准函数，如IsNumeric()、Date()、LeR()等。当函数名写错时，如将
IsNumeric写成IsNummeric，系统显示"子程序或函数未定义"，并将该写错的函数名选中提醒用户修改。
[提示]
如何判断函数名、控件名、属性、方法等是否写错，最方便的方法是当该语句写完后，按
Enter键，系统把被识别的上述名称自动转换成规定的首字母大写形式，否则为错误的名称。
4．数据合法性检查中引起程序的死循环
在数据输入时，经常需要对输入的数据作合法性检查，以确保程序运行的正确性。如在实验：：第1题中，对输入的温度要求是数字，否则删除原输入的内容，焦点仍定位于文本柜。有关属性设置见下表，界面如图2所示，程序段如下。
表2 控件有关属性
有关控件名
TabIndex
Text1
2
Text2
3
Command1
4
Command1
5
Private Sub Text1_LostFocus()
If
Not IsNumeric(Text1)Then
Text1=""
Text1.SetFocus
End If
EndSub
Private Sub Text2_LostFocus()
If
Not IsNumeric(Text2)Then
Text2=""
Text2.SetFocus
End
If
End Sub
当华氏温度(Text1)输入错时，焦点在Text2处不停地闪动，程序产生死循环。
原因是当Textl输入结束按Tab键，激发Textl
LostFocus事件，焦点已到Text2；但当判断Textl文本框输入数据错时，执行Textl.SetFocus，使焦点从Text2拉回到Textl；而又激发Text2_LostFocus事件，此时并没有判断Text2文本框输入数据错，又执行
Text2.SetFocus，使焦点从Text1拉回到Text2，如此交错造成死循环。
而当摄氏温度(Text2)输入错时，程序正常运行。因为当Text2输入结束按Tab键，焦点已到Commanl，因此不会产生死循环。
解决Text1输入错时死循环的问题，只要把Private Sub
Text2_LostFocus()事件的If表达式If Not
IsNumeric(Text2)Then改为：IfText2<>""And
Not isNumeric(Text2)Then即可。
5．如何终止死循环
当编写程序时考虑不周到，产生死循环(尤其使用第四章介绍的循环结构)时，只要同时按Ctrl+Break键就町终止死循环，找出死循环的原因，修改程序。
6．声明局部变量和窗体级变量的问题
在VB程序中，除了大量的控件对象外，还要使用一些变量，暂时存放一些中间结果。这些变量的声明可以放在过程外的"通用声明"段(称为窗体级变量)，也可以放在过程中(称为局部变量)，怎样安置这些变量，初学者觉得有点头疼。两者区别：窗体级变量在本窗体的所有过程中均可使用：而局部变量仅在变量所在的过程中可使用，也即随着本过程的执行而分配存储空间，当执行到EndSub语句，分配的内存空间回收，变量的值也丢失。
具体对实验二第2题来说，在方法一中窗体内有四个过程，共同要用到三个变量a,b,c，因此这些变量的声明应在"通用声明"段，否则Click事件过程中a,b,c变量的值为零。在方法二中只有一个事件过程，变量a,b,c作为过程级变量声明，当然声明与窗体级变量效果相同。
方法一： 方法二：
Dim
ag，b#，c# Private
Sub Form_Click()
Private Sub
Textl_LostFocus() Dima#，b#，c#
… '对变量a赋值 … '用到变量a,b,c
EndSub EndSub
Private Sub Text2_LostFocus()
… '对变量b赋值
EndSub
Private Sub Text3_LostFocus()
… '对变量c赋值
EndSub
Private Sub Command1_Click()
… '用到变量a,b,c
EndSub
7．在Form
Load事件中，SetFocus方法不起作用
原因同Print方法，因为系统在窗体装入内存时无法同步地用SetFocus方法定位控件的焦点。解决的方法在属性窗口对要定位焦点的控件将其Tablndex值设置为。就可。
8．程序运行时对多个文本框间焦点移动的问题
方法-：按"Tab"键。这时可不必编程，直接利用系统提供的功能方便地在各控件之间移动。若要确定离开或进入了哪个控件，则利用"控件LostFocus''或"控件_GotFocus''事件进行判断。
方法二：按"回车"键。这时必须通过KeyPress事件编程宋实现，有关程序段如下：
Private Sub某文本框_KeyPress(KeyAscii As
Integer)
If KeyAscii=13 Then
另一控件.SetFocus
End If
…
End Sub
三、选择结构/循环结构常见错误
1．选择结构语法错误
(1)块IF语句中如果有Else，必须单独作为一行；且End
If不可缺省；
(2)多条件选择ElseIf关键字的书写：
ElseIf 不要写成Else If；
(3)Select Case语句要与End
Select配对出现；
(4)Select Case
后不能出现多个变量；Case子句后不能出现变量及有关运算符；
(5)Select
Case结构中Case后面的表达式之一是：Is
，它是简单关系式，例如：
Private Sub Command1_Click()
x =
Val(InputBox("输入学生成绩"))
Select Case
x
Case Is <
60 ' 不能写成：Case x<60
Print "不及格"
Case Else
Print "及格"
End
Select
End Sub
以下语句也是错误的：
Select Case x1,x2,x3
Case
(x1+x2+x3)>=270
Print "优秀"
……
End Select
2．选择结构逻辑错误
VB程序的语法错误在编译过程中系统会给出提示信息。但是，如果存在逻辑错误系统就无能为力了，只能给出错误的结果，此时程序员很难找出错误所在。下面的例子是一个多条件表达式，例如，根据输入学生的百分制成绩，显示出五个不同的等级评定，评定条件如下：
以下程序段是正确的：
Private Sub Command1_Click()
Dim mark As Integer, grade As String
mark = InputBox("请输入学生的成绩：")
If mark >= 90 Then
grade =
"优"
ElseIf mark >= 80 Then
grade =
"良"
ElseIf mark >= 70 Then
grade =
"中"
ElseIf mark >= 60 Then
grade =
"及格"
Else
grade =
"不及格"
End If
Print grade
End Sub
如果将IF……End
IF之间的语句改为以下程序段结果就是错误的：
If mark >= 60 Then
grade =
"及格"
ElseIf mark >= 70 Then
grade =
"中"
ElseIf mark >= 80 Then
grade =
"良"
ElseIf mark >= 90 Then
grade =
"优"
Else
grade =
"不及格"
End If
以上语句除了输入小于60分的输出正确以外，其他只要输出大于或等于60分的都输出“及格”。这是因为只要遇到第一个满足条件的即不再往下进行判断。
另外还应该注意的是，Then后面不能写语句，必须换行。
1．在选择结构中缺少配对的结束语句
对多行式的If块语句中，应有配对的End
If语句结束。否则，在运行时系统会显示"块
If没有End If"的编译错误。
同样对Select
Case语句也应有与其相对应的EndSelect语句。
2．多边选择ElseIf关键字的书写和条件表达式的表示
多边选择ElseIf子句的关键字ElseIf之间不能写有空格，即不能写成Else
If。
在多个条件表达式的表示时，应从最小或最大的条件依次表示，以避免条件的过滤。
3．Select Case语句的使用
(1)"表达式列表i"中不能使用"变量或表达式"中出现的变量。例如，上述多边选择的例子改为Select
Case语句实现，方法一Case子句中出现变量mark，运行时不管mark的值多少，始终执行Case
Else子句，运行结果不正确；方法二、方法三正确。
方法一： 方法二： 方法三：
Select Case mark Select Case
mark Select Case mark
Case
mark>=90 Case
Is>=90 Case
Is>=90
Print"优"
Print"优" Print"优"
Case
mark>=80 Casels>=80 Case 80 To 89
Print"良" Print"良" Print"良"
Casemark>=70 Case Is>=70 Case 70To 79
Print"中" Print"中" Print"中"
Case
mark>=60 Case Is>=60 Case 60TO 69
"及格" Print "及格 Print"及格"
Case Else
Case
Else
Case
Else
Print"不及格" Print"不及格"
Print"不及格"
End
Select End
Select End Select
(2)在"变量或表达式"中不能出现多个变量。实验三第5题对三门课程奖学金的判断，只能用If语句的多边选择，而不能用SelectCase语句实现。例如，有些读者用如下语句表示：
Select Case markl，mark2，mark3
Case
(markl+mark2+mark3)/3>=95
Print"一等奖"
End Select
这样就会在"Select Case
markl,mark2,mark3"语句行出现编辑错误：同时Case(markl+mark2
+mark3)/3>=95书写也错误。
3．不循环或死循环问题
出现不循环或死循环主要是循环条件、循环初值、循环终值、循环步长的设置有问题。
例如，以下循环语句不执行循环体：
For i=1 To 10 Step
–2 '
步长为负，初值必须大于等于终值才能循环
For I=100 To
10 '
缺省步长默认为正1，初值必须小于等于初值才能循环
Do While
False ' 循环条件是逻辑常量False，不执行循环
Do While
0 ' 循环条件为0等同于False
例如，以下循环形成死循环：
For I=10 to 100 Step
0 ' 步长为0初值永远不会超过终值
Do While
True '
循环条件是逻辑常量True，永远满足循环条件
Do While
1 ' 循环条件为非零值等同于True
4．循环结构中缺少配对的结束语句
For循环缺少Next语句；Do语句缺少Loop，尤其是多重循环这类问题更应该注意。
5．多重循环语句内外循环交叉
For i=1 to
4 For i=1 to 4
For j=1 to
5 应改为： For j=1 to
5 或将Next后面的j和i均去掉；
?i+j; ?i+j;
Next
I Next
j 或将以下两行写成一行：Next i, j
Next
j Next i Next后面的i，j不能缺且顺序不能错
６．计数、累加、连乘结果变量赋初值问题
计数一般的语句格式是：n=n+1的形式，每循环一次自动加1，而累加的一般格式是：s=s+x，每次将x的值累加到s中去。如果已经定义n、s为数值型变量，则默认初值为0，可以省略赋初值。而连乘的一般格式是：p=p*j，此时p应该赋初值1。例如，求10!的语句为：
p=1
for i=1 to 10
p=p*i
next I
如果是多重循环，存放累加、连乘结果的变量初值设置放在内、外循环的位置应视具体问题分别处理。
例如，以下程序段是求出30位同学三门课的平均成绩：
Private Sub Command1_Click()
For i = 1 To 30
aver =
0 ' 每换一位同学重新置0
For j = 1 To
3
m = InputBox("输入第" & j &
"门课的成绩：")
aver = aver + m
Next j
aver = aver
/ 3
Print "第"
& i &
"位同学的平均成绩是：", aver
Next
End Sub
1．不循环或死循环的问题主要是循环条件、循环初值、循环终值、循环步长的设置有问题。例如，以下循环语句不执行循环体：
For i=10 To 20
Step-1 '
步长为负，初值必须大于等于终值，才能循环
For i=20 To10 '
步长为正，初值必须小于等于终值，才能循环
Do While False '
循环条件永远不满足，不循环
例如，以下循环语句死循环：
For i=10 To 20 Step
0 '
步长为零，死循环
Do While
1 ' 循环条件永远满足，死循环
2．循环结构中缺少配对的结束语句
For…Next语句没有配对的Next语句；Do语句没有一个终结的Loop语句等。
3．循环嵌套时，内外循环交叉：
For I=1 to
4
For j=1 to 5
…
Next
i
Next j
上述循环的交叉运行时显示"无效的Next控制变量引用"。
4．累加、连乘时，存放累加、连乘结果的变量赋初值问题
(1)一重循环
在一重循环中，存放累加、连乘结果的变量初值设置应在循环语句前。
例如，求1～100的3的倍数和，结果放入Sum变量中，如下程序段，输出结果如何?
Private SubForm_Click()
Fori=3 To
100 Step 3
Sum=0
Sum=Sum+i
Next i
Sum
End Sub
要得到正确的结果，应作如何改进?
(2)多重循环
在多重循环中，存放累加、连乘结果的变量初值设置放在外循环语句前，还是内循环语句前，这要视具体问题分别对待。
例如，期末30位学生参加三门课程的考试，求每个学生的三门课程的平均成绩如下程序能否实现，应如何改进?
aver=0
For i=1 To 30
For j=1 To
3
m=InputBox("输入第"&j&"门课的成绩")
aver=aver+m
Next j
aver=aver/3
Print aver
Nexti
80
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
