1.在选择结构中缺少配对的结束语句

对多行式的If块语句中，应有配对的End If语句结束。否则，在运行时系统会显示"块 If没有End If"的编译错误。同样对Select Case语句也应有与其相对应的End Select语句

2. 不循环或死循环的问题主要是循环条件、循环初值、循环终值、循环步长的设置有问题。

例如，以下循环语句不执行循环体：

For i=10 To 20 Step-1 ' 步长为负，初值必须大于等于终值，才能循环

For i=20 To10 ' 步长为正，初值必须小于等于终值，才能循环

Do While False ' 循环条件永远不满足，不循环

例如，以下循环语句死循环：

For i=10 To 20 Step 0 ' 步长为零，死循环

Do While 1 ' 循环条件永远满足，死循环

3.循环结构中缺少配对的结束语句

For…Next语句没有配对的Next语句;Do语句没有一个终结的Loop语句等。

4.循环嵌套时，内外循环交叉
 

1. For I=1 to 4 
2.               For j=1 to 5 
3.               … 
4.               Next i 
5.        Next j 

交叉运行时显示"无效的Next控制变量引用"。

5.累加、连乘时，存放累加、连乘结果的变量赋初值问题

(1) 一重循环

在一重循环中，存放累加、连乘结果的变量初值设置应在循环语句前。

例如，求1～100的3的倍数和，结果放入Sum变量中，如下程序段，输出结果如何?应作如何改进?
 

1. Private SubForm_Click() 
2.              For i=3 To 100 Step 3 
3.                     Sum=0 
4.                     Sum=Sum+i 
5.              Next i 
6.              Print Sum 
7.       End Sub 

(2) 多重循环

在多重循环中，存放累加、连乘结果的变量初值设置放在外循环语句前，还是内循环语句前，这要视具体问题分别对待。

例如，期末30位学生参加三门课程的考试，求每个学生的三门课程的平均成绩如下程序能否实现?
 

1. aver=0 
2.       For i=1 To 30 
3.              For j=1 To 3 
4.                     m=InputBox("输入第"&j&"门课的成绩") 
5.                     aver=aver+m 
6.              Next j 
7.              aver=aver/3 
8.              Print aver 
9.       Next I 

m=InputBox("输入第"&j&"门课的成绩")

6.数组维数错

数组声明时的维数与引用数组元素时的维数不一致。例如，下程序段为形成和显示3×5的矩阵：
 

1. Dim a(3,5) As Long 
2.              For i=1 To 3 
3.                     For j=1 To 5 
4.                            a(i)=i*j 
5.                            Print a(i);""; 
6.                     Next j 
7.              Print 
8.       Next i 

程序运行到a(i)=i*j语句时出现"维数错误"的信息，因为在Dim声明时是二维数组，引用时的一个下标。